VBA的一个强项是可以跨应用操作,特别是在office各程序内部。以下代码实现了在Excel中打开Word文档。
代码:
Sub openWord() '在Excel中打开Word文档 ' ' Dim sFName As String, strFilt As String, strTitle As String Dim docApp As Word.Application strFilt = "Word文档,*.doc; *.docx; *.docm" '允许打开的文件后缀名 strTitle = "请选择要打开的Word文档" '对话框标题 sFName = Application.GetOpenFilename(filefilter:=strFilt, Title:=strTitle) If sFName = "False" Then Exit Sub '用户取消选择,则退出程序 Set docApp = CreateObject("Word.Application") '为docApp变量赋值 docApp.Documents.Open sFName docApp.Visible = True docApp.Activate '让打开后的文件显示在桌面(成为当前活动文档) Set docApp = Nothing End Sub
效果: