[ΑΛΕΞΙΑ]

καλημέρα Νίκο
Ο κώδικας που μου έστειλες δουλεύει μια χαρά σε ευχαριστώ πολύ
Απλά εάν ξέρεις και με βοηθήσεις με τον κώδικα που ανέβασα γιατι εκει μπορώ και ορίζω όποια πεδία θέλω απο τον πινακα και αντιστοιχα απο το exel, ενω στον κωδικα που μου έστειλες πρέπει να διαγραφω πεδία απο το exel.
Πρέπει να καταχωρίσω απο διαφορα exel 400.000 εγγραφες και είναι απο 700 exel, οπότε θα μου κάνει την ζωη πολύ δύσκολη
Εαν δεν μπορέσω να βρω την λύση στον άλλο κωδικα που ανέβασα θα το κάνω με αυτόν.
Επίσης το κακό είναι ότι εγω έχω τους πίνακες σε SQL και εδώ απο ότι είδα στο forum μονο για πίνακες σε access


Dim Adod_arx As ADODB.Recordset
Set Adod_arx = New Recordset

Dim diadromi$

Adod_arx.Open "SELECT * FROM TblData", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

diadromi = "C:\programa\test.xlsx"
If Dir(diadromi) > "" Then

DoCmd.TransferSpreadsheet _
TransferType:=acImport, _
SpreadSheetType:=acSpreadsheetTypeExcel8, _
TableName:="TblData", _
filename:=diadromi, _
HasFieldNames:=True
End If




Πάντως σε ευχαριστώ και πάλι

Αλεξια