技術(shù)員聯(lián)盟提供win764位系統(tǒng)下載,win10,win7,xp,裝機(jī)純凈版,64位旗艦版,綠色軟件,免費(fèi)軟件下載基地！

當(dāng)前位置：主頁 > 教程 > 軟件教程 > Excel教程 >

VBA把記事本保存成為工作薄

來源：技術(shù)員聯(lián)盟┆發(fā)布時間：2019-03-18 18:05┆點(diǎn)擊：

　　在一個文件夾中有數(shù)百個.txt文件，想將其另存為.xls文件，保存時文件名與原文件名相同;且將內(nèi)容按空格分列(.txt文件中格式相同)，使用VBA可以實現(xiàn)該功能，代碼如下：

　　Dim Fso, Fl

　　Set Fso = CreateObject("Scripting.FileSystemObject")

　　For Each Fl In Fso.getfolder(ThisWorkbook.Path & "").Files

　　If Fl.Name <> ThisWorkbook.Name Then

　　Workbooks.OpenText (Fl)

　　With ActiveWorkbook

　　.SaveAs ThisWorkbook.Path & "" & Fl.Name & ".xls"