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使用字符串連接的符號（如&），而不是加號（如+） 。加號可以連接字符串，但不能執行加法操作，但操作不明確，不應依賴。