...
Code: Select all
Set OBJXL = CreateObject("Excel.Application")'<<<< here
Set WBXL = OBJXL.Workbooks.Open(STRPATHXLS)
OBJXL.Visible = True
Set WSXL = WBXL.Sheets("REPORT")
...
Code: Select all
Set OBJXL = CreateObject("Excel.Application")'<<<< here
Set WBXL = OBJXL.Workbooks.Open(STRPATHXLS)
OBJXL.Visible = True
Set WSXL = WBXL.Sheets("REPORT")
...