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

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

amulee 发表于 2010-12-6 11:03
那么这个？**** 本内容被作者隐藏 ****

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

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

好想看看的

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

急需學習！！！！！

		自动登录	找回密码
密码			注册

[练习题] [VBA特2期]抢1:把TXT文本导入到excel中（参考答案在一楼）