快速生成有標題和內容的“.txt”(記事本)文件。非常的簡單，但非常實用，特別是關鍵字文件生成很方便。
工具/原料
excel和記事本
方法/步驟
如果這裡是灰色的那就是沒有安裝巨集外掛。
程式碼：
Sub daochu() On Error Resume Next Dim fso As Object Dim MyTxt As Object Dim MyFName As String Set fso = CreateObject("Scripting.FileSystemObject") With ActiveSheet Dim i% For i = 1 To 1000 '起始行，如果是第三行到第一百行，則改成 3 to 100 MyFName = ThisWorkbook.Path & "\" & Cells(i, 1) & ".txt" '如果是第五列作為檔名，則改cells(i, 1) 為cells(i, 5) Set MyTxt = fso.CreateTextFile(Filename:=MyFName, OverWrite:=True) If Cells(i, 1) <> "" Then MyTxt.Write .Cells(i, 2) '如果第七列為檔案內容則改cells(i, 2)為cells(i, 7) 注意cells前面有個小數點 End If Next MyTxt.Close End With Set MyTxt = Nothing Set fso = Nothing End Sub
點儲存
執行（舉個小例子）
看效果
注意事項
注意程式碼顏色，複製時如果帶有格式會報錯