VBS OF EXCEL

最新推荐文章于 2024-09-12 18:58:25 发布

晒晒大太阳

最新推荐文章于 2024-09-12 18:58:25 发布

阅读量234

点赞数

文章标签： linq

本文链接：https://blog.csdn.net/weixin_50948136/article/details/121920232

版权

这是一个使用Visual Basic Script (VBS)编写的脚本，它能够批量将Excel文件的每个工作表保存为单独的文本文件。用户可以通过指定文件名或者通过对话框选择文件。脚本首先获取Excel文件的最后一行，然后遍历所有工作表，将每个工作表保存为.txt格式，文件名基于原始Excel文件名和工作表名称。运行此脚本前，请确保已安装了Excel应用程序。

摘要由CSDN通过智能技术生成

LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row
MsgBox LastRow

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