批处理之家 - Powered by Discuz! Board

标题: [文本处理] 如何在cmd窗口显示Excel表格的内容？ [打印本页]

作者: saogz 时间: 2011-8-25 14:31 标题: 如何在cmd窗口显示Excel表格的内容？

本帖最后由 pcl_test 于 2016-8-15 22:46 编辑

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

作者: ArdentMan 时间: 2011-8-25 16:59

保存为.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 时间: 2011-8-25 21:23

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

作者: wolfan 时间: 2011-8-25 21:28

俺是完全不懂。

作者: xudaweb 时间: 2011-8-25 21:56

本帖最后由 xudaweb 于 2011-8-25 21:57 编辑

回复 2# ArdentMan

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

作者: CUer 时间: 2011-8-25 22:39

回复 5# xudaweb

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

作者: xudaweb 时间: 2011-8-25 23:25

回复 6# CUer

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

作者: CUer 时间: 2011-8-26 19:47

回复 7# xudaweb

这个论坛有VBS教学版块的

作者: xudaweb 时间: 2011-8-30 23:30

回复 8# CUer

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

欢迎光临批处理之家 (http://www.bathome.net/)