☰

通过excel打开word的宏

tag-icon • tag-icon microsoft-excel vba
通过excel打开word的宏 
Sub test()
    Set myWorkbook = Application.Workbooks.Open(Filename:=[B1])
    On Error Resume Next
    myWorkbook.Sheets(Cstr([D1])).Activate
    On Error GoTo 0
End Sub

上述宏的工作原理：

  • 在单元格 B1 中提及 Excel 路径

  • 在单元格 D1 中提及工作表名称

当运行宏时，它会打开指定的 Excel 以及工作表。

现在正在寻找一个可以打开单元格 B1 中提到的 Word 文档的宏。

单元格 B1 将包含 Word 文档的路径。

答案1

Sub Open_Word_Document()
    'Opens a Word Document from Excel

    ' Define Word object.
    Dim objWord As Object

    ' Create Word instance.
    Set objWord = CreateObject("Word.Application")

    'Make Word visible.
    objWord.Visible = True

    'Load the file named in Cell B1.    
    objWord.Documents.Open Range("B1").Text

End Sub

修改自来源在这里

相关内容