excel - 在vba中设置文件路径和文件名

Question

好吧，我想我对如何做到这一点感到困惑，也许我做的事情明显是错误的？

这是我的代码:

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

但是，在带星号的行中，我收到运行时错误(包含为图像)。我认为这是因为我保存文件不正确......但我认为这是正确的？是因为我使用的是文件路径而不是文件名吗？我需要在路径“Name”.xls 的末尾添加吗？或者我需要将文件名和文件路径分开吗？

提前致谢:)

编辑:现在一切正常，但是，该文件被转储到“C:\Users\Public”位置，并将 DESKTOP 添加到名称中(而不是“C:\Users\Public\Desktop”。我已尝试了所有各种各样的东西试图将其路由到正确的位置，例如在末尾添加“_”以及其他尚未奏效的技巧。

我该如何解决这个问题？

已解决:

filelocation1 = "C:\Users\Public\Desktop" & "\" &  Format(Date, "ddmmyyyy") _ 
& "Production.xls"

Answer 1

我认为语法错误

我倾向于使用类似的东西

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

然后使用“C:\Users\Public\Desktop\”作为文件位置，并将文件扩展名设置为您喜欢的任何内容，例如如果您想说在文本框中输入您自己的文件名，然后 fileext = textbox.text 那么就是 filestring = filelocation & fileext 的情况。如果您尝试使用这种方法，您可以灵活地使用它