vba调用计算机,运行到错误462：通过Excel VBA使用WORD时,远程服务器计算机不存在...

小灰灰 2022-10-09 13:30 247阅读 0赞

我一直试图在excel vba中以编程方式打开一个word文件,并使用书签在其中添加/编辑内容.但是,我发现在备用运行中,我得到’错误462：远程服务器不存在“错误.我研究了很多并且理解这有事做”不合格的引用;

但是,我不明白如何将下面的代码片段更正为限定引用？有人可以帮忙吗？

Set exR = ActiveSheet.Range(TestIdCol & CStr(DataRowNum) & ":" & TestIdCol & CStr(RowEnd))

ExistingEvidenceDoc = UseFileDialogOpen("Word Documents", "\*.doc;\*.docx")

Set objWord = CreateObject("Word.Application")

If ExistingEvidenceDoc <> "" Then

Set objDoc = objWord.Documents.Open(ExistingEvidenceDoc)

Else

Exit Sub

End If

objWord.Visible = True

Application.Wait Now() + TimeSerial(0, 0, 5)

Set objSelection = objWord.Selection

getExistingEvidences = ExistingTestEvidences(objDoc)

o = DataRowNum

For Each cell In exR

If cell.Value <> "" And Not IsInArray(cell.Value, getExistingEvidences) Then

objSelection.Style = ActiveDocument.Styles("Heading 1")

objSelection.TypeText text:="Heading " + cell.Value

objSelection.TypeParagraph

objSelection.MoveLeft

objSelection.HomeKey Unit:=wdLine

objSelection.EndKey Unit:=wdLine, Extend:=wdExtend

objDoc.Bookmarks.Add Name:="BMrk" + CStr(o), Range:=objSelection

objSelection.Copy

ActiveSheet.Range("Q" + CStr(o)).Select

ActiveSheet.PasteSpecial Format:="Hyperlink", Link:=False, DisplayAsIcon \_

:=False

objSelection.MoveRight

'objSelection.Style = ActiveDocument.Styles("Paragraph")

objSelection.TypeText text:=Range(DescriptionCol + CStr(cell.Row)).Value

objSelection.TypeParagraph

ElseIf IsInArray(cell.Value, getExistingEvidences) = False Then

objSelection.EndKey

objSelection.Style = ActiveDocument.Styles("Heading 1")

objSelection.TypeText text:="Heading " + cell.Value

objSelection.TypeParagraph

objSelection.MoveLeft

objSelection.HomeKey Unit:=wdLine

objSelection.EndKey Unit:=wdLine, Extend:=wdExtend

objDoc.Bookmarks.Add Name:="BMrk" + CStr(o), Range:=objSelection

objSelection.Copy

ActiveSheet.Range("Q" + CStr(o)).Select

ActiveSheet.PasteSpecial Format:="Hyperlink", Link:=False, DisplayAsIcon \_

:=False

objSelection.MoveRight

'objSelection.Style = ActiveDocument.Styles("Paragraph")

objSelection.TypeText text:=Range(DescriptionCol + CStr(cell.Row)).Value

objSelection.TypeParagraph

End If

o = o + 1

Next cell

MyErrorHandler:

MsgBox "SeeHeadingPageNumber" & vbCrLf & vbCrLf & "Err = " & Err.Number & vbCrLf & "Description: " & Err.Description

另外,无论我定义的exR范围如何,它都会完成整个范围的执行,但最后调用了MyErrorHandler,我不明白为什么？这有什么理由吗？

请伙计们,帮助我…非常感谢你的帮助.

提前致谢

发表评论取消回复

表情：

评论列表（有 0 条评论，247人围观）

还没有评论，来说两句吧...

相关阅读

相关 2. VBA Excel宏

完整版下载链接： [https://download.csdn.net/download/xijinno1/87716168][https_download.csdn.net_

落日映苍穹つ/ 2023年10月09日 18:47/ 0 赞/ 66 阅读

相关 word VBA_替换下划线

Sub 替换下划线() Selection.HomeKey wdStory Selection.Find.ClearFormatting

傷城~/ 2023年07月10日 09:00/ 0 赞/ 178 阅读

相关 vba odbc 3704 mysql_VBA / ADODB运行时错误：3704

![bd96500e110b49cbb3cd949968f18be7.png][] The following VBA subroutine will run most qu

冷不防/ 2023年01月11日 13:22/ 0 赞/ 145 阅读

相关 Excel VBA 学习笔记

Excel VBA 学习笔记编辑器开始语法查漏补缺命名参数赋值（\`:=\`冒号等号）参考 VBA的全称是：

亦凉/ 2022年12月29日 11:29/ 0 赞/ 255 阅读

相关 vba调用计算机,运行到错误462：通过Excel VBA使用WORD时,远程服务器计算机不存在...

我一直试图在excel vba中以编程方式打开一个word文件,并使用书签在其中添加/编辑内容.但是,我发现在备用运行中,我得到’错误462：远程服务器不存在“错误.我研究了很

小灰灰/ 2022年10月09日 13:30/ 0 赞/ 248 阅读

相关 VBA写excel宏

Sub zzz() ' ' zzz 宏 ' ' 'ActiveWorkbook.Names.Add Name:="S941.群众团体",

刺骨的言语ヽ痛彻心扉/ 2022年08月18日 03:25/ 0 赞/ 222 阅读

相关 EXCEL VBA 备忘录

最最基础的什么录制，加快捷键，被禁用宏，……等基本操作直接过滤，这些还不会的，请百度。此文主要备忘常用的编程语句或语法。 range(“A1”).value 对象和属

太过爱你忘了你带给我的痛/ 2022年05月31日 00:14/ 0 赞/ 373 阅读

相关 C#调用Excel VBA宏

近日的一系列工作是做网站的营运维护，因此做了大量的支持工具。有Excel中写VBA的，也有直接C\做的工具。有时需要在C\中执行Excel VBA宏，甚至有时还需要在

超、凢脫俗/ 2022年02月01日 01:37/ 0 赞/ 367 阅读

相关 Excel VBA 语句集

定制模块行为 (1) Option Explicit ‘强制对模块内所有变量进行声明 Option Private Module ‘标记模块为私有，仅对同一工

亦凉/ 2021年12月10日 18:11/ 0 赞/ 313 阅读

相关 excel运行vba_运行VBA功能时如何限制Microsoft Excel的CPU使用率？

![excel运行vba][excel_vba] excel运行vba ![how-do-you-limit-microsoft-excels-cpu-usage-when

末蓝、/ 2021年07月26日 12:59/ 0 赞/ 436 阅读