在VBA是如何把excel中表格的一个值与word中的表格（表格格式不相同）中的一格的值同步

显示全部楼层 · 2009-3-30 00:01:08

邮件合并不能用，在excel或word中用VBA都行,最好给出代码，
给出个例子，比如把Tables(1).cell(3,5)的值等于cells(7,3)的值

千问 · 2009-3-30 00:01:08

用vba太复杂了，也不需要用邮件合并，直接在excel对应的单元格copy，然后在word对应的位置粘贴，这时旁边出现一个“选择性粘贴”小方块，下拉菜单选择“匹配目标格式并链接到excel”。一切ok！这时excel有变化，word也跟着同步更新了。...

千问 · 2009-3-30 00:01:08

通过读取excel文件的相应位置更改word表格的相应表格的一个值在word里面建立一个宏，Sub Macro1()Dim WrkBk As Excel.WorkbookDim WrkSht As Excel.WorksheetSet WrkBk = Workbooks.Open("d:\book1.xls")Set WrkS...

千问 · 2009-3-30 00:01:08

这个不需VBA，也不是邮件合并。选中excel的单元格，按“复制”转到word，光标放在目的地，按word菜单：编辑》选择性粘贴。。。“粘贴链接”，右边框选“文本”，带格式文本。。等，看你的需要了。确定。...

千问 · 2009-3-30 00:01:08

Sub 修改WORD表格()Dim wkSheet As Worksheet'定工作表对象Dim i As LongDim wdAPP As ObjectSet wkSheet = ThisWorkbook.Sheets("WriteWord")Set wdAPP = GetObject(ThisWorkbook.Path & "...

千问 · 2009-3-30 00:01:08

都是高手呀...