Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Πίνακες ] Εξαγωγή πίνακα σε Excel (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/5183-eksagogi-pinaka-se-excel.html)

dimitrisp 11-03-19 19:56

Εξαγωγή πίνακα σε Excel
 
1 Συνημμένο(α)
Καλησπέρα

Στη δειγματική βάση που ανέβασα υπαρχει ενας πίνακας, [tblTim] και μια φόρμα, [frmTim].
Όταν κάνω δεξί κλικ πανω στον πίνακα [tblTim] μου δίνεται η επιλογή (σε παράθυρο)
να επιλέξω, εκτός των άλλων, και "Εξαγωγή" (του πίνακα [tblTim]) σε αρχείο Excel κλπ.

Είναι δυνατόν αυτή η διαδικασία, που περιγράφηκε, να γίνεται μέσα από τη φόρμα?
Δηλαδή, να ανοίγει ο πίνακας μέσα από τη φόρμα και, κατόπιν, να μπορούμε να μετατρέψουμε
όλοκληρο τον πίνακα ή μέρος των δεδομένων του σε Excel...

Σας ευχαριστώ εκ των προτέρων

dimitrisp 11-03-19 23:10

2 Συνημμένο(α)
Γειά σας

Τελικά, έβαλα τον Κώδικα,
"DoCmd.OutputTo acOutputTable, "tblTimologia", acFormatXLSX",
και λειτούργησε.

Ωστόσο, όταν ανοίγει το παράθυρο των Windows και δεν επιλέξω αποθήκευση αλλά
"Ακυρο", μου βγάζει Error.

Έχετε καμιά ιδέα για το πως θα τ'αποφύγουμε αυτό ή καμιά άλλη λύση
για την εξαγωγή πίνακα σε Excel?

Spirosgr 12-03-19 08:10

Καλημέρα
Δοκίμασε:
Κώδικας:

Private Sub cmdExportTable_Click()
    On Error GoTo ExitHere:
    DoCmd.OutputTo acOutputTable, "tblTim", acFormatXLSX
    Exit Sub
ExitHere:
    If Err.Number = 2501 Then
        Exit Sub 'ή ένα μνμ πχ msgbox "Η Αποθήκευση Ακυρώθηκε..."
    Else
        MsgBox Err.Number & ":" & Err.Description
    End If
End Sub


dimitrisp 12-03-19 08:41

Καλημέρα

Σπύρο, σ' ευχαριστώ για τη βοήθειά σου.
Ο Κώδικας λειτουργεί άψογα.

Καλή συνέχεια...

Spirosgr 12-03-19 11:52

Να 'σαι καλά, καλή συνέχεια.


Η ώρα είναι 18:57.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2