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 = "【�
相关问答：
在vb中怎么判断，插入到数据库中的值是重复的，本人才刚接触VB语言，甚是有好多地方还不懂，还请各位大侠们给出代码，谢谢了呀！！！
插入之前select一下阿。
或者写一个组合SQL插入语句，例如
IF not Exist(
& ......
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
各位高手赶快帮帮忙。
现在有一个delphi写的dll，函数中有PInteger的返回参数，在delphi中可以正常调用，但是我在vb里写的时候就不知道该怎么来调用了。
请看代码
以下是delphi中的函数定义和调用代码，能正常运� ......
