【发布时间】:2021-06-18 03:39:07
【问题描述】:
在我的代码中,Copy Excel range and paste to word from 是正确完成的,但是当我为新的 range 应用重复此代码时,它会在多次使用时导致 0x800A03EC 错误。
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
My.Computer.FileSystem.WriteAllBytes(TempWord & "word", My.Resources._1, True)
Dim sWORDFileName = TempWord & "word"
Form1.oExcel.Range("B1:AM46").Copy()
OWORD.DisplayAlerts = False
OWORD.Documents.Open(sWORDFileName)
OWORD.Selection.PasteSpecial(Link:=False, DataType:=9, Placement:=0, DisplayAsIcon:=False) 'Asked question to get this
OWORD.Selection.TypeParagraph()
OWORD.Visible = True
Form1.oExcel.Range("B49:AM93").Copy()
OWORD.DisplayAlerts = False
OWORD.Documents.Open(sWORDFileName)
OWORD.Selection.PasteSpecial(Link:=False, DataType:=9, Placement:=0, DisplayAsIcon:=False) 'Asked question to get this
OWORD.Selection.TypeParagraph()
OWORD.Visible = True
End Sub
【问题讨论】: