EXCEL如何批量導入TXT

因為沒有導入操作代碼，下面的代碼用於將文本文件保存為XLS文件的代碼復制到文本文件夾中的新EXCEL文件中，並執行子文件過程1（）dim file find as file search。

將fs標註為變量

將文件路徑標註為字符串

dim file style As string file path = this workbook。小路

file style =“*。txt "

應用程序。文件搜索

。LookIn = FilePath

。Filename =文件樣式

。執行

對於中的每個文件系統。發現文件

設置XLSHEET = Workbooks。打開（fs）

XLSHEET。另存為文件名:= Replace（fs，“txt”，“xls”）

XLSHEET。救援

XLSHEET。關閉

下壹個fs

以…結尾

末端接頭