GBKEE

¦^´_ 1# pesi2884
¦pinfoverdad »¡§A¦r¦ê¦³³r¸¹","  ¥i¸Õ¥Î¤Uªk¦s¬°txt

1. Sub Ex()
   
2.     Dim i%, FileName
   
3.     FileName = "D:\TEST\1000724.txt"       '«Ø¥ßÀɮצWºÙ¡C"
   
4.     Open FileName For Output As #1      '¶}±ÒÀɮסC
   
5.     Do While Cells(i + 1, "A") <> ""
   
6.         Print #1, Cells(i + 1, "A")     '±N¦r¦ê¼g¤JÀɮסC"
   
7.         i = i + 1
   
8.     Loop
   
9.     Close #1                            ' ±NÀÉ®×Ãö³¬¡C
   
10. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 4# pesi2884
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim Sh As Worksheet, FileName As String, i%
   
3.     For Each Sh In Sheets
   
4.         FileName = "D:\"       '«Ø¥ßÀɮ׸ê®Æ§¨"
   
5.         Open FileName & Sh.Name & ".txt" For Output As #1    '¶}±ÒÀɮסC
   
6.         i = 1
   
7.         Do While Sh.Cells(i, "A") <> ""
   
8.             Print #1, Sh.Cells(i, "A")      '±N¦r¦ê¼g¤JÀɮסC"
   
9.             i = i + 1
   
10.         Loop
    
11.         Close #1                            ' ±NÀÉ®×Ãö³¬¡C
    
12.     Next
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# pesi2884

1. Sub Ex()
   
2.     Dim Fs As Object
   
3.     Dim Sh As Worksheet, FileName As String, i%
   
4.     For Each Sh In Sheets
   
5.        FileName = "D:\"       '«Ø¥ßÀɮ׸ê®Æ§¨"
   
6.         Set Fs = CreateObject("Scripting.FileSystemObject").OpenTextFile(FileName & Sh.Name & ".txt", 8, True, -1)
   
7.         'FileSystemObjectª«¥ó,´£¨Ñ¹ï¹q¸£Àɮרt²Îªº¦s¨ú¡C OpenTextFile  ¶}±ÒÀÉ®×.
   
8.         '8 -> ForAppending:  ¶}±Ò¤@­ÓÀɮרüg¿é¥X¦ÜÀɮתº§À³¡¡C1 -> ForReading:¶}±Ò¤@­Ó°ßŪÀɮסCµLªk¹ï¦¹Àɮ׶i¦æ¼g¤J¡C
   
9.         'True: ¥¦ªí¥Ü¦pªG«ü©wªº filename ¤£¦s¦b¬O§_¥i¥H«Ø¥ß¤@­Ó¶}·sÀɮסC¦pªG«Ø¥ß¶}·sÀɮסA¨ä­È¬° True¡C­Y¤£«Ø¥ßÀɮרä­È¬° False¡C¹w³]­È¬° False¡C
   
10.         '-1 ¥H Unicode ®æ¦¡¶}±ÒÀɮסC¦pªG¬Ù²¤¡A«hÀÉ®×¥H ASCII ®æ¦¡¶}±Ò¡C
    
11.         
    
12.         'Set Fs = CreateObject("Scripting.FileSystemObject").CreateTextFile(FileName & Sh.Name & ".txt", True, True)
    
13.         'CreateTextFile  ·s«ØÀÉ®×,
    
14.         '²Ä1­Ó True: ªí¥Ü¤@­Ó¤w¦s¦bÀɮ׬O§_¥i³QÂл\¡C¦pªG¥i³QÂл\¨ä­È¬° True¡A¨ä¬° False ®ÉµLªkÂл\,¹w³]­È¬°False.
    
15.         '²Ä2­Ó True: ¡C¦pªG§@¬°¤@­Ó Unicode Àɮ׫إߡA¨ä¬° True¡A§@¬°¤@­Ó ASCII Àɮ׫إߡA¨ä¬° False¡C¹w³]­È¬°False
    
16.         i = 1
    
17.         Do While Sh.Cells(i, "A") <> ""
    
18.             Fs.Write Sh.Cells(i, "A")      '±N¦r¦ê¼g¤J©³ºÝ¡C"
    
19.             Fs.WriteLine                    '´«¦æ
    
20.             i = i + 1
    
21.         Loop
    
22.         Fs.Close                             ' ±NÀÉ®×Ãö³¬¡C
    
23.     Next
    
24. End Sub

½Æ»s¥N½X