Question

帮助！有很多关于这个主题的帖子，我已经尝试了大部分内容，但仍无济于事。

基本上我只是尝试将docx文件的内容与指定文件夹中的相同名称合并。每个文件都包含一个图像，1file：1image。我第一次运行代码时出错（错误462远程服务器机器不存在或不可用）并且它指向

ActiveDocument.Range.InsertFile Filename:=myDir & nextFile

有谁知道如何解决这个问题？请。这是我的代码：

Sub Merger()
    Dim firstFileStr As String
    Dim firstFile As String
    Dim nextFileStr As String
    Dim nextFile As String

    Dim xFlag As Boolean
    Dim myDir As String

    myDir = "C:\Users\User\Desktop\MergeFolder\"
    For iCtr = 1 To getRowCount
        firstFileStr = Sheet1.Cells(iCtr, 3).Value
        firstFile = Sheet1.Cells(iCtr, 1).Value

        xFlag = True
        Dim jCtr As Integer
        jCtr = 1

        Do While (xFlag)
            nextFileStr = Sheet1.Cells(iCtr + jCtr, 3).Value
            nextFile = Sheet1.Cells(iCtr + jCtr, 1).Value

            If StrComp(firstFileStr, nextFileStr, vbTextCompare) = 0 Then
                Dim WordApp As Word.Application 'word application
                Dim WordDoc As Word.Document    'word document

                If Not WordApp Is Nothing Then
                    WordApp.Quit
                End If

                Set WordApp = New Word.Application
                Set WordDoc = WordApp.Documents.Open(myDir & firstFile, ConfirmConversions = False, ReadOnly = False)

                Application.ScreenUpdating = False

                ActiveDocument.Range.InsertFile Filename:=myDir & nextFile

                WordDoc.SaveAs Filename:=myDir & "merged " & firstFileStr, FileFormat:=wdFormatDocument
                WordDoc.Close
                WordApp.Quit

                Set WordDoc = Nothing
                Set WordApp = Nothing

                xFlag = True
                jCtr = jCtr + 1
            Else
                xFlag = False
            End If
        Loop
    Next
End Sub

函数getRowCount只是返回Sheet1包含的数字或行。这里，

Function getRowCount() As Integer
    Dim rowCount As Integer
    rowCount = 0

    Range("A1").Select
    ' Set Do loop to stop when an empty cell is reached.
    Do While Not IsEmpty(ActiveCell)
        rowCount = rowCount + 1
        ' Step down 1 row from present location.
        ActiveCell.Offset(1, 0).Select
    Loop
    getRowCount = rowCount

End Function

现在当我在上一个错误之后立即运行代码并且没有在任务管理器中杀死MS Word进程时，我得到另一个错误运行时错误5792该文件似乎已损坏。检查新创建的文件，似乎是代码

ActiveDocument.Range.InsertFile Filename:=myDir & nextFile

根本没有工作。 excel文件看起来像（B列是空的）

Column    A         B     C 
alpha - 1.docx          alpha  
alpha -2.docx           alpha  
alpha - 3.docx          alpha  
alpha - 4.docx          alpha  
bravo - 1.docx          bravo  
bravo - 5.docx          bravo  
charlie- 2.docx         charlie  
delta - 3.docx          delta  
delta - 5.docx          delta  
epsilon - 9.docx        epsilon  
foxtrot - 1.docx        foxtrot         
merger.xlsm             0 
~$merger.xlsm             0

它应该合并所有＆＃34; Alpha - * .docx ＆＃34; to＆＃34; Alpha - 1.docx ＆＃34;，bravo - 5.docx to bravo - 1.docx等。

Answer 1

我做过一些研究，问题是你的文件只有文件只读。确保单词doc已关闭，并且您有权使用写权限打开它。

您可以在打开文件后的某个时间，但在尝试将内容粘贴到其中之前，通过添加消息框来测试它是否是只读的：

MsgBox Worddoc.readonly

使用VBA运行时错误在Excel中合并Docx文件462远程服务器计算机，然后文件已损坏

1 个答案: