将Excel表格复制到Word:在Excel中选择要复制的表格,点击“复制”按钮,然后打开Word,点击“粘贴”按钮即可将表格复制到Word中。将Word文档复制到CAD:在Word中选择要复制的表格,点击“复制”按钮,然后打开CAD,点击“粘贴”按钮即可将表格复制到CAD中。
1. 将Excel表格复制到Word:在Excel中选择要复制的表格,点击“复制”按钮,然后打开Word,点击“粘贴”按钮即可将表格复制到Word中。
2. 将Word文档复制到CAD:在Word中选择要复制的表格,点击“复制”按钮,然后打开CAD,点击“粘贴”按钮即可将表格复制到CAD中。
代码:
Sub CopyExceltocad()
Dim xlApp As Object
Dim xlBook As Object
Dim xlSheet As Object
Dim wdApp As Object
Dim wdDoc As Object
Dim cadApp As Object
Dim cadDoc As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open("C:\Users\Desktop\test.xlsx")
Set xlSheet = xlBook.Sheets(1)
xlSheet.Range("A1:E10").Copy
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Add
wdApp.Selection.Paste
Set cadApp = CreateObject("AutoCAD.Application")
Set cadDoc = cadApp.Documents.Add
cadApp.Selection.Paste
xlBook.Close False
xlApp.Quit
wdDoc.Close False
wdApp.Quit
cadDoc.SaveAs "C:\Users\Desktop\test.dwg"
cadDoc.Close
cadApp.Quit
End Sub
本站系公益性非盈利分享网址,本文来自用户投稿,不代表码文网立场,如若转载,请注明出处
评论列表(49条)