Public
Sub
ADO_test1()
Dim
Connection
As
Object
Set
Connection = CreateObject(
"ADODB.Connection"
)
Dim
Recordset
As
Object
Set
Recordset = CreateObject(
"ADODB.RecordSet"
)
Dim
Pfad
As
String
Pfad = ThisWorkbook.FullName
With
Connection
.Provider =
"Microsoft.Jet.OLEDB.4.0"
.ConnectionString =
"Data Source="
& Pfad &
";"
& _
";Extended Properties="
"Excel 8.0;HDR=NO;IMEX=1"
""
.Open
End
With
Dim
Query
As
String
Query =
"SELECT * FROM [Tabelle5$A1:E4]"
With
Recordset
.Source = Query
.ActiveConnection = Connection
.Open
End
With
Dim
Recordset2
As
Object
Set
Recordset2 = CreateObject(
"ADODB.RecordSet"
)
Dim
j
As
Integer
For
j = 0
To
5
With
Recordset2
.Fields.append j, 129, 255
End
With
Next
j
Recordset2.Open
Recordset.MoveFirst
Dim
i
As
Integer
j = 0
For
j = 0
To
5
For
i = 0
To
Recordset.Fields.Count - 1
Recordset2.addnew (j), Recordset.Fields(i).Value
Recordset2.Update
Next
i
Recordset2.MoveFirst
Recordset.MoveNext
Next
j
VG Rémi