Excel 如何套取sheet name
回答 (1)
2008-12-18 2:04 am
✔ 最佳答案
Sub main()Dim i, fs, f
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile("c:\testfile.txt", True)
For i = 1 To Sheets.Count
f.WriteLine (Sheets(i).Name)
Next
f.Close
End Sub
收錄日期: 2021-04-19 12:54:05
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20081217000051KK00256