求助VBA读取TXT数据

还是rox · 发表于 2013-4-1 09:51

本帖最后由还是rox 于 2013-4-1 11:43 编辑

我的TXT文件中，都是每行2个数值用空格隔开，但中间的有多少个空格不知道，例如：
1    232
23123    123
343    2342352
123 4324324
这种数值，总更改10行左右
我想通过读取每行空格前得数据和空格后的数据到EXCEL指定的单元格，例如：
A1=1 B1=232
A2=23123 B2=123
A3..........
能做到嘛？希望达人帮助。

求助VBA读取TXT数据.rar (4.41 KB, 下载次数: 90)

hnwxm · 发表于 2013-4-1 10:16

先启动Excel, 再用打开文件的方法，主意文件类型选.TXT即可。
如果文件多的话可以考虑用VBA.

还是rox · 发表于 2013-4-1 10:28

有人帮忙看看嘛？》谢谢了。

wj2368 · 发表于 2013-4-1 10:49

。。。。。。。。。。。

crazy0qwer · 发表于 2013-4-1 10:55

本帖最后由 crazy0qwer 于 2013-4-1 11:08 编辑

Sub AAA()
Open ThisWorkbook.Path & "" & "求助.txt" For Binary As #1
s = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
Ar = Split(s, vbCrLf)
Range("a1").Resize(UBound(Ar)) = Application.Transpose(Ar)
Application.DisplayAlerts = False
Columns("A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Space:=True
Application.DisplayAlerts = True
End Sub

复制代码

还是rox · 发表于 2013-4-1 10:57

wj2368 发表于 2013-4-1 10:49
。。。。。。。。。。。

谢谢。但为什么我在打开文本目录的时候，选择取消，它会出错呢？

Zamyi · 发表于 2013-4-1 10:59

本帖最后由 Zamyi 于 2013-4-1 11:06 编辑

Private Sub CommandButton1_Click()
f = ThisWorkbook.Path & "\求助.txt"
s = CreateObject("scripting.FileSystemObject").OpenTextFile(f).ReadAll
With CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
.SetText Replace(Application.Trim(s), " ", vbTab)
.PutInClipboard
ActiveSheet.Paste [a1]
End With
End Sub

复制代码

wj2368 · 发表于 2013-4-1 11:02

修正上传。。。。

还是rox · 发表于 2013-4-1 11:16

Zamyi 发表于 2013-4-1 10:59

我想要选择路径的功能
Application.GetOpenFilename("文本文件,*.txt")
但为什么我每次选择取消就会出错呢？

Lightzeng · 发表于 2013-4-1 11:24

取消需加判断 if (Application.GetOpenFilename("文本文件,*.txt"))="False" then exit sub （取消则退出过程）

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

[已解决] 求助VBA读取TXT数据

点评