首页
学习
活动
专区
工具
TVP
发布
社区首页 >问答首页 >尝试用excel单元格内容替换书签时出现MS Word自动错误

尝试用excel单元格内容替换书签时出现MS Word自动错误
EN

Stack Overflow用户
提问于 2019-06-29 05:46:33
回答 2查看 166关注 0票数 1

我的代码的目标是在整个word文档中查找书签,并用客户的姓名、地址或评估金额替换这些信息。我的代码搜索包含特定信息的书签(例如,书签看起来像姓名、地址、评估),然后将其替换为excel表格中特定单元格中的信息。我希望代码查看整个文档中的所有书签,并将其替换为适当的信息并保留书签。代码有两个问题。其一,它指出不恰当地使用"Me“(指代码的Me.Repaint部分)。如果我试图在没有Me.Repaint的情况下运行代码,我会得到一个VBA运行时错误‘-2146959355 (80080005)':自动化错误。有没有人有什么建议,我可以做的不同?谢谢

我已尝试删除me.repaint,并尝试重新启动word。我还在VBA参考部分打开了excel对象。

代码语言:javascript
复制
Function Read_Excel_Cell(cellRin As Long) As String
Dim oExcel As Excel.Application
Dim myWB As Excel.Workbook
Set oExcel = New Excel.Application
Set myWB = oExcel.Workbooks.Open("excel file")
Read_Excel_Cell = myWB.Sheets(1).Cells(cellRin, 1)
Set myWB = Nothing
Set oExcel = Nothing
End Function

Sub clientinfoexcel()
Dim bmk As Bookmark
For Each bmk In ActiveDocument.Range.Bookmarks
cltext = bmk.Name
Dim clinfo1 As Range
Set clinfo1 = ActiveDocument.Bookmarks(cltext).Range
If clinfo1.Text Like "*name*" Then
    clinfo1.Text = Text: Read_Excel_Cell (1)
    ActiveDocument.Bookmarks.Add cltext, clinfo1
ElseIf clinfo1.Text Like "*address*" Then
    clinfo1.Text = Text: Read_Excel_Cell (2)
    ActiveDocument.Bookmarks.Add cltext, clinfo1
ElseIf clinfo1.Text Like "*appraisal*" Then
    clinfo1.Text = Text: Read_Excel_Cell (3)
    ActiveDocument.Bookmarks.Add cltext, clinfo1
End If
Next bmk
End Sub

出现自动化错误。

EN

回答 2

Stack Overflow用户

回答已采纳

发布于 2019-06-29 07:32:00

设置myWB和oExcel = nothing不会关闭工作簿或退出excel,因此您可能在任务管理器中打开了一堆隐藏的excel实例-签入。

只需一次打开/关闭即可抓取所需的数据。

例如(未测试):

代码语言:javascript
复制
Sub clientinfoexcel()
    Dim bmk As bookmark, arrData
    Dim clinfo1 As Range, txt As String

    arrData = ReadExcelData()

    For Each bmk In ActiveDocument.Range.bookmarks
        txt = bmk.Range.Text

        If txt Like "*name*" Then
            SetBookMarkText bmk, arrData(1, 1)
        ElseIf txt Like "*address*" Then
            SetBookMarkText bmk, arrData(1, 1)
        ElseIf txt Like "*appraisal*" Then
            SetBookMarkText bmk, arrData(1, 1)
        End If
    Next bmk
End Sub

'Set the text in a bookmark without destroying it
Sub SetBookMarkText(bmk As bookmark, txt As String)
    Dim nm, rng
    nm = bmk.Name
    Set rng = bmk.Range
    rng.Text = txt
    rng.Parent.bookmarks.Add nm, rng
End Sub

'return Excel data as a 2-d array
Function ReadExcelData()
    Dim oExcel As Excel.Application
    Dim myWB As Excel.Workbook
    Set oExcel = New Excel.Application
    Set myWB = oExcel.Workbooks.Open("excel file")
    ReadExcelData = myWB.Sheets(1).Range("A1:A10").Value 'for example
    myWB.Close False 'don't save
    oExcel.Quit
End Function
票数 0
EN

Stack Overflow用户

发布于 2019-07-02 22:39:41

我在问题中的代码中没有看到Me.Repaint,这可能会导致错误...?这是从UserForm运行的吗?据我所知,这不是Word或Excel的一部分...

在任何情况下,以下行的代码中都有三次语法错误:

代码语言:javascript
复制
clinfo1.Text = Text: Read_Excel_Cell (1)

这是不正确的:Text:

我相信你想要的是:

代码语言:javascript
复制
clinfo1.Text = Text:= Read_Excel_Cell(1)

若要指定参数,需要:=,而不是:

除此之外,代码可能会更高效一些。当For循环已经为书签提供了bmk对象时,不需要重复ActiveDocument.Bookmarks[index]。在我看来,与许多ElseIf语句相比,Select Case更容易阅读、编写和维护。

我还更改了Excel的代码,以便它只启动一次Excel的新实例-如果它找不到Excel正在运行。有多种方法可以处理您正在尝试使用Excel应用程序执行的操作-这只是一种可能性。如果你想进一步探索这一点,我建议你进行更多的研究(这里和其他地方有很多问题和代码示例),也许可以在这个主题上提出一个不同的、更有针对性的问题。

代码语言:javascript
复制
Function Read_Excel_Cell(cellRin As Long) As String
  Dim oExcel As Excel.Application
  Dim myWB As Excel.Workbook

  On Error Resume Next
  Set oExcel = GetObject(, "Excel.Appplication")
  If Err.Number = 429 Then
    Set oExcel = New Excel.Application
  End If
  On Error GoTo 0

  oExcel.Visible = True
  For Each myWb in oExcel.Workbooks
    If myWb.Name = "excel file" Then
      Exit For
    End If
  Next

  If myWb Is Nothing Then
    Set myWB = oExcel.Workbooks.Open("excel file")
  End If

  Read_Excel_Cell = myWB.Sheets(1).Cells(cellRin, 1)
  Set myWB = Nothing
  Set oExcel = Nothing
End Function

Sub clientinfoexcel()
  Dim bmk As Bookmark
  For Each bmk In ActiveDocument.Range.Bookmarks
    cltext = bmk.Name
    Dim clinfo1 As Range
    Set clinfo1 = bmk.Range
    Select Case cltext
       Case Like "*name*"
            clinfo1.Text = Read_Excel_Cell(1)
            ActiveDocument.Bookmarks.Add cltext, clinfo1
       Case Like "*address*" 
            clinfo1.Text = Read_Excel_Cell(2)
            ActiveDocument.Bookmarks.Add cltext, clinfo1
       Case Like "*appraisal*" Then
           clinfo1.Text = Read_Excel_Cell(3)
           ActiveDocument.Bookmarks.Add cltext, clinfo1
    End Select
  Next bmk
End Sub
票数 0
EN
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/56813454

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档