Excel SaveAs () зависает

Question

Я экспортировал данные в файл Excel, используя Visual Basic 6. Проблема в все работает нормально, когда я экспортирую в режиме отладки, но когда я делаю exe-файл, он зависает, и курсор продолжает вращаться .

Ниже приведен код для экспорта.Похоже, что программа зависает в строке SaveAs:

On Error GoTo X
Dim iRow As Integer
Dim iCol As Integer
Dim objExcl As Excel.Application
Dim objWk As Excel.Workbook
Dim objSht As Excel.Worksheet
Dim iHead As Integer
Dim vHead As Variant
Dim path As String
Dim VFileNm As String
Dim i As Integer
Dim CmpGstin As String
Set objExcl = New Excel.Application
RptType = 0
Frame6.Visible = True
MDIForm1.Enabled = False
Label3.Caption = "Please wait... Data is Uploading to Excel file"
VFileNm = App.path & "\GSTR2_Excel.xlsx"
Set objWk = objExcl.Workbooks.Open(VFileNm) '"F:\GST_REPORTS\GST_AGENCIES_TAX_NM20\GSTR1_Excel.xlsx")
For i = 1 To 8
    If i = 1 Then
        If TotRcpt > 0 Then
            ChkG2B2b.Value = 1
            Set objSht = objWk.Sheets(2)
        End If
        Next iCol
       Next iRow
   End If
   TotRcpt = 0
Next
cd1.CancelError = True
cd1.FileName = "\GSTR2_" & CmpGstin & "_" & Format(FrmGstRptShow.DTpFrmDt, "MMMMYYYY") & ".xlsx"
cd1.InitDir = ("C:\My Documents")
cd1.Filter = "*.xlsx|*.xlsx"
cd1.FilterIndex = 4
cd1.ShowSave
VFileNm = cd1.FileName
Label3.Caption = "Please Wait... Excel File is Saving"
objWk.SaveAs VFileNm
MsgBox "Export Succecefully "
objWk.Close False
MDIForm1.Enabled = True
Label3.Caption = ""
Set objSht = Nothing
Set objWk = Nothing
Set objExcl = Nothing
Unload Me
X:
'MsgBox Err.Description
MDIForm1.Enabled = True
Label3.Caption = ""
Set objSht = Nothing
Set objWk = Nothing
Set objExcl = Nothing
'objWk.Close False
Unload Me

Если проблема возникла в режиме отладки, я мог бы решить ее, но это происходит при запуске с использованием EXE.