wordvba操作excel

编程入门行业动态更新时间:2024-10-24 10:24:13

1.如何使用EXCEL及WOrd中的“宏”功能

宏：自动完成频繁执行的任务如果经常在 Microsoft Excel 中重复某项任务，那么可以用宏自动执行该任务。

宏是存储在 Visual Basic 模块中的一系列命令和函数，当需要执行该项任务时可随时运行宏。录制宏时，Excel 会存储在执行一系列命令时每个步骤的信息。

然后即可运行宏使其重复执行或“回放”这些命令。通过录制宏使任务一步完成在录制或编写宏之前，应先制订计划以确定宏所要执行的步骤和命令。

因为如果在录制宏时出现失误，更正失误的操作也会记录在宏中。录制多个宏时，Visual Basic 会将每个宏存放在附属于工作簿的一个新模块中。

例如，如果经常在单元格中输入长文本串，则可以录制一个宏将单元格的格式设置为自动换行。方法是：选定需要自动换行的单元格然后开始录制。

先单击“格式”菜单中的“单元格”命令，然后单击“对齐”选项卡，选中“自动换行”复选框，并单击“确定”按钮，然后单击“停止录制”按钮。使宏易于运行可以在“宏”对话框的列表中选择所需的宏然后运行宏。

如果希望通过单击特定按钮或按下特定组合键来运行宏，您可以将宏分配给某个工具栏按钮、键盘快捷键或工作表中的图形对象。查看和修改宏录制宏之后，可以用“Visual Basic 编辑器”查看宏代码来更正错误或修改宏。

“Visual Basic 编辑器”是为初学者设计的编写和编辑宏代码的程序，它提供了丰富的联机帮助，使用户不必学习编程或 Visual Basic 语言就可对宏进行简单修改。 “Visual Basic 编辑器”将在模块窗口中显示已录制的宏代码。

可以删除“With Selection”与“End With”之间除“。WrapText = True”之外的所有代码行来简化宏。

管理宏利用“Visual Basic 编辑器”，您可以编辑宏、在模块间复制宏、在不同工作簿之间复制宏、重命名存储宏的模块或重命名宏。例如，如果想要用于文本换行的宏还可以将文本变为粗体，则可以再录制另一个将单元格变为粗体的宏，然后将其中的指令复制到文本换行的宏中。

宏的安全性 Microsoft Excel 2000 对可能通过宏传播的病毒提供了安全保障。如果您与其他人共享宏，那么可以使用数字签名来验证其他用户，这样就可保证其他用户的可靠性。

在打开包含宏的工作簿时，可以先验证宏的来源后再启用宏。录制宏请用鼠标指向“工具”菜单中的“宏”，然后单击“录制新宏”命令。

详细说明在“宏名”编辑框中，键入宏的名称。宏名称的首字符必须是字母，其他字符可以是字母、数字或下划线字符。

宏名称中不允许有空格；下划线字符也可以作为分词符。如果要通过键盘快捷键来运行宏，则需要在“快捷键”编辑框中键入一个字母，然后就可以用 CTRL+ 字母（小写字母）或 CTRL+SHIFT+ 字母（大写字母）的方式来运行宏，此处的字母可以是键盘上的任意字母键。

但在快捷键中使用的字母不能是数字或诸如“@”或“#”之类的特殊字符。在包含宏的工作表打开时，宏快捷键将使任何 Microsoft Excel 默认快捷键无效。

在“保存在”下拉编辑框中，单击选定宏所要存放的地址。如果要使某个宏随 Excel 的使用而激活，则需要将该宏存放在 Excel 启动文件夹的“个人宏工作簿”中。

如果还需要包含宏的说明，请在“说明”编辑框中键入相应的文字。单击“确定”按钮。

如果在运行宏时选中了某些单元格，则该宏在每次运行时都将选中原来的这些单元格而无论事先是否选中了其他单元格，因为宏这里记录的是单元格绝对引用。如果要让宏在运行并选择单元格时不考虑活动单元格的位置，则需要将宏设置成为记录单元格相对引用。

单击“停止录制”工具栏上的“相对引用”按钮， Excel 将转而按照相对引用格式继续录制宏，直到退出 Excel 或再次单击“相对引用”按钮为止。执行需要记录的操作。

单击“停止录制”工具栏上的“停止录制”按钮。。

2.一般Word和Excel里的宏命令有什么用

1、让复杂的工作简单化 2、让重复的工作自动化 3、扩充Excel自带的功能（我认为它是可以无限扩充的，只有你想不到的，没有它做不到的，夸张了一点！）事件、对象、语句、函数、方法、属性，把这些东西有机组合在一起，就能解决你的问题。

以下内容仅供参考~~~~~~~ 打开Excel中的VB编辑器，左边双击ThisWorkbook，在右边空白处粘贴以下代码： Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) '捕获单元格被修改事件 'if 。。

then 。

判断语句 IsNumeric（)判断是否是数值的函数 'Target。Value Target为对象，指当前被改变的单元格，value是该对象的属性，表示该单元格的值 '=，等于号是赋值或比较符号，IsNumeric(Target。

Value) = False，这里的=号是作比较，Target。Value = ""，这里的=号是赋予该单元格新的值。

If IsNumeric(Target。Value) = False Then Target。

Value = "" End Sub '结束语句。

3.我在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名