J'ai dans une feuille xls (Excel) 900 variables (de A1 à A900). Je dois
maintenant créer des tables
dans Access avec ces variables comme nom de champs.
Table 1 de A1 à A100, Table 2 de A101 à 200, etc.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Laurent Longre
J'ai dans une feuille xls (Excel) 900 variables (de A1 à A900). Je dois maintenant créer des tables dans Access avec ces variables comme nom de champs. Table 1 de A1 à A100, Table 2 de A101 à 200, etc.
Comment faire ??
Avec Jet (cocher "Microsoft ActiveX DataObjects 2.X Library" dans Outils -> Références de l'éditeur VBA) :
============== Dim Champs, Table As String Dim I As Integer, J As Integer Dim Conn As New ADODB.Connection
Table = "Table " & I Conn.Execute "CREATE TABLE [" & Table & "]" For J = I * 100 - 99 To I * 100 Conn.Execute "ALTER TABLE [" & Table & _ "] ADD COLUMN [" & Champs(J, 1) & "] TEXT(50)" Next J
Next I
Conn.Close
============== A adapter bien sûr en changeant le chemin du fichier Access dans ConnectionString, et s'il y a lieu le type des champs. dans la requête.
Laurent
J'ai dans une feuille xls (Excel) 900 variables (de A1 à A900). Je dois
maintenant créer des tables
dans Access avec ces variables comme nom de champs.
Table 1 de A1 à A100, Table 2 de A101 à 200, etc.
Comment faire ??
Avec Jet (cocher "Microsoft ActiveX DataObjects 2.X Library" dans Outils ->
Références de l'éditeur VBA) :
==============
Dim Champs, Table As String
Dim I As Integer, J As Integer
Dim Conn As New ADODB.Connection
Table = "Table " & I
Conn.Execute "CREATE TABLE [" & Table & "]"
For J = I * 100 - 99 To I * 100
Conn.Execute "ALTER TABLE [" & Table & _
"] ADD COLUMN [" & Champs(J, 1) & "] TEXT(50)"
Next J
Next I
Conn.Close
==============
A adapter bien sûr en changeant le chemin du fichier Access dans
ConnectionString, et s'il y a lieu le type des champs. dans la requête.
J'ai dans une feuille xls (Excel) 900 variables (de A1 à A900). Je dois maintenant créer des tables dans Access avec ces variables comme nom de champs. Table 1 de A1 à A100, Table 2 de A101 à 200, etc.
Comment faire ??
Avec Jet (cocher "Microsoft ActiveX DataObjects 2.X Library" dans Outils -> Références de l'éditeur VBA) :
============== Dim Champs, Table As String Dim I As Integer, J As Integer Dim Conn As New ADODB.Connection
Table = "Table " & I Conn.Execute "CREATE TABLE [" & Table & "]" For J = I * 100 - 99 To I * 100 Conn.Execute "ALTER TABLE [" & Table & _ "] ADD COLUMN [" & Champs(J, 1) & "] TEXT(50)" Next J
Next I
Conn.Close
============== A adapter bien sûr en changeant le chemin du fichier Access dans ConnectionString, et s'il y a lieu le type des champs. dans la requête.
