如何在cmd窗口显示Excel表格的内容？

saogz

Excel文件内容如果都在第一列，用type还可以显示
如果扩展到第二列，就显示的是乱码，请高价指点迷津！！

ArdentMan

保存为.vbs

1. 
   
2. Dim EXCEL, ExStr, FSO
   
3. Set EXCEL = CreateObject("Excel.Application")
   
4. EXCEL.Workbooks.Open CreateObject("Wscript.Shell").CurrentDirectory & "\a.xls"
   
5. EXCEL.Visible = False
   
6. i = 1:j = 1
   
7. Do Until EXCEL.Cells(i, j).Value = vbNullString
   
8.   ExStr = ExStr & vbCrLf
   
9.   Do Until EXCEL.Cells(i, j).Value = vbNullString
   
10.     ExStr = ExStr & EXCEL.Cells(i, j).Value & vbTab
    
11.     j = j + 1
    
12.   Loop
    
13.   i = i + 1:j = 1
    
14. Loop
    
15. EXCEL.Workbooks.Close
    
16. EXCEL.Quit
    
17. Set EXCEL = Nothing
    
18. Set FSO = CreateObject("Scripting.FileSystemObject")
    
19. FSO.OpenTextFile("temp.txt", 2, True).Write ExStr
    
20. CreateObject("Wscript.Shell").Run "Cmd /k Type temp.txt", 1, True
    
21. FSO.DeleteFile "temp.txt"
    
22. Set FSO = Nothing
    

复制代码

xslxslxsl

好像有些复杂了，不是很懂

wolfan

俺是完全不懂。

xudaweb

回复 2# ArdentMan


    请问2楼，是不是要想对excel做动作只能用VB来写？P处理尚且还在初级水平，VB看不懂啊...
不过我试了下你的代码，可以实现cmd窗口显示excel的内容，佩服啊...

CUer

回复 5# xudaweb


那是VBS，不是VB。
BAT里面没有直接访问Excel的方法，但是可以调用一些第三方命令行工具。

xudaweb

回复 6# CUer


    谢谢您的热心答复！VBS又是一门新的编程语言?两眼一抹黑从何学起哦...

CUer

回复 7# xudaweb


这个论坛有VBS教学版块的

xudaweb

回复 8# CUer

多谢提醒，已经进去看了看，就是看不懂...