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字
上传中....