Sub output_into_files()
Dim CONNECT As New ADODB.Connection
Dim zapytanie As New ADODB.Recordset
Dim path As String
Dim name As String
Dim a As Integer
Dim sheetValue As String
Dim QueryString As String
path = "SOME PATH...."
name = Dir(path)
a = 1
sheetValue = "sheet" & a
Do Until...