可以自動抓出excel中每一個sheet的名字嗎?

Question

個位VBA的高手您好,
我想請問一下,有可能自動抓出excel中每一個sheet的名字並寫到外部.txt檔中嗎??
因為我現在有很多excel而且每個excel都有很多個sheet,想請問有沒有可能寫一個vba程式,自動將每一個excel中的sheet的名字寫到外部.txt檔.

Answer 1

Sub test()    Dim fs, f    Set fs = CreateObject("Scripting.FileSystemObject")    Set f = fs.OpenTextFile("c:\testfile.txt", 8, 0)           For i = 1 To Worksheets.Count        f.write Worksheets(i).Name & ";"    Next i    f.WriteLine ("")    f.Close    End Subp.s.要先在c的根目錄下建testfile.txt這個檔案喔

Answer 2

給你一個網址，可參考．它可將選取的excel中的sheet的名字秀出．
http://excelvba.g-tw.com/plog/post/1/205

2006-06-24 23:01:38 補充：
網址的程式和下面大大的程式結合,就可達到不開啟活頁簿檔案就能將其工作表名稱匯出至文字檔的效果.修改如下:Dim Outname As String '在網址程式增加定義Outname = Outname & " #" & c & ":" & Mid(strTbl, 1, Len(strTbl) - 1) '加在Set PT = PT.Offset(1, 0)之下上官大大的程式修改 Dim SET不變 f.Write theFullName & "工作表" & Outname f.WriteLine ("") f.Close