Как вставить специальные данные, которые хранятся в переменной с помощью в Excel с помощью VBA

Question

Я хочу вставить специальные данные в качестве значений, которые хранятся в переменной. Я читаю все данные из текстового файла и сохраняю их в переменной " sText ", когда я вставляю эти данные в Excel в Range ("A1"), он вставляет все значения в одну ячейку, которых я хочу избежать. Итак, я хочу вставить эти сохраненные данные в Excel, чтобы данные вставлялись в разные столбцы, а не в одну ячейку.

Есть ли способ скопировать эти сохраненные данные в переменную " sText", поэтому я могу специально вставить эти данные туда, где мне нужно. Я использую версию Excel 2016.

Ниже приведен код VBA, который копирует данные из текстового файла и вставляет в Excel.

Sub CopyLogFilesData()

        Dim wb As Workbook
        Dim ws As Worksheet
        Dim ws1 As Worksheet
        Dim LogFilePath As String
        Dim sText As String

        Set wb = ThisWorkbook
        Set ws = wb.Sheets("Notepad_Data")
        Set ws1 = wb.Sheets("File_Path")

        'Log File Path
        LogFilePath = ws1.Range("C10").Value

        'Delete Sheet Data
        ws.Activate
        ws.Range("A1:K200").ClearContents

        'Copy data from textFile
        Dim oFso: Set oFso = CreateObject("Scripting.FileSystemObject")
        Dim oFile: Set oFile = oFso.OpenTextFile(LogFilePath, 1)

        sText = oFile.ReadAll
        oFile.Close

        ws.Range("A1").Value = sText

End Sub

Ниже приведены данные текстового файла:

INFO]Library export started at Fri Sep 06 14:04:49 GMT+05:30 2019   
[INFO]Library export: Exporting all parts into CSV file : C:\Users\CHS Library growth.csv   
[INFO]Library export: Fetching all parts Fri Sep 06 14:04:55 GMT+05:30 2019 
[INFO]Library export: Started writing parts into file Fri Sep 06 14:05:05 GMT+05:30 2019    
[INFO]Library export ended at Fri Sep 06 14:05:05 GMT+05:30 2019    
[INFO]Number of Connector part(s) received: 25  
[INFO]Number of Connector Seal part(s) received: 15 
[INFO]Number of Solder Sleeve part(s) received: 2   
[INFO]Number of Tube part(s) received: 1