Joforn

1. Sub Test001()
   
2.   Dim FileName  As String
   
3.   Dim hFile     As Long
   
4.   Dim lngEndRow As Long
   
5.   Dim R As Long, C As Long
   
6.   Dim bytText() As Byte
   
7.   Dim strText   As String
   
8.   Dim strCrLf   As String
   
9.   
   
10.   R = InStrRev(ThisWorkbook.Name, ".")
    
11.   If R > 0 Then
    
12.     FileName = Left$(ThisWorkbook.Name, R - 1)
    
13.   Else
    
14.     FileName = ThisWorkbook.Name
    
15.   End If
    
16.   strCrLf = Space(21) & vbCrLf
    
17.   With Sheet1
    
18.     lngEndRow = .Range("A" & .Rows.Count).End(xlUp).Row
    
19.     hFile = FreeFile
    
20.     Open ThisWorkbook.Path & Application.PathSeparator & FileName & ".TXT" For Binary As hFile
    
21.     For R = 1 To lngEndRow
    
22.       strText = vbNullString
    
23.       For C = 1 To .UsedRange.Columns.Count
    
24.         strText = strText & .Cells(R, C).Text
    
25.       Next C
    
26.       strText = strText & IIf(Len(strText), strCrLf, vbCrLf)
    
27.       bytText() = StrConv(strText, vbFromUnicode)
    
28.       Put hFile, , bytText()
    
29.     Next R
    
30.     Close hFile
    
31.   End With
    
32. End Sub

½Æ»s¥N½X

Joforn

¦^´_ 3# dou10801
±NWith Sheet1§ï¦¨With ActiveSheet¸Õ¸Õ