一、我在word vba 环境下,怎么可以调用打开指定EXCEL文件
挺简单的。最关键的就是让word的VBA能调用excel的VBA的函数库。具体做法如下:
1)添加函数库,让excel和word的VBA函数共享
要用VBA联合操作word和excel,首先选定是用word的VBA来操作excel还是用excel的VBA来操作word,然后调出你选定的VBA,在工具〉参照设定中把Microsoft Office15.0 Object Library和Microsoft Excel15.0 Object Library给选上。这个十分有必要,因为word和excel的vba的一些函数并不是通用的。
2)连接excel
具体的方式如下:
Sub Macro1()
Dim ExcelApp As Object
Dim myBook As Object
Dim mysheet As Object
If Tasks.Exists("Microsoft Excel") = True Then Tasks("Microsoft Excel").Close
Set ExcelApp = CreateObject("Excel.Application")
Set myBook = ExcelApp.Workbooks.Open("D:\Users\Administrator\Desktop\练习\2 WROD\新建文件夹\1.xls") 'excel的位置,用
'thisworkbook.path可设置为
'相对路径
Set mysheet = myBook.Worksheets("Sheet1") 'sheet名
With mysheet
'调用数据计算部分
end with
大概就是这样一个过程。
二、如何使用VBA,Excel调试技巧
方法/步骤
进入VBA环境,一种通过宏的方式进入vba环境,另一种就是通过工具---宏---visual basic 编辑器进入,如下图。
双击我们要用vba操作的sheet,这里选择sheet1,如下图。
在打开的代码编辑窗口编写代码,如下图所示。
编写好代码后,我们按快捷键Ctrl+G调出立即窗口(用来显示debug.print输出值和调试输出),如下图所示。
使用F8快捷键单步执行程序,结果如下图,要求我们激活宏。
这是我们的Excel宏的安全级别太高导致,现在我们调整下宏的安全级别,如下图。点击工具--宏---安全性。在安全性对话框中,选中安全级别中或者低,点击确定按钮。
关闭文档,重新打开,打开vba编辑器,点击F8,结果如下图。程序就会单步执行,这里为了演示,故意写了句错误语句。
修改语句后,单步执行如下图所示。我们可以看到i,j的输出值。
调出监视窗口,操作如下图。在编辑窗口空白处右键点击,选择监视添加监视,如下图。可以将变量或者表达式添加到监视窗口里,单步调试时,可以观察变量变化。
调出本地窗口,本地窗口用来查看现有变量的值。操作如下图所示。这样我们就有了自己调试vba的环境了,几个窗口和单步调试,剩下的就是我们要学习一下这门语言了。
三、怎样在Word中用VBA操作表格
1、在新工作表的Sheet1上点击右键 2、选择查看代码 3、点击倒三角,选择Worksheet 4、点击右边倒三角,选择触发方式,如BeforeDoubleClick表示在双击鼠标左键时触发 5、点击候出现如下代码框架 6、输入以下语句:Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格 7、点击保存,然后关闭VBA窗口 8、由于A1,B1没有数据,所以C1为0 9、输入数据后,会发现即使按了回车,C1也不变,因为设置的是双击鼠标左键触发。
10、双击鼠标左键后就变了 。
四、怎样在Word中用VBA操作表格
1、在新工作表的Sheet1上点击右键
2、选择查看代码
3、点击倒三角,选择Worksheet
4、点击右边倒三角,选择触发方式,如BeforeDoubleClick表示在双击鼠标左键时触发
5、点击候出现如下代码框架
6、输入以下语句:Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)意为将A1、B1单元格求和并放在C1单元格
7、点击保存,然后关闭VBA窗口
8、由于A1,B1没有数据,所以C1为0
9、输入数据后,会发现即使按了回车,C1也不变,因为设置的是双击鼠标左键触发。
10、双击鼠标左键后就变了