Import data from one excel file to another

[kayza]

I try to connect data from an excel file to another excel, the problem that I am facing now is the code that I get from gooling maximum can only import 256 columns. while my data has more than 400 columns. and this is what I have now:

Sub CopyFromRecordset_To_Range()
Dim sSQLQry As String
Dim ReturnArray
Dim Conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim DBPath As String, sconnect As String


DBPath = "C:\111.xlsx"
sconnect = "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & DBPath & ";HDR=Yes';"
Conn.Open sconnect
sSQLSting = "SELECT * From [Sheet1$]"


rs.Open sSQLSting, Conn
Sheet1.Range("A2").CopyFromRecordset rs


rs.Close
Conn.Close
End Sub

how to fix this

Thank you in advance