哦。。我忘了说了，是文件夹下的多个文件中的数据
追答建议可以一个数组存一个表。如果你知道这些表的名字，那么只要依次打开，依次存到每一个数组就可以了。
格式做到统一就可以了，其实vba 写起来也比较麻烦的本回答被网友采纳
想请教一下,excel中如何用vba引用另一个文件夹内的相对应具体excel文件数...
用workbook open 打开那个工作簿，然后把需要引用的数据存到一个数组，这样处理速度比较快。然后那个表格就可以关闭了，需要用到数据的时候就从数组取得。
excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决
在Excel中，利用VBA可以轻松实现跨工作簿的数据调用。首先，你需要在工作簿的宏录制功能中开始操作。点击左下角的录制宏按钮，为即将执行的操作创建一个宏。在宏名处，输入一个易理解的名称，例如"DataTransfer"，并选择存储在"个人宏工作簿"中，然后点击"确定"。录制完成后，通过点击停止录制宏按钮暂停...
excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决
1、点击Excel界面左下角的录制宏按钮录制宏。2、在【宏名】处输入一个有意义的名称，帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。4、按Alt+F11打开VBE界面，如下图。5、在代码部分...
如何用函数或VBA调用(引用)另外一个工作表的数据
1、首先，在Excel表格中输入如图内容，以方便在VBA中进行读取和处理操作。2、进入VBA环境，可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”，从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”，右击“按钮”，从其扩展菜单中选择“属性”项。...
VBA怎么在文件夹内,提取EXCEL的特定内容?
i = Cells(Rows.Count, 1).End(3).Row Set fso = CreateObject("scripting.filesystemobject")Set myfolder = fso.GetFolder("D:\\a") '引号内填写文件夹a的完整路径 For Each myfile In myfolder.Files If myfile.Name Like "*.xls*" Then Set wb = Workbook.Open(myfile.Path)i = i ...
EXCEL 如何使用VBA引用不同工作薄中同一个单元格的内容
这个只能绕个圈子，就是用vba替你写单元格里的公式。首先用dir函数提取你需要引用的文件名称，然后在把路径名称单元格地址组合起来循环，让vba去替你写每个公式就出来了，但是这个程序编完了运行会很慢，我的几百个数据提取要大概10几20多秒！
VB怎么通过一个EXCEL表中的内容读取另一个EXCEL表中的内容
如果你插入的是窗体控件，很简单的。（activex控件比较麻烦，得用vba代码）右键点车间（1）控件，设置格式，最后一个标签“控制”，单元格链接处点到比如sheet1的g1，确定。在sheet2的a1输入 =if(sheet1!g1,"车间（1）","车间（2）")就可以了。
如何使用vba调入其它EXCEL文件中的数据
要利用VBA在单元格里进行循环，可以用for结合cells属性，或者用for each ……in 来完成。比如要在A1:A10循环，报出每一个单元格的内容。Sub T1()For i = 1 To 10 MsgBox Cells(i,1)Next End Sub Sub T2()For Each x In Range("A1:A10")MsgBox x Next End Sub ...
如何用宏批量提取指定文件夹中所有excel表格中指定sheet的内容?
下面是一个示例的VBA代码，可以帮助您批量提取指定文件夹中所有Excel表格中特定工作表的内容，并将其汇总到一张表中：vba Sub ExtractDataFromSheets()Dim FolderPath As String Dim FileName As String Dim wbSource As Workbook Dim wsSource As Worksheet Dim wsDestination As Worksheet Dim LastRow ...
EXCEL VBA中怎么把另外一个EXCEL文件的sheet1完全(数据及格式)复制到...
按ALT+F11,插入一个模块,输入下列代码.即可 Sub copyAll()fname = "C:\\Book2.xls" '需要复制的excel文件地址及文件名,你自己修改 Set d = GetObject(fname) '打开文件 d.sheets("sheet1").Cells.Copy ActiveSheet.Cells(1, 1) '将sheet1完全复制到当前表 d.Close '关闭文件 Se...
