Question

我有一个从Excel电子表格导入数据的Word文档。这些文件都不是我的;我继承了这个问题。在以前版本的Excel电子表格中，数据位于Q到T列中。在新版本中，它位于R到U的列中。使用的代码如下。当我运行以前版本的文档时，没有问题。只要我使用新文档导入它就会出现此错误代码：

5941 - 收集的请求成员不存在

调试器突出显示代码ElseIf cel.Value <> ""作为问题。新代码如下。（有效的旧代码完全相同，但上述范围除外）。

有什么想法吗？

提前致谢。

Sub ImportComplianceResults()

    Dim fd As FileDialog, oApp As Excel.Application, oWb As Excel.Workbook, iWs As Integer, rData As Excel.Range

    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        'Open modal window
        .Title = "Select file to import:"
        .InitialFileName = "X:\Template\"
        .Filters.Clear
        .Filters.Add "Excel files", "*.xlsx"
        .InitialView = msoFileDialogViewList
        .AllowMultiSelect = False
        If .Show = -1 Then
            Set oApp = New Excel.Application
            Set oWb = oApp.Workbooks.Open(.SelectedItems(1), , True)
            'Check for worksheet in selected file
            For Each ws In oWb.Worksheets
                If ws.Name = "Compliance Results" Or ws.Name = "Résultats de conformité" Then iWs = ws.Index
            Next ws
            If iWs > 0 Then
                Set rData = oWb.Worksheets(iWs).Range("R10:T10,R13:U15,R17:U17,R19:U19,R21:U21,R23:U23,R25:U25,R27:U27,R29:U29,R32:U34,R37:U39")
                With ActiveDocument
                    For Each cel In rData
                        If IsError(cel.Value) Then
                            .SelectContentControlsByTag(cel.Address).Item(1).Range.Text = "#N/A"
                        ***ElseIf cel.Value <> "" Then
                            .SelectContentControlsByTag(cel.Address).Item(1).Range.Text = Format(cel.Value, cel.NumberFormat)***
                        Else
                            .SelectContentControlsByTag(cel.Address).Item(1).Range.Text = " "
                        End If
                    Next cel
                End With
                MsgBox "Data imported successfully.", vbInformation
            Else
                MsgBox "No data exists in selected file." & vbCr & "Import cancelled.", vbCritical
            End If
            oWb.Close False
            'Cleanup Resources
            Set rData = Nothing
            Set oWb = Nothing
            Set oApp = Nothing
        Else
            MsgBox "Import cancelled.", vbCritical
        End If
    End With

End Sub

Answer 1

尝试使用：

ElseIf Not cel.Value = "" Then
   .SelectContentControlsByTag(cel.Address).Item(1).Range.Text = Format(cel.Value, cel.NumberFormat)

Answer 2

一旦你克服了错误控制，只需要.Text属性而不是.Value。

...
ElseIf cel.Text <> "" Then
    .SelectContentControlsByTag(cel.Address).Item(1).Range.Text = cel.Text
...

Word 2010宏不工作

2 个答案: