怎样通过<em>VB</em>实现多个<em>EXCEL</em>表中不

建一百个CommandButton1，代度码如下问。答
======================
Private Sub CommandButton1_Click()
Dim a(1 To 100) As String, i As Integer
For i = 1 To 100 '循环读内取容A1～A100
a(i) = Cells(i, 1).Text
Next
End Sub

没有细节这样问没有用的。
建议去ExcelHome论坛上查找，那里相似的帖子多，随便找个已经解决了的案例一看，改改就解决了自己的问题了。
我来答

查看全部4个回答



纯纯黄黄

LV.5 推荐于 2017-10-07

楼上的都不可使用
我来给个能用的。如果好用 希望楼主多给点分
你在桌面建立个新的excel 命名为 "汇总" (程序运行完可以改名）
并将你的多个excel 放在 D盘根目录下的 “提取”文件夹 ，即创建个文件夹
并命名为“提取”,注意 这些名字都是不带双引号的。
以上步骤做好 然后打开名为 汇总 的excel
依次点636f7079e799bee5baa6e79fa5e98193335击键盘 alt+F11 alt+i m
把以下代码复制进去
Sub 汇总数据()
Application.ScreenUpdating = False
p = "d:\提取\"
f = Dir(p & "*.xls")
Do While f <> ""
Workbooks.Open p & f
r = r + 1
ActiveSheet.Rows(3).Copy
Workbooks("汇总.xls").Sheets("sheet1").Activate
ActiveSheet.Range("A" & r).Select
ActiveSheet.Paste
Application.CutCopyMode = xlCut
Workbooks(f).Activate
ActiveWorkbook.Saved = True
ActiveWindow.Close
f = Dir
Loop
Application.ScreenUpdating = True
End Sub

代码及注释如下：
Sub main()
f = Dir(ThisWorkbook.Path & "\*.xlsx")'搜索本zd文件内下的所有xlsx格式文件(由于一般带VBA的文件不能保存为xlsx格式，故无需去判断，容是否打开的是本文件）
Do While f <> ""
Workbooks.Open (ThisWorkbook.Path & "\" & f)'依次打开搜索到的文件
Workbooks(f).Sheets(1).Row(3).Copy Sheets(1).Range("A" & Range("A65536").End(3).Row + 1)'将打开的文件第3行复制到本文件最后一个非空行的下一行中
Workbooks(f).Close'关闭文件
f = Dir'赋值下一个文件名给f
Loop'继续循环
End Sub