请教各位，怎样才能将结果导出到excel的第二列呢

lengguoyong

请教各位大侠，我有文本a.txt
111；222；333；444
555；666；777；888
999；101；102；103
我先提取文本a.txt第二列数据到b.excel后，我想再提取文本a.txt第四列数据到b.excel的第二列，注意是导出到excel的第二列，这该怎么弄啊。请各位大侠指点

ArdentMan

1. 
   
2. Dim Path, FSO, EXCEL, Book, Arr, Str
   
3. Path = CreateObject("Wscript.Shell").CurrentDirectory & ""
   
4. Set FSO = CreateObject("Scripting.FileSystemObject")
   
5. Str = FSO.OpenTextFile("a.txt").ReadAll()
   
6. Arr = Split(Str, vbCrLf)
   
7. Set FSO = Nothing
   
8. Set EXCEL = CreateObject("Excel.Application")
   
9. EXCEL.Visible = False
   
10. Set Book = EXCEL.Workbooks.Open(Path & "b.xls")
    
11. For Each Str In Arr
    
12.   If Str <> "" Then
    
13.     i = i + 1
    
14.     EXCEL.Cells(i, 2).value = Split(Str, "；")(3)
    
15.   End If
    
16. Next
    
17. Book.Save
    
18. Book.Close
    
19. Set Book = Nothing
    
20. EXCEL.Quit
    
21. Set EXCEL = Nothing
    
22. MsgBox "导入完成！", , "ArdentMan友情提示"
    

复制代码

注：
　　楼主的文本式样中的分隔符是全角的分号，是不是搞错了，如果搞错了请将代码Split(Str, "；")(3)中的全角分号改为半角分号，b.excel应该为b.xls，代码保存为test.vbs到a.txt和b.xls所在目录中双击运行，有问题请及时反馈~~~

lengguoyong

奥  谢谢ArdentMan 大哥， Str = FSO.OpenTextFile("a.txt").ReadAll()
这句怎么报错呢，还有批处理能有达到这样的目的不啊

ArdentMan

3# lengguoyong

改为Str = FSO.OpenTextFile(Path & "a.txt").ReadAll()

批处理不能对已有的xls文件进行操作，除非是用cmd直接生成的xls文件。

lengguoyong

改为了这个好像也不行，我直接把绝对路径填了就好了 ， 请问批处理能实现这样的功能不啊

lengguoyong

如果a.txt文本前面有5行不相关数据，如何跳开这5行数据，然后再取下面第四列数据到excel啊，

ArdentMan

1. 
   
2. Dim Path, FSO, EXCEL, Book, Arr, Str
   
3. Path = CreateObject("Wscript.Shell").CurrentDirectory & ""
   
4. Set FSO = CreateObject("Scripting.FileSystemObject")
   
5. Str = FSO.OpenTextFile(Path & "a.txt").ReadAll()
   
6. Arr = Split(Str, vbCrLf)
   
7. Set FSO = Nothing
   
8. Set EXCEL = CreateObject("Excel.Application")
   
9. EXCEL.Visible = False
   
10. Set Book = EXCEL.Workbooks.Open(Path & "b.xls")
    
11. i = -5
    
12. For Each Str In Arr
    
13.   If Str <> "" Then
    
14.     i = i + 1
    
15.     If i > 0 Then EXCEL.Cells(i, 2).value = Split(Str, "；")(3)
    
16.   End If
    
17. Next
    
18. Book.Save
    
19. Book.Close
    
20. Set Book = Nothing
    
21. EXCEL.Quit
    
22. Set EXCEL = Nothing
    
23. MsgBox "导入完成！", , "ArdentMan友情提示"
    

复制代码