Question

如何在excel自动运行另外一个工作薄vba

Answer 1

需要先打开相应的工作薄。

例如：
WorkBooks.Open "气站" & Format(Now(), "yyyy-mm-dd") & "日报表" & " .xls"Application.Run "气站" & Format(Now(), "yyyy-mm-dd") & "日报表" & " .xls" & "!" & 更新日报表。

联想GeekPro2020

Windows 10

Excel 2019

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

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

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

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

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

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

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

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

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

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