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
用户登录
还没有账号?立即注册
用户注册
投稿取消
| 文章分类: |
|
还能输入300字
上传中....
虔城鹭岛