Μεταφορά δεδομένων πεδίων σε excel

[Meteora]

Καλησπέρα

Η αλληλεπίδραση Access και Excel δεν είναι κάτι απλό. Χρειάζεται να αφιερώσει κάποιος αρκετό χρόνο για να μπορέσει να καταφέρει κάτι...
Δοκίμασε αυτό το τμήμα κώδικα:

Dim ThePath$
ThePath = Replace(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "onomaarxeio.xls", "\\", "\")
 
    Dim oExcel As Object
    Dim oBook As Object
    Dim oSheet As Object
    'Σύνδεση...
    Set oExcel = CreateObject("Excel.Application")
    Set oBook = oExcel.Workbooks.Open(ThePath)
 
    'Εισαγωγή δεδομένων στο 1ο φύλλο του βιβλίου
    Set oSheet = oBook.Worksheets(1)
    oSheet.Range("H1").Value = "ΜΕΤΕΩΡΑ"
oBook.Save  'Αν δεν υπάρχει αυτή εδω η εντολή,το Excel  ζητά επιβεβαίωση για να σωθούν οι αλλαγές
    oExcel.Quit
    Set oExcel = Nothing

Το αρχείο excel (η φόρμα σου δηλαδή) να βρίσκεται στην επιφάνεια του υπολογιστή σου κλειστό!
Εύχομαι καλή συνέχεια.

Με εκτίμηση

Νίκος Δ.