0f250MBのXMLファイルを読み込もうとしています。ただし、ファイルをロードすることはできません。案内してください。
そのために使用しているコードを表示しています。
frmArvindKMM.CD.Filter = "Text File(*.xml)|*.xml|All File |*.*"
frmArvindKMM.CD.ShowOpen
If frmArvindKMM.CD.FileName = "" Then
MsgBox "Import Failed", vbCritical + vbOKOnly, "AMN & Co."
Exit Sub
End If
Set xmlDoc = New DOMDocument30
If frmArvindKMM.CD.FileName = "" Then
MsgBox "Failed to import"
Exit Sub
ElseIf xmlDoc.Load(frmArvindKMM.CD.FileName) Then
xmlDoc.async = False
Else
MsgBox "Failed to import"
Exit Sub
End If