请教高手如何用vbs把excel的单元格数据写到txt

来源：百度知道 编辑：UC知道 时间：2024/05/02 17:47:46
请教高手：
1.如何用vbs把excel的单元格数据或块数据写到txt
2.如何用vbs把excel的单元格数据或块数据拷贝到到txt.
谢谢了！
运行报错，我是新手

If WScript.Arguments.Count > 0 Then Filename = WScript.Arguments(0)
Set a = CreateObject("Excel.Application")
If Filename = "" Then
Filename = a.GetOpenFilename("Excel Files (*.xls), *.xls")
If VarType(Filename) = vbBoolean Then
MsgBox "Excel2Txt用于将Excel文件的每个Sheet保存为一个文本文件。" & vbCr & vbLf & vbCr & vbLf & "用法: Excel2Txt filename.xls 或在对话框中打开Excel文件。"
WScript.Quit
End If
End If
Set w = a.Workbooks.Open(Filename)
n = Replace(Replace(w.Name, ".xls", ""), ".XLS", "")
a.DisplayAlerts = False
For Each s In w.Sheets
s.SaveAs w.Path & "\" & n & "_" & s.Name & ".txt", 20
Next
a.Quit

把以上代码存为Excel2Txt.vbs双击执行就行了