保存Excel中嵌入的Word文档为磁盘文件
- 作者: 虔城鹭岛
- 来源: 51数据库
- 2022-08-17
Sub save_ole_file()
Dim wordObj As OLEObject
Set wordObj = Worksheets("Sheet1").OLEObjects(1)
wordObj.Activate
With wordObj.Object.Application.WordBasic
.FileSaveas "c:\mytempx"
End With
End Sub
推荐阅读
