论坛 › Excel VBA实战营2期 › [VBA特2期]抢1:把TXT文本导入到excel中（参考答案在一楼）

YANG6815475 发表于 2012-6-21 22:13

amulee 发表于 2010-12-6 11:03 static/image/common/back.gif
那么这个？**** 本内容被作者隐藏 ****

短小精干，直接形成Excel表，但必须先将txt文件命名与vBA一致，且在同一文件或同一盘中才有效。;P

fresh8108 发表于 2012-6-29 15:13

把TXT文本导入到excel中

YANG6815475 发表于 2012-6-30 09:28

Sub 导入文本文件()
    Dim Arr1, Arr2()
    Application.ScreenUpdating = False
    On Error Resume Next
    FileName1 = Application.GetOpenFilename("文本 文件 (*.TXT),*.TXT")
    Open FileName1 For Input As #1
    Arr1 = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    Close #1
       arr3 = Split(Arr1(0), " ")
    ReDim Arr2(1 To UBound(Arr1) + 1, 1 To UBound(arr3) + 1)
    For i = 0 To UBound(Arr1)
      arr3 = Split(Arr1(i), " ")
      For j = 0 To UBound(arr3)
            Arr2(i + 1, j + 1) = arr3(j)
      Next j
    Next i
    Sheets(1).Cells.ClearContents
    Sheets(1).Range("a1").Resize(UBound(Arr2), UBound(Arr2, 2)) = Arr2
    Application.ScreenUpdating = False
End Sub

引用上面的代马，不知是谁的了，存在问题：只能导入列数相同的数字，有8行，其中一行有5列，其余为7列，导出为8行5列有数字！那位能修改下？谢谢！

hgzyc 发表于 2012-6-30 11:43

努力学习中{:011:}

mapsi 发表于 2012-7-12 07:02

干枯天天西厢fgdsfgsdfgdsgsdgsdfgdsf

hrpotter 发表于 2012-8-16 16:43

学习一下                        

任逍遥66 发表于 2012-8-20 15:21

来学习一下！！！

chuangxin_sun 发表于 2012-8-20 15:38

学习。。。。。。。

lpluobin 发表于 2012-9-4 02:35

好想看看的{:1_1:}

lucinda 发表于 2012-11-30 15:16

急需學習！！！！！

查看完整版本: [VBA特2期]抢1:把TXT文本导入到excel中（参考答案在一楼）