Code:
With ActiveWorkbook.Connections("mnlsapp02 SLP B10Data") _
.OLEDBConnection
.BackgroundQuery = True
.CommandText = Array( _
"SELECT
With ActiveWorkbook.Connections("mnlsapp02 SLP B10Data") _
.OLEDBConnection
.BackgroundQuery = True
.CommandText = Array( _
"SELECT
Sub Runner()
Dim folderName As String
Dim salesPeriod As String
Dim Region As String
Dim cn As ADODB.Connection
Dim cms As ADODB.Command
Dim rs As ADODB.Recordset
Dim SQL As String
'Make Output Folder
folderName
Sub Runner()
Dim folderName As String
Dim salesPeriod As String
Dim Region As String
Dim cn As ADODB.Connection
Dim cms As ADODB.Command
Dim rs As ADODB.Recordset
Leave a comment: