VBS实现将Excel表格保存为txt文本

要在VBS (Visual Basic Script) 中实现将Excel表格保存为txt文本，你可以使用Excel的自动化对象模型（通过`Excel.Application`对象）。以下是一个VBS脚本的示例，它打开一个Excel文件，读取特定的sheet中的数据，并将这些数据保存到一个txt文件中。

注意：此脚本假设Excel文件位于"C:\path\to\your\excel.xlsx"，并且你想从第一个sheet（"Sheet1"）读取数据，保存为"C:\path\to\your\output.txt"。你可能需要根据自己的文件路径和sheet名称修改这些路径。

vbscript Dim objExcel, objWorkbook, objSheet, objRange, row, col, outputFile ' 创建Excel对象 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False ' 可以设置为True来查看Excel是否按预期打开 ' 打开Excel文件 Set objWorkbook = objExcel.Workbooks.Open("C:\path\to\your\excel.xlsx") ' 选定工作表 Set objSheet = objWorkbook.Sheets("Sheet1") ' 假设我们想读取A1到D10区域的数据 Set objRange = objSheet.Range("A1:D10") ' 准备输出文件 outputFile = "C:\path\to\your\output.txt" Set fs = CreateObject("Scripting.FileSystemObject") Set outFile = fs.CreateTextFile(outputFile, True) ' 遍历range并写入文件 For row = 1 To objRange.Rows.Count For col = 1 To objRange.Columns.Count ' 如果不是第一个值，先写一个分隔符（这里用逗号，也可以是制表符等） If col > 1 Then outFile.Write "," ' 写入单元格的值 outFile.Write objRange.Cells(row, col).Value Next col ' 每完成一行数据，写入一个换行符 outFile.WriteLine Next row ' 清理 outFile.Close objWorkbook.Close SaveChanges:=False objExcel.Quit ' 释放对象 Set outFile = Nothing Set fs = Nothing Set objRange = Nothing Set objSheet = Nothing Set objWorkbook = Nothing Set objExcel = Nothing MsgBox "Excel to TXT conversion completed.", vbInformation

这段脚本将打开一个Excel文件，读取指定区域的数据，然后将这些数据以逗号分隔的格式写入到一个txt文件中。每行数据代表Excel中的一行，每列数据之间用逗号分隔。

请确保修改路径和sheet名称以匹配你的实际需求。此脚本不直接支持保存为纯文本格式的Excel文件（如`.csv`，因为那涉及到更改Excel的保存类型），但这种方法可以有效地从Excel文件中提取数据并以文本形式保存。