VBA文件操作

Question

我想在VBA中创建一个宏，在特定位置制作excel文件，但文件名必须从userform中提供。到目前为止，这是我的代码：

Dim wbname, wbsheet, wblocat As String    
Dim wbghkv As Double    
wbname = devserv.wbnamebox 'name of workbbok from userform    
wbsheet = devserv.wbsheetbox 'name of worksheet from userform    
wbghkv = devserv.ghkvbox 'value of gerate hkv from userform    
wblocat = "T:nfusefullstuffexcel" 'location of file folder
Workbooks.Add.SaveAs Filename:="wblocat  wbname"    
Workbooks(wbname).Activate    
Worksheets.Add    
Worksheets.Add.Name = wbsheet

但我在Workbooks.Add.SaveAs上遇到了一个错误。。。。。之前我尝试在Workbooks.Add.SaveAs之前使用chdir函数，但文件保存在mydocuments中。你能帮帮我吗？

Answer 1

您正试图保存为文字字符串"wblocat wbname"。

相反，请尝试Workbooks.Add.SaveAs Filename:=wblocat & "" & wbname。

顺便说一句，Dim wbname, wbsheet, wblocat As String将wbname和wbsheet声明为Variant。如果您希望它们是String，则需要使用Dim wbname As String, wbsheet As String, wblocat As String。