请教各位excel大师,如何利用VBA调用另一个excel中的数据

我想将data.xls中sheet1中的数据调到data1.xls中的sheet1中,用VBA应该怎样实现?

把2个工作薄打开,在data1中按ALT+F11,新建一个模块,插入如下代码,光标停在代码中间,按F5运行。
Sub Macro2()
Windows("data.xls").Activate
Cells.Select
Selection.Copy
Windows("data1.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select

End Sub
温馨提示:内容为网友见解,仅供参考
第1个回答  2010-11-01
简单的话可以录制个“复制”“黏贴”来看看代码
复杂点的话可以用sql

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文件中的数据
要利用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 ...

vba 在汇总excel中打开另一个excel的相关操作
打开VBA代码编辑器并放在操作页面右边,选中某个代码行,在操作页面中录入两行数据点保存,一步一步的跟踪代码,就能看到每一步代码的效果。是不是非常简单啊?小伙伴们可以去试一试。总结:这一期主要讲了Excel宏录制的实际应用 - 信息录入功能,不用手写任何一段VBA代码,轻松实现信息录入,保存。包括:...

怎样在一个EXCEL的VBA里调用另一个EXCEL里的自定义VBA函数
用Run方法:=Application.Run("B.xls!函数名“,[参数])

excel使用VBA调用另一工作薄指定工作表中指定区域的数据
不用那样,直接用:sheet3.range("A1:W600")=sheet2.range("A1:W600") 就行了。这样试试,:range("A1:W600")=Wb.Sheets(2).Range("A1:W600")`

excel vba 跨工作簿的数据提取
做了两个模拟的表,具体如下。表1 表2 然后在表1中使用vlookup函数抽取表2的编号,公式=VLOOKUP(B2,Sheet2!A:B,2,0),下拉。N\/A项为表2中没有的项目,无法抽取。

excel宏 遍历另外一个表的数据
在每一个Excel文件中的A3位置录入“百度”两个字。具体操作步骤为:1、首先,打开vba编辑框。2、要在A3位置输入百度两个字,编写成VBA代码为:Range(A3)=百度。3、将遍历文件的VBA代码加上去。

vba读取另一个excel的信息
Private Sub Worksheet_Change(ByVal Target As Range)Dim wb As Workbook, sh, a, m, rIf Target.Column = 7 ThenSet wb = GetObject(ThisWorkbook.Path & "\\B.xlsx")Set sh = wb.Worksheets(1)a = Target.ValueSet m = sh.Range("D:D").Find(What:=a, LookAt:=xlWhole)If m Is...

相似回答