VBA代码修改的麻烦

Question

我有，有一个VB代码，它看起来像这样的Excel文件：

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