SQL_Set_Connection
'Debug.Print SQL_Str
Set rst = cnt.Execute("budget.dbo.SP_PIP_Excel") '''' '" & CoFilter & "' ,'*','" & cbo_LT & "'")
If rst.RecordCount = 0 Then
MsgBox "No Data available - contact Administrator"
'GoTo Finish
End If
Dim RptName As String
Dim RptShtName As String
RptName = "\\dc01cxbudpv01\budget_software\MCE_Report1.xlsx"
RptShtName = "Sheet1"
Dim objXL
Set objXL = CreateObject("Excel.Application")
'AppActivate objXL
Workbooks.Open (RptName)
Workbooks("MCE_Report1.xlsx").Activate
ActiveWorkbook.Sheets("Sheet1").Activate
Debug.Print ActiveWorkbook.Name
Debug.Print ActiveSheet.Name
'objXL.Calculation = xlCalculationAutomatic
'Set WB = objXL.ActiveWorkbook
'On Error Resume Next
'WB.Sheets("Results").Range("Data1").EntireRow.Delete
'WB.Sheets("Results").Range("Data1").CopyFromRecordset rst
ActiveSheet.Range("A1:A10000").CopyFromRecordset rst