Avatar of Bob Collison
Bob Collison
Flag for Canada

asked on 

Problem With Access 2016 CreateObject for Excel

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.
VBA* Access

Avatar of undefined
Last Comment
Bob Collison

8/22/2022 - Mon