vb读取excel表里的textbox数据并统计？
一个目录有很多excel表格，超过200个，格式都是一样的，excel文件里有很多textbox，比如textbox1，textbox2等，textbox只能填0，1数据，能不能编写一个vb程序，读取这个目录里的这些textbox并统计在vb对应的text框里，比如这样，有个表叫“表1”：有20个textbox，分别是textbox1，textbox2.。。另一个表叫“表2”：也有20个textbox，分别是textbox1，textbox2.。。，写一个程序，分别统计各个表的textbox1的值到vb程序中，textbox2的值到vb程序中以此类推。就是表要一个个读取然后取它的数据做统计，我找了一个excel的合并文件的宏，不过每次一个个读取进去，到35个左右就读不进去了，而且速度很慢，因为是将很多excel合并成一个大的excel文件，我的想法是不用合并只要读取它的数据就释放它就行，那样就没有那么耗资源了。
VB code:
Sub Main()
Dim This_FileName, My_Obj, My_Path, My_File, My_Str, I, J, K, N, TheSheets()
If MsgBox("您确定要删除以前的记录并开始新的合并吗？", 36, "请确认") <> vbYes Then
Exit Sub
End If
If Sheets.Count = 255 Then
Application.DisplayAlerts = False
Sheets(1).delect
Application.DisplayAlerts = True
End If
Sheets.Add Before:=Sheets(1)
ReDim TheSheets(Sheets.Count - 2)
For I = 2 To Sheets.Count
TheSheets(I - 2) = Sheets(I).Name
Next I
Sheets(TheSheets).Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets(1).Name = "【�
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
我写了一个软件，要用到ACCESS数据库，我再访问ACCESS的时候，我需要从表里读出一行数据，我的程序是这样写的，SQLSTRING="SELECT * from '" &ME.TEXTBOX1.TEXT &"' WHERE ID = '"& ......
