如何將記事本中的文本複製到excel

Question

我可以通過excel打開記事本，但不知道如何複製文本。

我試過在谷歌也，但無法獲得任何相關的好信息。

Answer 1

通過VBA 打開記事本文件 「TESTFILE.TXT」，選擇所有的數據，複製並在Excel :)

粘貼，如果你是問有關VBA然後做這樣的

Sub ImportText() 
    Dim Text 
    Dim i As Long 

    Application.ScreenUpdating = False 
    'put your own path below 
    Open ActiveWorkbook.Path & "\MYFILE.txt" For Input As #1 
    i = 1 
    Do While Not EOF(1) ' Loop until end of file. 
     Input #1, Text 
     Range("a" & i) = Text 
     i = i + 1 
    Loop 
    Close #1 
End Sub 

Answer 2

Set objFileToRead = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Users\Kalim\Desktop\Zeeshan\zeeshan.txt",1) 
Dim strLine 
do while not objFileToRead.AtEndOfStream 
    strLine = objFileToRead.ReadLine() 
    msgbox(strLine) 
    Set objExcel = CreateObject("Excel.Application") 
    Set objWorkbook = objExcel.Workbooks.open("C:\Users\Kalim\Desktop\Zeeshan\test3.xlsx") 
    a=Split(strLine,":") 
    b=ubound(a) 
    For i=0 to b 
     If a(0)="50" Then 
     objExcel.Cells(3,4).Value = a(1) 
     End If 
    Next 
    objWorkbook.Save 
    objWorkbook.Close 
    msgbox("Execution completed") 
loop 
objFileToRead.Close