作者：乔山办公网日期：
返回目录：word文档
'首先要zd在专vba中引用属Microsoft Word 11.0 Object Library
Dim Wdapp As Word.Application
Dim WdDocument As Word.Document
Dim UserFile As String
Private Sub CommandButton1_Click()
Set Wdapp = New Word.Application
UserFile = Wdapp.Path & "\1.doc"
Set WdDocument = Wdapp.Documents.Open("c:\1.doc")
Wdapp.Visible = True
End Sub
ThisWorkbook属性可以返回一个 Workbook 对象，该对象代表当前宏代码运行的工作簿，而Path属性可以返回文件的路径这样就可以用在Workbook_Open事件中加入下面的代码打开“报表.xls”了。
Private Sub Workbook_Open()
Dim FN As String
FN = ThisWorkbook.Path & "\报表.xls"
If Len(Dir(FN)) = 0 Then
MsgBox "找不到文件：" & vbCrLf & FN, vbExclamation, "错误"
Else
Workbooks.Open Filename:=ThisWorkbook.Path & "\报表.xls"
End If
End Sub
而要打开一个文件夹里所有的文件，就需要用到FileSystemObject 对象，下面这个例子是在一个新工作表中列出指定文件夹内所有xls文件的实例：
Sub ShowAllXlsFile()
Dim GetFile As String, GetPFN As String, GetExt As String
Dim Fso, PF, AF, FN, i, j
GetFile = Application.GetOpenFilename("Excel 文件 (*.xls), *.xls", , "请选择文件夹所在e79fa5e98193e78988e69d83336的任意一文件")
If CStr(GetFile) <> "False" Then
Sheets.Add
i = 0
j = 0
Set Fso = CreateObject("Scripting.FileSystemObject")
GetPF = Fso.GetParentFolderName(GetFile) & "\"
Set PF = Fso.GetFolder(GetPF)
Set AF = PF.Files
For Each FN In AF
j = j + 1
GetExt = Fso.GetExtensionName(FN)
If GetExt = "xls" Then
i = i + 1
Cells(i, 1) = FN.Name
End If
Next
MsgBox "总计所有类型文件" & j & "个！" & vbCrLf & "总计Excel文件" & i & "个！"
Else
MsgBox "没有选择文件夹！"
End If
End Sub
可以的，如果你WORD里的格式也是统一的就更好弄了，具体可以看一下你的文件
挺简单的。最关键的就是让7a64e58685e5aeb9332word的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
大概就是这样一个过程。