VBA代码修改麻烦

我有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

假设您的意思是代码所属工作簿的path，

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

请注意，VBA使用＆符号（例如& ）来进行string连接，而不是加号（例如+ ）。 加号可以连接string，当它不能执行加法但操作是模棱两可的，不应该依赖。