2

我构建了一个宏,它采用不同的 XML 输入文件并将每个文件导入工作簿中的不同工作表。然后保存工作簿。这在 98% 的情况下适用于数百名用户,但有时在保存工作簿时会失败,并显示“错误 1004:Microsoft Office Excel 无法访问文件‘C:\SymmPiT’。

我发现它与其中一个 XML 文件太大而无法在“ImportDisks:”部分中导入 Excel 有关。尝试手动将 SYMDISK.XML 文件导入空白工作簿(使用“数据 - 导入 - XML”)会导致 Excel 错误“XML 导入错误:某些数据无法导入”。

我试图让 Excel VBA 忽略此 XML 导入错误。这在该阶段在宏中有效,但在将工作簿进一步保存在代码中时失败(标记为红色)。

即使存在导入错误,如何在保存文件时避免 Excel “barfing”?或者可以在导入之前以某种方式检查 XML 文件,这样我就可以避免尝试导入?

代码摘录如下,非常感谢您的回复!:-)

Sub ImportData()
On Error GoTo SPErrorHandler    
Application.DisplayAlerts = False
Sheets("SymmPiT").Select
Range("F15").Select

Dim SaveName As String
Dim Section As Integer

ImportDisks:
Section = 7
On Error GoTo ImportLocks
Sheets.Add.Name = "Disks"
Application.ScreenUpdating = False

Range("A2").Select
    ActiveCell.FormulaR1C1 = "from symdisk list -v"
If (Dir("C:\SymmPiT\SYMDISK.XML") > "") Then
    ActiveWorkbook.XmlImport URL:="C:\SymmPiT\SYMDISK.XML", ImportMap:=Nothing,  overwrite:=True, Destination:=Range("$A$4")
    ActiveWorkbook.XmlMaps("SymCLI_ML_Map").Delete
    Set Contents = Worksheets("Disks").Range("A5")
    If Contents.Text = "" Then
        MsgBox "Information" & vbNewLine & vbNewLine & "Disks data file has not imported, too many rows of data for Excel 2003"
    End If
Else
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "No Disk Data file SYMDISK.XML found"
End If
Range("A2").Select

Application.ScreenUpdating = True

ImportLocks:
‘ Code continues here, removed from this post….
Application.ScreenUpdating = True

SaveAsExcelFile:
' SaveAsExcelFile
Section = 43
On Error GoTo SPErrorHandler

SaveName = Worksheets("SymmPiT").Range("F19").Text
' Clear any outstanding error
Err.Clear
' Save output file
ActiveWorkbook.SaveAs Filename:="C:\SymmPiT\" & SaveName & ".xls"
Range("F15").Select
4

0 回答 0