在vba中设置FilePath和FileName

好吧，我想我已经弄糊涂了，怎么做，也许我做了一些明显的错误？

这是我的代码： 

Private Sub CommandButton1_Click() Dim wbI As Workbook, wbO As Workbook, wb1 As Workbook Dim wsI As Worksheet, wsO As Worksheet, ws1 As Worksheet filelocation1 = "C:\Users\Public\Desktop_" & Format(Date, "ddmmyyyy") & "Production.xls" Set wbI = ThisWorkbook Set wsI = wbI.Sheets("Production") Set wbO = Workbooks.Add With wbO Set wsO = wbO.Sheets("Sheet1") *****ActiveWorkbook.SaveAs Filename:=filelocation1 wsI.Range("A1:C100").Copy wsO.Range("A1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False End With

然而，在星号线我得到一个运行时错误（包括作为图像）。 我想这是因为我错误地保存了文件…但是我认为这是正确的？ 是因为我正在使用文件path而不是文件名吗？ 我是否需要在path“Name”.xls的末尾添加？ 或者我需要单独的文件名和文件path？

提前致谢 ：）

在这里输入图像描述

编辑：现在事情正在工作，但该文件正被倾倒在“C：\用户\公共”位置与DESKTOP添加到名称（而不是“C：\用户\公共\桌面”。我已经尝试了各种东西尝试将其路由到正确的位置，比如在末尾添加“_”以及其他没有工作的技巧。

我该如何解决？

已解决：filelocation1 =“C：\ Users \ Public \ Desktop”＆“\”＆Format（Date，“ddmmyyyy”）＆“Production.xls”

语法错误我相信

我倾向于使用类似的东西 

 dim filelocation as string dim fileext as string dim filestring as string

然后使用“C：\ Users \ Public \ Desktop \”作为你的文件位置，并将文件设置为你喜欢的任何东西，例如，如果你想说input你自己的文件名到文本框然后fileext = textbox.text那么这是一个案例filestring = filelocation & fileext 。 这种方法可以让你灵活的使用它

您需要在文件path中包含文件名，例如"C:\Users\Public\Desktop\Name.xls"

Interesting Posts