sql issue

[radoslaw19]

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 name = ""


CONNECT.Open "Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" & path & name & ";"

QueryString = "INSERT INTO Sheet" & a & " VALUES ('test')"



Call zapytanie.Open(QueryString, CONNECT)
CONNECT.Close




name = Dir
a = a + 1
Loop


End Sub

--------------
the error message is as follows: ms database engine could not find the object sheet1 - it is a runtime error

the files which i want to export values to, exist for sure - i created them myself



Could you please help me with this? s

 

[scottsen]

You are in the Power BI forum, I would move to the "main" excel forum for help -- but I have NO idea what zapytanie is either...

 

[radoslaw19]

Hi
i thought it might me good to post it here, thanks for the answer

 

[GDRIII]

Isn't zapytanie a new tanning ray gun?

 

[radoslaw19]

Isn't zapytanie a new tanning ray gun?

zapytanie = query
just did not have time to change

the code is like this