[文本处理] 如何在cmd窗口显示Excel表格的内容？

saogz

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

ArdentMan

保存为.vbs

Dim EXCEL, ExStr, FSO
Set EXCEL = CreateObject("Excel.Application")
EXCEL.Workbooks.Open CreateObject("Wscript.Shell").CurrentDirectory & "\a.xls"
EXCEL.Visible = False
i = 1:j = 1
Do Until EXCEL.Cells(i, j).Value = vbNullString
  ExStr = ExStr & vbCrLf
  Do Until EXCEL.Cells(i, j).Value = vbNullString
    ExStr = ExStr & EXCEL.Cells(i, j).Value & vbTab
    j = j + 1
  Loop
  i = i + 1:j = 1
Loop
EXCEL.Workbooks.Close
EXCEL.Quit
Set EXCEL = Nothing
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.OpenTextFile("temp.txt", 2, True).Write ExStr
CreateObject("Wscript.Shell").Run "Cmd /k Type temp.txt", 1, True 
FSO.DeleteFile "temp.txt"
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

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