2、 打开HB.xlsx，将“开发工具”菜单加载到EXCEL菜单下。

3、首先右键点击菜单空白处，选择“自定义功能区”，在弹出的对话框里选择主选项卡。然后勾选“开发工具”。如图所示。

4、 制作导入键。点击“开发工具”菜单，选择“插入”--“Activex”控件下的命令按键。在工作表中画一个命令按钮。

5、 单击“开发工具”下的“设计模式”，再双击刚刚创建的命令按钮“CommandButton1”,进入代码编辑框。

6、 将以下代码全部复制到代码框中。

7、 将HB文件保存成启用宏的工作簿。关闭当前代码框，回到EXCEL界面。选择“文件”--“另存为”--“保存类型”下选择“启用宏的工作簿”，OK。

8、打开HB.xlsm,单击按钮。则几个需要合并的EXCEL文件中的工作表A,B,C合并到了HB.xlsm这个文件中。

On Error Resume NextSet wk = Application.Workbooks.Open(f)Workbooks.Item(2).Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)Workbooks.Item(2).Close savechanges:=FalseNextThisWorkbook.SaveEnd Sub

'新建一个工作簿,然后运行此代码,会弹出选择文件窗口,你把需要的文件选中,默认是复制所有文件的第一张工作表到新建的本工作表中.

@堵从往15387876027：如何用VBA语言将一个文件夹中多个excel表,导入到一个新的excel表的不同sheet里? - 金州区0》...... 给你一个打开后复制数据的这种代码Sub zldccmx() Application.EnableEvents = False Application.ScreenUpdating = False Set xap = GetObject(＂N:\Fab\Marking\Cutting\Data.xls＂) '我要得到的文件的的路径是:N:\Fab\Marking\Cutting\Data....

@堵从往15387876027：(VBA)多个EXCEL文件计算 - 金州区0》...... 可以,我只说思路.你就自己写程序吧 1、打开新的excel工作簿,切换到vba代码编辑; 2、设置多维数组,保存文件名、计算结果等; 3、把要计算的文件统一放置一个文件夹中; 4、采用遍历此文件夹中所有excel工作簿; 5、写下执行每个工作簿计算过程的子程序,返回结果保存在多维数组中,且和取得的excel文件名保存一致; 6、输出在当前excel工作簿中.

@堵从往15387876027：如何利用VBA实现,把某个文件夹中的多个EXCEL文件名同步复制到另一张统计用的Excel表中,急啊!!! - 金州区0》...... 具体说就是,在A EXCEL表中设置一个更新按钮,A表中存有两列,一列为文件名,一列为更新时间.存在文件夹B,B中存放多个EXCEL表,并可能再次添加.现在的工作是,如果点击A表中的更新按钮,就比较A中的文件名列和B中的EXCEL文件名,若B中有A种没有的文件,就把B中多出来的EXCEL文件名自动复制到A表的文件名之下,同时自动更新当天日期.已达到同步

@堵从往15387876027：excel vba 代码如何取得一个文件夹里有多少个excel文件, 就是计算一个文件夹里有几个e - 金州区0》...... Sub tt() Dim p$, f$, n% p = ThisWorkbook.Path & ＂\＂ '换成你设定的路径 f = Dir(p & ＂*.xls*＂) If f ＂＂ Then Do Until f = ＂＂ n = n + 1 f = Dir Loop End If MsgBox n End Sub

@堵从往15387876027：VBA中怎么实现一个文件夹多个文件统一赋值. - 金州区0》...... 只能写程序逐个打开文件改.没有取巧的办法.

@堵从往15387876027：求excel VBA 取一个文件夹中所有excel文件的某一行某一列值,赋值到当前excel的代码.最好有注释. - 金州区0》...... 我之前有做过一个. 是窗口形式, 可以选取所有目标EXCEL文件, 再对它们一一打开, 搜索里面有xxxx-xxxxxxxx-xxxx格式的字符,并将其写入当前工作簿....(后面还有功能)...如下,你自己改一下吧

@堵从往15387876027：求一个excel的VBA,把多个excel中同一个单元格的数据都复制到一个汇总的excel中 - 金州区0》...... 给你写了下面的代码,测试没有问题,如果你使用中遇到问题请拷屏(错误提示和代码):Option Explicit Sub ygb() Dim i, p, f, st As Worksheet Set st = ActiveSheet p = ＂e:\temp\文件\＂ '文件夹 i = 1 f = Dir(p & ＂*.xls＂) Do While f ＂＂ ...

@堵从往15387876027：如何提取文件夹中多个相同格式excle工作簿的指定单元格数据,能将您的VBA展现一下吗?谢谢! - 金州区0》...... 您好,如果上百个文件名有规律、指定单元格所在的Sheet名称都相同(例如都是Sheet1表中),其实用公式就可以解决. 否则,就要用VBA遍历每个文件,打开后取数据,填到您新建的表中,然后关闭;操作下一个……

@堵从往15387876027：一个VBA程序怎么处理多个excel 表格 - 金州区0》......引用这些表格的 地址来源 即可

@堵从往15387876027：跪求用VBA实现提取一个文件夹里的很多EXCEL表格固定SHEET到一新的EXCEL不同的SHEET中 - 金州区0》...... 录制宏试试,然后做适当修改....