vba 已隐藏的方式打开excel_Excel: 通过VBA代码打开word文件

文章背景:在使用Excel的Userform时,有时想要打开指定路径的word文件。下面介绍打开word文件的一种方式。

示例:

0067ceacbbb387ed595158ccac20d971.png

命令按钮打开文件中的代码如下:

Option ExplicitPrivate Sub CommandButton1_Click()    Dim docApp, path As String        path = TextBox1.Text        Set docApp = CreateObject("Word.Application")        docApp.Documents.Open path        docApp.Visible = True        docApp.Activate        Set docApp = NothingEnd Sub

运行效果:

参考资料:

[1] 调试经验——使用VBA在Excel中打开Word文档(https://blog.csdn.net/hpdlzu80100/article/details/80593099)

[2] Documents.Open method (Word)(https://docs.microsoft.com/en-us/office/vba/api/word.documents.open)

延伸阅读:

[1] Excel 通过VBA代码打开ppt文件

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
以下是一个示例代码,将 Excel 中的 B2:E22 区域的内容复制到 Word 文档的 A 位置: ```vba Sub CopyExcelRangeToWord() Dim excelApp As Object ' Excel.Application Dim excelWorkbook As Object ' Excel.Workbook Dim excelWorksheet As Object ' Excel.Worksheet Dim wordApp As Object ' Word.Application Dim wordDoc As Object ' Word.Document ' 创建一个新的 Excel 应用程序和工作簿 Set excelApp = CreateObject("Excel.Application") excelApp.Visible = False ' 设置为 True 可见,False 不可见 Set excelWorkbook = excelApp.Workbooks.Open("C:\路径\至\Excel文件.xlsx") ' 打开要复制的工作表 Set excelWorksheet = excelWorkbook.Worksheets("Sheet1") ' 复制指定范围的内容到剪贴板 excelWorksheet.Range("B2:E22").Copy ' 创建一个新的 Word 应用程序和文档 Set wordApp = CreateObject("Word.Application") wordApp.Visible = True Set wordDoc = wordApp.Documents.Add ' 在 Word 文档的 A 位置粘贴内容 wordDoc.Range("A").PasteSpecial ' 清除剪贴板内容 Application.CutCopyMode = False ' 关闭并保存 Excel 工作簿 excelWorkbook.Close SaveChanges:=False ' 退出 Excel 应用程序 excelApp.Quit ' 释放对象 Set excelWorksheet = Nothing Set excelWorkbook = Nothing Set excelApp = Nothing Set wordDoc = Nothing Set wordApp = Nothing End Sub ``` 请将代码中的 "C:\路径\至\Excel文件.xlsx" 替换为您要复制内容的 Excel 文件的实际路径。您可以根据需要更改工作表名称和 Word 文档中的位置。 此代码打开指定的 Excel 文件,复制工作表中的指定范围内容。然后,它创建一个新的 Word 应用程序和文档,并将内容粘贴到 Word 文档中的指定位置。最后,它关闭并保存 Excel 工作簿,退出 Excel 应用程序,并释放对象。 希望对您有所帮助!

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值