1、用vba打开浏览框选择文件就可以了 Sub abc（） With Application.FileDialog（msoFileDialogFilePicker） .AllowMultiSelect = False If .Show = -1 Then myfile = .SelectedItems（1） End If End With Workbooks.Open myfileEnd Sub打开工作簿后需要如何操作就可以自己发挥了。
2、mySheet.Cells（R， C） = .Cells（1， C）Next mySheet.Cells（R， C） = .Name R = R + 1 End If End With Next End Sub 如果你已经建好了“汇总”表，请先删除之。
3、在vba中创建一个录制界面，设置输入按钮，设置输入按钮代码实现输入功能，双击输入按钮，输入代码进入代码窗口。2，将需要在表单中输入的文本框连接到指定的单元格，继续输入代码中显示的代码，并使用文本文本框的值链接到我们要输入的工作表单元格。
4、方法/步骤分别有工作表3数据区域如下图所示：按ALT+F11打开VBE编辑器，在工程窗口下的MicrosoftExcel对象右键-插入-模块，新建一个模块1。
5、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。
1、在 Excel 中，您可以使用 VBA 编程来根据一个工作表的数据提取并汇总到另一个工作表。
2、首先假设：你的原始数据所在工作表表名叫：成绩，数据存放在A：F列，A1：F1是数据标题。
3、上句，启动了一个excel对象 exc.Workbooks.Add （Open G：\学习vba的文件\excel数据.xls）上句，利用excel的子对象Workbooks的open方法，打开G盘上的一个 xls文件 exc.Visible = True 上句，是将此对象显示出来。
Z = Dir（ThisWorkbook.Path & \*.*） 其中DIR函数用来指定文件名的字符串表达式，可能包含目录或文件夹、以及驱动器。如果没有找到 pathname，则会返回零长度字符串 （）。
打开一个新的Excel文件。打开Visual Basic，添加一个模块和一个过程，称之为“汇总文件”。将汇总文件名的代码复制到上述过程中，再定义一个变量wb为工作簿类型。添加打开和关闭文件夹下各Excel文件的代码。将各个文件中的第一张工作表复制到当前的工作簿中最后一张工作表的后面。
打开每个工作簿，将数据精准复制到汇总工作表的新子表中。利用VBA的强大功能，通过Dir和InputBox获取文件夹路径，逐一处理每个工作簿，确保数据区域被复制到汇总工作表相应位置。标题行的处理则根据输入进行调整，首次包含，后续则根据需求自动适应。
用PowerQuery可以轻松汇总一个文件夹下所有子文件夹内的所有Excel文件中的数据，而且不用写代码。
到EXCEL文件中，在A1单元格点右键---粘贴，效果如下，在TXT中的每一行数据，粘贴过来后分别占用一个单元格，图六：【提示】A列每个单元格的数据末尾，可能都带有一个空格字符，处理一下即可：选中A列，打开替换对话框，替换内容输入一个空格，替换为 这里不要输入，然后点全部替换，处理完毕。
副本）然后在汇总表中用公式。这要求每次报上来的文件名名称必须一样（当然也可以不管文件名汇总某目录下的全部XLS文件），文件中的工作表名也要保持一致，这样才方便处理。2：汇总表中设置公式。可以由VBA脚本自动加入。因为这个表汇总公式简单。sum（部门1！E2：部门N！E2），下拉填充。
也就是说他要把工作表里的第6行，汇总在一起。比如这样：他说如果你没办法，那他只能手动来复制100个工作表，提取这数据了。我想了下说，我用VBA编程试试。差不多10分钟折腾，我把代码搞定了。
汉字在前，数字在后面的情形。可以用MID，min， find三个函数来实现提取里面的数字。如图：在B2输入“=MID（A1，MIN（FIND（{0，1，2，3，4，5，6，7，8，9}，A1&“0123456789”），20）”2 、把单元格里面所有的数字都提出来。可以使用宏。先打开VBA编辑器。
开始提取 首先是[开发工具]-[代码]-[visual basic]；在弹出的界面中点击插入模块；将以下代码复制到模块中。
