没有合适的资源?快使用搜索试试~ 我知道了~
资源推荐
资源详情
资源评论
Sub op()
Dim xlObj As Excel.Application, WK As Excel.Workbook, C As Excel.Range
On Error Resume Next
If Tasks.Exists("Microsoft Excel") = True Then
Set xlObj = GetObject(, "Excel.Application")
Else
Set xlObj = CreateObject("Excel.Application") '´´½¨Excel
End If
Set WK = xlObj.Workbooks.Open("c:\tt.xls")
Dim doc As Word.Document
Dim tbl As Word.Table
Dim Str As String
Set doc = Application.ActiveDocument
Set tbl = doc.Tables(1)
Dim xlObj As Excel.Application, WK As Excel.Workbook, C As Excel.Range
On Error Resume Next
If Tasks.Exists("Microsoft Excel") = True Then
Set xlObj = GetObject(, "Excel.Application")
Else
Set xlObj = CreateObject("Excel.Application") '´´½¨Excel
End If
Set WK = xlObj.Workbooks.Open("c:\tt.xls")
Dim doc As Word.Document
Dim tbl As Word.Table
Dim Str As String
Set doc = Application.ActiveDocument
Set tbl = doc.Tables(1)
资源评论
- kerjo2019-12-16可以使用,没有问题,感谢分享!
- wwiiff2014-03-09不错,不错的句子,正好借来一用!Leo笑2017-04-11有其他需要VBA编程,可以找我免费帮你编写。Leo笑2017-04-11有其他需要VBA变成,可以找我免费帮你编写。
Leo笑
- 粉丝: 334
- 资源: 18
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功