菜鸟新人求助大神

lincoln0079

附件中C列第2行开始到第5000行的内容能转成BAT文件，论坛上找了个VBA，但是调试失败，求大神看看

lincoln0079

1111111111

liujialin0o0

你的CMD命令确定是这样写的吗

1. Sub tt()
   
2. Pt = ThisWorkbook.Path
   
3. Set fso = CreateObject("Scripting.FileSystemObject")
   
4. Set sFile = fso.CreateTextFile(Pt & "/TestFile.txt", True)
   
5. Set fd = fso.getfolder(Pt)
   
6. 
   
7. For i = 2 To 5000
   
8.     sFile.WriteLine Cells(i, 3).Value
   
9. Next
   
10. 
    
11. sFile.Close
    
12. For Each ff In fd.Files
    
13.     If ff.Name = "TestFile.txt" Then
    
14.         ff.Name = "TestFile.bat"
    
15.     End If
    
16. Next
    
17. Set sFile = Nothing
    
18. Set fso = Nothing
    
19. Set fd = Nothing
    
20. 
    
21. End Sub

复制代码