[Meteora]

Καλησπέρα...
Έχω εξάγει δεδομένα από πίνακες και ερωτήματα σε αρχείο excel, κάνοντας χρήση VBA. Τα Report σε *.xls δίνουν εικόνα που μάλλον σε απογοητεύει...

Private Sub Command0_Click()
    Dim thepath$
    thepath = Replace(CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\dokimi.xls", "\\", "\")
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel8, "tblονομαπινακα", thepath, True
End Sub

Για τη Δέσποινα ίσως ο παραπάνω κώδικας να μη είναι το ζητούμενο. Πρόθεσή μου είναι να βοηθηθεί κάποιος που θα εργαστεί με VBA και θα θελήσει να εμφανίσει στην επιφάνεια εργασίας του υπολογιστή του το αρχείο excel...
Ο πιο πάνω κώδικας εξάγει και Report. Δοκιμάστε τον
Αυτά είχα να προσθέσω στην συζήτηση των δυο κυριών του Forum.
Με εκτίμηση/Νίκος Δ.