vba复制另一个未打开的excel中的数据

现在有两个excel,分别为1.xls和2.xls
我想让1.xls的sheet1中第一列数据在不打开2.xls的情况下直接复制2.xls中sheet1的第一列数据

第1个回答  2010-06-19
sub copy()
application.Workbooks("有具体路径的文件名").sheets("sheet1").range(源单元格地址).copy ActiveSheet.range(目标单元格地址)
end sub本回答被提问者采纳
第2个回答  2010-06-21
不行的,即使看不见也要后台打开
第3个回答  2010-06-18
我的空间有类似的题目

excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决
在Excel中,利用VBA可以轻松实现跨工作簿的数据调用。首先,你需要在工作簿的宏录制功能中开始操作。点击左下角的录制宏按钮,为即将执行的操作创建一个宏。在宏名处,输入一个易理解的名称,例如"DataTransfer",并选择存储在"个人宏工作簿"中,然后点击"确定"。录制完成后,通过点击停止录制宏按钮暂停...

用vba从一个关闭着的excel表读取数据写入到当前打开的excel表
你可以用Set xlApp = CreateObject("Excel.Application")来建立一个看不到的Excel应用程序对象,然后用xlApp 来替代上面的Application,就会看不到打开的过程了。

怎么用VBA提取别的工作簿的数据
不打开工作表取数据:Sub a()Dim wb As WorkbookDim str, xstr = "D:\\d\\123.xlsx"Set wb = GetObject(str) '取得123这个文件x = wb.Sheets(1).range("a1:c10000") '取得123文件a1:c10000的值Sheets(1).Range("b1") = x '把值取出来放到新的工作表End Sub ...

vba复制另一个未打开的excel中的数据
application.Workbooks("有具体路径的文件名").sheets("sheet1").range(源单元格地址).copy ActiveSheet.range(目标单元格地址)end sub

excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决
1、点击Excel界面左下角的录制宏按钮录制宏。2、在【宏名】处输入一个有意义的名称,帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。4、按Alt+F11打开VBE界面,如下图。5、在代码部分...

...VBA将未打开的xlsx文件a表内A1:J16区域,复制到已打开的excel中...
就算使用VBA调用,也是将那个文件打开才能复制的。如果文件很大,一样会慢。如果您想试试也行,以下是代码 Sub openandcopy()Set excel_book = Workbooks.Open("需要打开的文件路径") '形如"E:\\xxx\\xxx\\xxx.xlsx"保留英文双引号excel_book.Visible = False'使其不可见Set excel_sheet = excel_...

请教如何利用VBA实现将一个工作表复制到另一个工作簿中
结论:VBA编程是一种强大的工具,可以轻松实现工作表在Excel工作簿之间的复制。以下是一个简单的步骤说明:VBA在Excel中扮演了关键角色,特别是在工作表的移动操作中。首先,打开"开发工具"选项,选择"VisualBasic"来启用宏功能。在VBA编辑器中,编写以下代码来创建一个名为"复制表"的宏:SubCopySheet()...

EXCEL求VBA代码,点击按钮实现从未打开的EXCEL表sheet1文件复制内容到当 ...
附件是例子,自己根据情况自行修改

如何用函数或VBA调用(引用)另外一个工作表的数据
1、首先,在Excel表格中输入如图内容,以方便在VBA中进行读取和处理操作。2、进入VBA环境,可以按键盘上的“Alt+F11”进入。右击“Microsoft Excel对象”,从其右键菜单中选择“插入”-“用户窗体”项。3、接着向窗体中拖动一个“标签”和一个“按钮”,右击“按钮”,从其扩展菜单中选择“属性”项。...

vba将一个excel的数据复制到另一个excel中vba把一个表格内容复制到另外...
Public Sub Copy()Range(\\"A1:C10\\").Select '复制的区域,自行修改 Selection.Copy '复制 Workbooks(2).Activate'激活第二个BOOK Range(\\"A1\\").Select'区域,自行修改 ActiveSheet.Paste'粘贴 End Sub

相似回答