excel批量导入文本一个宏的问
改成如下:
Sub InputTxtdata()
Dim Fso As Object, Fl
Set Fso = CreateObject("Scripting。FileSystemObject")
For Each Fl In tfolder(ThisWorkbook。 Path & "\")。Files
If Fl。Name Like "*。txt" Then
Open Fl For Input As #1
Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf): Reset
Range("A65536")。 End(...全部
改成如下:
Sub InputTxtdata()
Dim Fso As Object, Fl
Set Fso = CreateObject("Scripting。FileSystemObject")
For Each Fl In tfolder(ThisWorkbook。
Path & "\")。Files
If Fl。Name Like "*。txt" Then
Open Fl For Input As #1
Arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf): Reset
Range("A65536")。
End(3)。Offset(1)。Resize(UBound(Arr) + 1) = anspose(Arr)
End If
Next
End Sub
。收起