使用分隔符作爲列表格式用於記錄的txt文件

Question

如何將分隔符「^」作爲來自導入的多個txt文件的列應用。請幫助。 ..

Private Sub CommandButton1_Click() 


Application.ScreenUpdating = False 

Dim oFileDialog As FileDialog 
Dim LoopFolderPath As String 
Dim oFileSystem As FileSystemObject 
Dim oLoopFolder As Folder 
Dim oFilePath As File 
Dim oFile As TextStream 
Dim RowN As Long 
Dim ColN As Long 
Dim iAnswer As Integer 
On Error GoTo ERROR_HANDLER 

Set oFileDialog = Application.FileDialog(msoFileDialogFolderPicker) 

RowN = 1 
ColN = 1 

With oFileDialog 
If .Show Then 
    ActiveSheet.Columns(ColN).Cells.Clear 

    LoopFolderPath = .SelectedItems(1) & "\" 

    Set oFileSystem = CreateObject("Scripting.FileSystemObject") 
    Set oLoopFolder = oFileSystem.GetFolder(LoopFolderPath) 

    For Each oFilePath In oLoopFolder.Files 
     Set oFile = oFileSystem.OpenTextFile(oFilePath) 

     With oFile 

      Do Until .AtEndOfStream 
       ActiveSheet.Cells(RowN, ColN).Value = .ReadLine 

       LoopFolderPath = Space(1) 
       RowN = RowN + 1 

       Loop 

      .Close 
     End With 
    Next oFilePath 
End If 
iAnswer = MsgBox("Your Textfiles have been Inputted.", vbInformation) 
End With 

EXIT_SUB: 
Set oFilePath = Nothing 
Set oLoopFolder = Nothing 
Set oFileSystem = Nothing 
Set oFileDialog = Nothing 

Application.ScreenUpdating = True 

Exit Sub 

ERROR_HANDLER: 
    ' Some code for error handling 
    Err.Clear 
    GoTo EXIT_SUB 

End Sub 

Answer 1

ActiveSheet.RangE("X:X").TextToColumns Destination:=Range("X#"), DataType:=xlDelimited, _ 
    TextQualifier:=xlDoubleQuote, Other:=True, OtherChar:="^" 

當然，你將需要更換的X：通過適當的列和X＃通過適當的範圍內X。

使用宏記錄器獲取該代碼花了約30秒。