excel里面我想 用VBA实现调用另一个工作簿中的数据怎么解决

 我来答
刺友互
高粉答主

2019-09-27 · 每个回答都超有意思的
知道答主
回答量:3979
采纳率:100%
帮助的人:72.7万
展开全部

1、点击Excel界面左下角的录制宏按钮录制宏。

2、在【宏名】处输入一个有意义的名称,帮助以后识别该宏的功能。本例按照默认名称命名。选择将宏录制在【个人宏工作簿】并点击【确定】按钮。

3、马上点击Excel界面左下角的停止录制宏按钮停止宏的录制。

4、按Alt+F11打开VBE界面,如下图。

5、在代码部分输入或者粘贴执行某项特定功能的代码。

6、在功能区(Ribbon)上鼠标右键,选择【自定义快速访问工具栏】。

7、向窗体中拖动一个“标签”和一个“按钮”,右击“按钮”,从其扩展菜单中选择“属性”项。

8、双击“获取Excel数据”按钮,在打开的代码编辑窗口中,输入以下代码。

9、双击“Sheet1”工作表,在弹出的代码编辑窗口中输入如下代码。

10、返回Excel表格,激活Sheet1工作表,就可以看到窗口弹出,同时点击“获取Excel数据”按钮,就可以读取Excel中的数据啦。

云中老鼠
推荐于2016-04-03 · TA获得超过830个赞
知道小有建树答主
回答量:289
采纳率:0%
帮助的人:353万
展开全部
此题是vba代码运用的问题。这里不想给出代码,而是给出方法,授人以渔。
excel的vba确实能给人方便,提高效率。但它的内置规则、控件引用确实挺考人记忆力。我们不是百科全书,如何不记忆代码规则实现编程?
答案是用excel的宏。你可以测试一下,在工作簿1中录制宏,在a1乱打字,然后点击另外一个工作簿,在b1乱打字,结束录制。
当打开这个宏的时候,是不是多了一段。
Windows("×××.xls").Activate
Range("A1").Select
……
这个是不是满足你需要解决的问题。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
WDZZYC
2018-03-08 · TA获得超过751个赞
知道小有建树答主
回答量:849
采纳率:69%
帮助的人:405万
展开全部
Dim wb As Workbook
Application.ScreenUpdating = False
Set wb = Workbooks.Open(要调用的工作薄的路径及名称)
‘路径及名称格式如下 ThisWorkbook.Path & "\Back.xlsx")
With wb.Sheets("表名 不是工作薄名").range(要调用的单元格)
对调用单无格的操作
End With
wb.Close 1
Application.ScreenUpdating = True
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
盗娠羚假
2018-01-11
知道答主
回答量:1
采纳率:0%
帮助的人:913
展开全部

录制宏的用法只能测试出一些初级VBA用法,很多VBA功能无法通过此种方法测试。比如更改单元格字体,比如调用其他工作簿数据。虽然是挖坟,但我必须指出!请别在这种问题下,用此种回答误导后人!

以下是我一段调用其他工作簿的代码,你可以参考下,但是我坦言,这个方法并不快速。

    Dim myApp As New Application
    Dim sh As Worksheet
    Dim Temp As String
    Dim arr
    Temp = ThisWorkbook.Path & "\被引用工作簿名称.xls"
    myApp.Visible = False
    Set sh = myApp.Workbooks.Open(Temp).Sheets("被引用工作表名称")
    ThisWorkbook.Sheet1.Range(****)=sh.Range(****)
    Set sh = Nothing
    Set myApp = Nothing
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 1条折叠回答
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式