你过来--我保证打死你
1.怎样在EXCEL的VBA中打开一个WORD文件
'首先要在vba中引用Microsoft Word 11.0 Object LibraryDim Wdapp As Word.ApplicationDim WdDocument As Word.DocumentDim UserFile As StringPrivate Sub CommandButton1_Click() Set Wdapp = New Word.Application UserFile = Wdapp.Path & "\1.doc" Set WdDocument = Wdapp.Documents.Open("c:\1.doc") Wdapp.Visible = TrueEnd Sub。
2.excel中如何通过VBA打开word文件和ppt文件
一、打开word文件代码：Set wo = CreateObject("Word.Application")
wo.Documents.Open ThisWorkbook.Path & "\流程.doc"
wo.Visible = True
二、打开ppt文件代码：方法1:
Set wo = CreateObject("Powerpoint.Application")
wo.Visible = True
wo.Presentations.Open ThisWorkbook.Path & filename方法2:Sub dd()Dim filepath$, filename$
filepath = Chr(34) & ThisWorkbook.Path & filename & Chr(34)
Shell "POWERPNT.EXE " & filepathEnd Sub附：双击打开PPS文件，在演示完后退出PPS时并没有PowerPoint主窗口保留，但在Excel中使用VBA打开的PPS文件，在演示完PPS退出后，PowerPoint主窗口仍然打开。
这里使用一个循环判断演示窗口是否存在，加上错误捕捉程序来处理上面这个问题。
PrivateSub CommandButton1_Click()
Dim wo AsObject Dim app AsObject
' 创建PowerPoint应用实例
Set app = CreateObject("Powerpoint.Application")
' 使PowerPoint可见
app.Visible = True ' 打开PPS文件
Set wo = app.Presentations.Open(ThisWorkbook.Path & "\a.pps")
' 当PPS演示结束时，wo对象的SlideShowWindow不存在，捕捉到错误
OnErrorGoTo errHandle
' PPS演示时全屏
3.VBA word打开excel 并取数
首先alt+f11，工具引用，勾选microsoft excel 11.0 object library，然后插入模块
Sub op()
Dim app As New Excel.Application
Dim wb As Excel.Workbook
Set wb = app.Workbooks.Open("d:/tt.xls")
MsgBox wb.Sheets("sheet1").Range("c5")
app.Quit
End Sub
子易空间站 - Excel培训专家
4.vba,word和excel相互调用
总是要有一个打开的时机的，总要有一段打开的代码，不然怎么凭空打开，怎么获取打开的文件名.
如果你想在你的宏运行前打开，你可以把调用与打开的代码放在宏运行的前面.
如：以excel打开word为例，你可以在Workbook_Open下放置你调用和打开word 的代码：
Private Sub Workbook_Open()
dim aaa as 。application
End Sub
方法你应该比较熟悉了，就是在vbaproject下双击ThisWorkbook，然后在上边的下拉列表里选对象和事件.
如果在宏中用路径打开被调用的文件，那么该文件就必须放在路径指定的位置，我不想这样。我想放在任意位置。
放在任意位置你可以用一个打开对话框呀，
如下面代码：
Dim fd As FileDialog
Dim Wbook As Workbook
Dim rowindex As Integer
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Filters.Add "EXCEL 文件"， "*.xls", 1 '过滤
If .Show = -1 Then
rowindex = 1
For Each vrtSelectedItem In .SelectedItems
Set Wbook = Workbooks.Open(vrtSelectedItem)
5.我在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
大概就是这样一个过程。
6.如何在EXECL中用VBa打开Word,并输出数据到WORD中,保存,关闭
在EXcel的VB编辑器中插入一个模块，输入如下代码试试看。
Sub ExcelToWord()
Dim WordObject As Object '声明一个对象变量，这里即将声明为Word对象
On Error Resume Next
Set WordObject = CreateObject("Word.Application") '用set来创建Word对象，这里是运行Word程序，但未新建文档
WordObject.Visible = 0 '后台运行Word对象，只在任务管理器中存在WinWord.exe进程，但在任务栏上看不到word；如果为1或者True则可以看到word运行界面
WordObject.Documents.Add DocumentType:=wdNewBlankDocument '新建一word文档
'以下为获取Excel表格中的内容，准备把数据传送给Word，可以根据自己的实际需要定制代码，这里只是示例代码
Excel.Application.Sheets(1).Activate '切换当前电子表格的表1为当前激活表
Excel.Application.Sheets(1).UsedRange.Select '选中当前激活表的所有数据
Selection.Copy '将选中的区域进行复制
WordObject.Application.Activate '将后台运行的Word激活为当前窗口
WordObject.ActiveWindow.Selection.Paste '将刚才从Excel中复制进剪贴板中的内容粘贴进word中来
WordObject.Saved = True '将保存文档的Saved属性设置为True，这样后台运行的Word在保存文档时就不会弹出是否保存的对话框了，达到悄无声息的效果
WordObject.ActiveDocument.SaveAs "D:\temp\导出数据.doc" '调用saveas命令保存文档，根据实际，指定文档的保存路径和名称
WordObject.Application.Quit '退出并关闭程序文档
Set WordObject = Nothing '释放对象
End Sub
7.VBA中如何打开一个文件夹内的所有EXCEL文件
注意 c:\a 目录下的文件不要太多，免得死机 Sub 打开excel表格（） Dim myPath$, myFile$, AK As WorkbookApplication.ScreenUpdating = False '冻结屏幕，以防屏幕抖动 myPath = "c:\a\" '把文件路径定义给变量 myFile = Dir(myPath & "*.xls") '依次找寻指定路径中的*.xls文件 Do While myFile <> "" '当指定路径中有文件时进行循环 If myFile <> ThisWorkbook.Name Then Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件 End If myFile = Dir '找寻下一个*.xls文件 Loop Application.ScreenUpdating = True '冻结屏幕，此类语句一般成对使用 End Sub。
8.vba word 调用 excel
在有word文件的文件夹中新建一个excel工作簿，打开工作簿，按Alt+F11，把下面的代码复制进去，按F5执行。
代码会复制work文件的前300个字符到excel中。
Sub test()
Dim i%, myName$, myPath$, AppWord As Object
Set AppWord = CreateObject("Word.Application")
myPath = ThisWorkbook.Path & "\"
myName = Dir(myPath & "*.doc*")
With ActiveSheet
.Columns("A:B").ClearContents
Do While myName ""
AppWord.Documents.Open Filename:=myPath & myName
i = i + 1
.Cells(i, 1) = myName
.Cells(i, 2) = AppWord.ActiveDocument.Range(Start:=0, End:=300).Text
AppWord.ActiveDocument.Close False
myName = Dir
Loop
End With
AppWord.Quit
Set AppWord = Nothing
MsgBox "已完成。"
End Sub
9.如何使用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 或再次单击“相对引用”按钮 为止。 执行需要记录的操作。
单击“停止录制”工具栏上的“停止录制”按钮 。 。
转载请注明出处51数据库 » vbaword里打开excel
