如何把文本文件中的数据读到Excel中？

Question

方法太多拉!
你可以在网上搜索一下就能看到了!

Answer 1

Private Sub Form_Click()
    Dim excelApp As Excel.Application
    Set excelApp = New Excel.Application
     
    If excelApp Is Nothing Then
       Set excelApp = CreateObject("Excel.application")
       If excelApp Is Nothing Then
          Exit Sub
       End If
    End If
    excelApp.Visible = True
    Me.MousePointer = vbHourglass
    excelApp.Workbooks.Add
    ‘Cells(1, 1)为筛的坐标（行，列）
      ’ Text1.Text 文本内容
    excelApp.ActiveSheet.Cells(1, 1).Value = Text1.Text    Me.MousePointer = vbDefault
    Set excelApp = NothingEnd Sub

Answer 2

谢，就不用啦！给多点分啦！