samwang

¦^´_ 1# zz0660

¥t¥~·s¼W¤å¦rÀÉ¡AµM«á±N¸ê®Æ¼g¤J¡AÁÂÁ¡C
Sub test()
Dim fs As Object, a As Object, R As Range
Application.ScreenUpdating = False
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("D:\" & 1 & ".txt")
For Each R In [A2:A32]
    a.WriteLine (R)
Next
a.Close
Application.ScreenUpdating = True
End Sub

samwang

¦^´_ 3# zz0660

¦³¨S¦³§Oªº¤èªk©O?  ¤£­n¥t¥~·s¼W¤å¦rÀÉ¡AµM«á±N¸ê®Æ¼g¤Jªº¤è¦¡¡C
>>Set a = fs.CreateTextFile("D:\" & 1 & ".txt")
ª½±µ±N 1 §ï¬°±z¥Ø«eªº¤å¦rÀɪº¦WºÙ¡A³o¼Ë´N¥i¥H¤F
¦Ü©ó±z´£ªº»Ý¨D¡Aª½±µ¶K¨ì¥t¤@­Óµøµ¡ªº¤å¦rÀÉ¡A«á¾Ç¨S¦³·Q¨ì¸Ñªk¡AÁÂÁÂ

samwang

¦^´_ 3# zz0660


¥t¤@­Ó·Qªk¡AÅý¨Ï¥ÎªÌ¿ï¨úÀÉ®×(¥i¦P®É¿ï¾Ü¦h­Ó)¡A½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

Sub test1()
Dim fs, f, R As Range, fc%, x%
Application.ScreenUpdating = False
Set fs = CreateObject("Scripting.FileSystemObject")
With Application.FileDialog(msoFileDialogOpen)
    .InitialFileName = "D:\"
    .AllowMultiSelect = True
    .Show
    fc = .SelectedItems.Count
    If fc = 0 Then Exit Sub
    For x = 1 To fc
        FPath = .SelectedItems(x)
        Set f = fs.OpenTextFile(FPath, 2) '8:«O¯d­ì¸ê®Æ¡F2:²M°£­ì¸ê®Æ
        For Each R In [A2:A32]: f.WriteLine (R): Next
        f.Close
    Next
End With
Set fs = Nothing: Set f = Nothing
Application.ScreenUpdating = True
End Sub