请教如何用VBA实现调用表格数据向文档的赋值？？？

jackiedyw

各位大虾
　　我想在《操作表格》中编写一个控件完成如下几个内容：
　　一、用该表格中的数据“10、20、……、60”替换《目标文档》中的相关内容；
　　二、复制《数据表格》中的表格一，粘贴到《目标文档》对应位置中；
　　三、复制《数据表格》中表格二的相应数据，粘贴到《目标文档》对应位置中；

　　后生我在这里先谢谢各位了！


此为相应文件： 模板.rar (26.7 KB, 下载次数: 6)

2013-1-10 14:31 上传

点击文件名下载附件

jackiedyw

我试用如下代码实现要求中的第一点：
[code=vb]Private Sub CommandButton2_Click()
   Dim Word对象 As New Word.Application, 当前路径, 导出文件名, 导出路径文件名, j
   Dim Str1, Str2
   当前路径 = ThisWorkbook.Path
   判断 = 0
   
      导出文件名 = "目标文档（结果一）.doc"
      FileCopy 当前路径 & "\目标文档.doc", 当前路径 & "\" & 导出文件名
      导出路径文件名 = 当前路径 & "\" & 导出文件名
      With Word对象
        .Documents.Open 导出路径文件名
        .Visible = False
        For j = 1 To 6 '填写文字数据
           Str1 = "数据" & Format(j, "000")
           Str2 = Sheets("Sheet1").Cells(2, j)
           .Selection.HomeKey Unit:=wdStory '光标置于文件首
'  以下代码是用word录制的【全部替换】宏。
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = Str1
        .Replacement.Text = Str2
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
           
        Next j
        
      End With
      Word对象.Documents.Save
      Word对象.Quit
      Set Word对象 = Nothing
   If 判断 = 0 Then
      i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
   End If

End Sub
[/code]

好像在第18句出错了，何故？

请大能指点，谢谢！

jackiedyw

麻烦各位高手帮帮忙，或者分别实现某个功能也好。{:soso_e127:}

jackiedyw

再次请大能帮忙、我必感激涕零致使马尿一地啊！！

jackiedyw

兄弟姐妹们

请支持一下啊

jackiedyw

各位大虾帮帮忙
谢谢

jackiedyw

请大家帮帮忙
谢谢！！