Hi Experts,
I have the following code that used to work perfectly.
No I get Error 429.
'Step 110-Prepare MS Excel Application Common Variables.
Dim DebugErrorNumber110 As Integer
DebugErrorNumber110 = 0
Dim EmptyMSExcelFileFlag_110 As Boolean
EmptyMSExcelFileFlag_110 = False
Dim MSExcelApplication_110 As Object
On Error Resume Next
Set MSExcelApplication_110 = GetObject(, "Excel.Application")
DebugErrorNumber110 = Err.Number
If Err.Number <> 0 Then
Set MSExcelApplication_110 = CreateObject("Excel.Application")
EmptyMSExcelFileFlag_110 = True
GoTo STEP_120 'Step 120-Define MS Excel Workbook / Worksheet Import Variables.
Else
GoTo STEP_120 'Step 120-Define MS Excel Workbook / Worksheet Import Variables.
End If
Could you please let me know if there is something obviously wrong with this code?
Thanks,
Bob C.