Comment faire pour copier le texte dans le bloc-notes pour excel

Je suis en mesure d'ouvrir le bloc-notes par excel, mais ne sais pas comment faire pour copier le texte.

J'ai essayé dans google aussi, mais pas en mesure d'obtenir toute bonne info.

InformationsquelleAutor user1198699 | 2012-11-14
  1. 1

    ouvrir le fichier de bloc-notes "TESTFILE.txt" grâce à vba, sélectionnez toutes les données, de les copier et de les coller dans excel 🙂

    et si vous leur demandez à propos de vba alors faites comme 

    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
    InformationsquelleAutor Freak
  2. 0
    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
    InformationsquelleAutor user9311794