excel怎么用宏导到word中,再从word中导到另一个excle
发布网友
发布时间：2022-04-24 18:57
共2个回答
热心网友
时间：2022-04-27 03:06
刚好做了一个类似的，仅供参考，加油！
Sub 宏1()
Dim templateFileURl1 As String
Dim templateFileURl2 As String
Dim templateFileURl3 As String
On Error Resume Next
Set WdApp = GetObject(, "Word.Application") '取得对WORDAPPLICATION对象的引用
If Err.Number <> 0 Then '如果无法取得对该对象的引用
Err.Clear
Set WdApp = CreateObject("Word.Application") '创建WORDAPPLICATION对象
WdApp.Visible = True '可见
End If
WdApp.Options.PictureWrapType = wdWrapMergeInline '为嵌入式
On Error Resume Next
Set ShApp1 = GetObject(, "Excel.Application") '取得对excelAPPLICATION对象的引用
If Err.Number <> 0 Then '如果无法取得对该对象的引用
Err.Clear
Set ShApp1 = CreateObject("Excel.Application") '创建excelAPPLICATION对象
ShApp1.Visible = True '可见
End If
On Error Resume Next
Set ShApp3 = GetObject(, "Excel.Application") '取得对excelAPPLICATION对象的引用
If Err.Number <> 0 Then '如果无法取得对该对象的引用
Err.Clear
Set ShApp3 = CreateObject("Excel.Application") '创建excelAPPLICATION对象
ShApp3.Visible = True '可见
End If
templateFileURl1 = ThisWorkbook.Sheets("Sheet1").[b1]
templateFileURl2 = ThisWorkbook.Sheets("Sheet1").[b2]
templateFileURl3 = ThisWorkbook.Sheets("Sheet1").[b3]
Set mysheet1 = ShApp1.Workbooks.Open(templateFileURl1)
Set mysheet3 = ShApp3.Workbooks.Open(templateFileURl3)
Set WdDoc = WdApp.Documents.Open(templateFileURl2) '打开同一路径下的WORD"模板"
With WdDoc
'from excel to word
.Bookmarks("Name").Range.Text = mysheet1.Sheets(1).[a12]
.Bookmarks("Name1").Range.Text = mysheet1.Sheets(1).[a12]
.Bookmarks("Tel").Range.Text = mysheet1.Sheets(1).[b12]
.Bookmarks("Id").Range.Text = mysheet1.Sheets(1).[j12]
.Bookmarks("ConfirmHospital").Range.Text = mysheet1.Sheets(1).[h10]
'from word to final excel
mysheet3.Sheets(1).Range("B1").Value = mysheet1.Sheets(1).[a12]
mysheet3.Sheets(1).Range("B2").Value = mysheet1.Sheets(1).[a12]
mysheet3.Sheets(1).Range("B3").Value = mysheet1.Sheets(1).[b12]
mysheet3.Sheets(1).Range("B4").Value = mysheet1.Sheets(1).[j12]
mysheet3.Sheets(1).Range("B5").Value = mysheet1.Sheets(1).[h10]
End With
'WdDoc.SaveAs Filename:="d:\财务分析\" & name2 & name1 & ".doc"
Set WdDoc = Nothing '释放对象变量
Set WdApp = Nothing '释放对象变量
Set mysheet1 = Nothing '释放对象变量
Set mysheet3 = Nothing '释放对象变量
Set ShApp1 = Nothing '释放对象变量
Set ShApp3 = Nothing '释放对象变量
End Sub
热心网友
时间：2022-04-27 04:24
.打开文字文档以后,先做好表格,接着找到文档中工具栏的“工具”按钮.
2.点击之后,就会弹出一个命令菜单,在其中找到“邮件合并工具栏”,点击“邮件合并工具栏”以后就会出现如下图2的一个工具栏了.
3.在这个工具栏中找到如下图的图标,点击打开数据源
