VBA代码修改故障

Question

我有一个excel文件，里面有一个VB代码，看起来像这样：

Sub UPISIVANJE_IZ_CELIJA_U_FILE()
    Dim iCntr
    Dim strFile_Path As String

    strFile_Path = "C:\script generator v1.1\start.bat"
    Open strFile_Path For Output As #2
    For iCntr = 1 To 10041
        Print #2, Range("E" & iCntr)
    Next iCntr
    Close #2

End Sub

代码工作正常，没有任何问题。我遇到的问题是start.bat文件的位置。我希望这个文件是在同一位置生成的excel工作簿文件。我试着使用这个：

strFile_Path = ".\start.bat"

但它当然不起作用。

Answer 1

假设您指的是代码所在的工作簿的路径，

strFile_Path = thisworkbook.path & ".\start.bat"

请注意，VBA使用与号(例如&)进行字符串连接，而不是使用加号(例如+)。当加号不能执行加法运算，但操作不明确且不应依赖时，它可以连接字符串。