Excel与Word交互（1）

今天说说怎么在Word中写代码控制Excel打开对应的工作薄文件。

1. workbooks.Open

Sub Word中打开Excel文件() Set XLApp = CreateObject('excel.application') '设置要打开的文件 Path = getFilePath(1) '打开文件 XLApp.workbooks.Open Path 'Excel程序可见 XLApp.Visible = True '获取对应打开文件A1单元格的值 str1 = XLApp.Sheets(1).Range('A1').Value Debug.Print str1Set XLApp = NothingEnd Sub
Function getFilePath(Optional FileStyle$ = '*.*') '默认为任何文件 '//自定义函数的作用：弹出对话框，让用户选择一个文件，函数返回一个数组，里面存储文件的路径 Dim Fd As FileDialog, vrtSelectedItem Dim xrr() As String, X& Set Fd = Application.FileDialog(msoFileDialogFilePicker) '弹出选择对话框 With Fd .AllowMultiSelect = False '不允许多选 If .Show <> -1 Then Exit Function '没有选上则退出 For Each vrtSelectedItem In .SelectedItems X = X + 1 ReDim Preserve xrr(1 To X) xrr(X) = vrtSelectedItem Next End With Set Fd = Nothing '清空对象 If X > 0 Then getFilePath = xrr '赋值End Function

2.操作视频