[求助]：请教VBA的高手，急！急！急！

zjx1975

我想用vba实现选择文档，并用提取文档中的数据。我是个初学者不知道怎么实现。

例如：文档的内容为
10   100   120   300
20   150   232   345
30   233   349   400
:
:
100 220   232   432
提取出每行的4个数据。文档有多个。

自由的鱼

楼主，试试这个程序，还有二楼的，你的回答说了和没说一样！以后别帖这些无用的！

Sub tt()
Dim i As Integer
Dim j As Integer
Dim hz As Variant
Dim hsz() As Double
Dim ltext() As Variant
Dim textline() As String
i = 1
Open "l:\tt.txt" For Input As #1
Do While Not EOF(1)
ReDim Preserve textline(i)
ReDim Preserve ltext(i, 2)
Line Input #1, textline(i)
hz = Split(textline(i), " ")
For j = 0 To 3
ltext(i, j) = hz(j)
'Debug.Print ltext(i, j)
Next

Loop

End Sub

原来程序的思路是对的。在此进行了部分改正。

2. 
   
3.   [FONT=courier new]
   
4. Sub tt()
   
5.     Dim i As Integer
   
6.     Dim j As Integer
   
7.     Dim hz As Variant
   
8.     '多余的声明
   
9.     'Dim hsz() As Double
   
10.     '存储的是字符串类型
    
11.     'Dim ltext() As Variant
    
12.     Dim ltext() As String
    
13.     Dim textline() As String
    
14.     '默认的数组下限是从0开始的
    
15.     'i = 1
    
16.     Open "c:\tt.txt" For Input As #1
    
17.     Do While Not EOF(1)
    
18.         ReDim Preserve textline(i)
    
19.         '只能重定义最末维的大小，因而颠倒过来
    
20.         '四个元素，应该是0-3
    
21.         ReDim Preserve ltext(3, i)
    
22.         Line Input #1, textline(i)
    
23.         hz = Split(textline(i), " ")
    
24.         For j = 0 To 3
    
25.             ltext(j, i) = hz(j)
    
26.         Next
    
27.         '读取1行之后，计数器应该增1
    
28.         i = i + 1
    
29.     Loop
    
30.     '打开的文件要关闭
    
31.     Close #1
    
32. End Sub
    
33.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub tt()<br />     Dim i As Integer<br />     Dim j As Integer<br />     Dim hz As Variant<br />     '多余的声明<br />     'Dim hsz() As Double<br />     '存储的是字符串类型<br />     'Dim ltext() As Variant<br />     Dim ltext() As String<br />     Dim textline() As String<br />     '默认的数组下限是从0开始的<br />     'i = 1<br />     Open "c:\tt.txt" For Input As #1<br />     Do While Not EOF(1)<br />         ReDim Preserve textline(i)<br />         '只能重定义最末维的大小，因而颠倒过来<br />         '四个元素，应该是0-3<br />         ReDim Preserve ltext(3, i)<br />         Line Input #1, textline(i)<br />         hz = Split(textline(i), " ")<br />         For j = 0 To 3<br />             ltext(j, i) = hz(j)<br />         Next<br />         '读取1行之后，计数器应该增1<br />         i = i + 1<br />     Loop<br />     '打开的文件要关闭<br />     Close #1<br /> End Sub<br />   [/FONT]<br />

zjx1975

谢谢！
   但我在运行时为何在ltext(i, j) = hz(j)  j=3 时，显示下界越界呢？
   还有，如何选择多个txt 文件啊，不会每次都修改程序吧。

自由的鱼

一次读取多个文件是可以的，但不知道你要这样做的原因是什么？把你的标准文件传几个上来，我帮你调试！

zjx1975

我是想把我需要的阀门数据表中的数据提出来，自动生成阀门数据库。但阀门的数据表很多，不是单独一个文件啊。所以我想通过选择阀门数据表，生成不同的阀门。
谢谢你的程序，我已经学习了一下，在你的帮助下，一个文件的读写数据已经能够完成了。
还要往下进行程序的编写。
多个文件的调用我在EXCEL 中我会实现，在CAD中我不知道怎么实现。如果能帮我一下我十分感激。

自由的鱼

多个文件的读取其实也就是一个循环，我帮你试试！

zcf108

我也在学VBA啊，可是 我觉得很难啊

自由的鱼

VBA其实不很难，和VB一样，入门挺容易，但要学到精通就难些！

zjx1975

选取数据文件的时候，可以出现一个（象打开文件的）对话框，进行选择文件么？
要如何实现呢。

自由的鱼

当然可以，用commondialog控件！

Super Demon

commondialog 好象要求有Visual studio 的安装才有使用许可

自由的鱼

VB里就有！

zjx1975

有没有其他的方法，难道我要是给别人安装时，都要安装VB么

自由的鱼

vb倒是不用装，把必要的控件COPY过去就可以了！

一生有你

我很想精通VBA，我看了本《VBA从入门到精通》的书，可看完了，并没有精通啊，我该怎么学呢？该学些什么书呢？帮帮我吧！我很需要学精VBA！！！我也是十分喜欢学的！！能快捷一点吗？