MS Access VBA在导出时冻结/崩溃

Question

The lines below are an extract from code used to generate a XML.

Access 2010 freezes then crashes when executing the Set dlgSaveAs line. This seems to only happen when data is imported using .xls files, .csv's seem to work fine.

Don't see what's wrong with the code and why it doesn't work with .xls/.xlsx files.

        Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)

        With dlgSaveAs
            .InitialFileName = strDate & " " & Replace(strTime, ":", "") & " " & strFFI_Filename & " XML Export" & ".xml" 'Set the default filename and directory
            .InitialView = msoFileDialogViewDetails 'Set the default folder view
            .Title = "Please provide a file name" 'Set your own dialog title
        End With

Answer 1

Have you tried doing the following?

With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = strDate & " " & Replace(strTime, ":", "") & " " & strFFI_Filename & " XML Export" & ".xml" 'Set the default filename and directory
        .InitialView = msoFileDialogViewDetails 'Set the default folder view
        .Title = "Please provide a file name" 'Set your own dialog title
End With

Obviously any other code associated with dlgSaveAs would need moving in the With-End With block