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使用＆符号（例如&）进行字符串连接，而不是加号（例如+）。加号可以在不能执行加法时连接字符串，但操作不明确，不应该依赖。