文本文件批量转换为EXCEL程序示例.docVIP

文本文件批量转换为EXCEL程序示例 文本文件批量转换为EXCEL程序示例 PAGE 文本文件批量转换为EXCEL程序示例 ‘此文件可以实现将指定文件夹下的全部TXT文本文件批量转换为EXCEL格式的XLS文件。为方’便使用，此宏最好放在中（取消窗口隐藏）。 ‘在实际使用中会需要修改。 ‘程序来自网上示例，调试时进行了修改 ‘ Sub txt2xls() Dim tmp As String, fs As String Dim fn As Integer Dim xw As Workbook, yw As Workbook Dim tp fs = (txt文件 *.txt,*.txt, , 请选