Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > [ Πίνακες ] Εξαγωγή πίνακα σε excel

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 22-11-11, 19:32
Όνομα: Μαρκος
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-03-2011
Μηνύματα: 10
Προεπιλογή Εξαγωγή πίνακα σε excel

υπάρχει τρόπος με ένα κουμπί να γίνει εξαγωγή του πινάκα σε excel αλλά να ορίζεις που να το αποθηκεύσεις κάθε φορά (προαιρετικά και ακόμα καλύτερα να δημιουργεί το φάκελο αν δεν υπάρχει)? προς το παρόν το έχω κάνει με macro με προεπιλεγμένη θέση αποθήκευσης αλλά δεν βολεύει

ευχαριστώ εκ των προτέρων
Απάντηση με παράθεση
  #2  
Παλιά 22-11-11, 21:51
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.238
Προεπιλογή

Καλησπέρα.
Μάρκο δοκίμασε:

Κώδικας:
Sub test()
    On Error Resume Next
    DoCmd.OutputTo acOutputTable, "TableName", "Excel 97 - Excel 2003 Workbook (*.xls)"
    On Error GoTo 0

    'ο υπόλοιπος κώδικας

    '................
    '................
End Sub
Edit: Σε Access 2003 θα πρότεινα:

Κώδικας:
Option Compare Database
  Option Explicit
  Private Const MyDesktop = 0&
  Private Const ShOptions = 54&
   
   
  Private Sub cmdExportTable_Click()
  Dim fName As String
  fName = FolderBrowserDialog
  If fName <> vbNullString Then
      DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Table1", fName & "\Table1.xls"
      End If
  End Sub
   
  Private Function FolderBrowserDialog() As String
      Dim oShell As Object
      Dim oFolder As Object
      Set oShell = CreateObject("Shell.Application")
      Set oFolder = oShell.BrowseForFolder( _
              hWndAccessApp, "Επιλέξτε φάκελο για να δημιουργήσετε  αντίγραφο ασφαλείας." & vbLf & _
              "αυτής της εφαρμογής και πατήστε 'ΟΚ'." & vbLf & _
              "Πατήστε 'Ακυρο'για να κλείσετε την εφαρμογή χωρίς αντίγραφο ασφαλείας." _
              & vbLf, ShOptions, MyDesktop)
      If Not oFolder Is Nothing Then
          FolderBrowserDialog = oFolder.Self.Path
      End If
      Set oFolder = Nothing
      Set oShell = Nothing
  End Function
Καλή συνέχεια!

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 23-11-11 στις 10:53.
Απάντηση με παράθεση
  #3  
Παλιά 23-11-11, 19:01
Όνομα: Μαρκος
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 12-03-2011
Μηνύματα: 10
Προεπιλογή

εισαι αρχοντας !!!!! οτι ακριβώς έψαχνα
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Excel07] Εξαγωγή δεδομένων από πίνακα panageo Excel - Ερωτήσεις / Απαντήσεις 6 18-05-15 14:12
[ Πίνακες ] Εξαγωγή Πίνακα σε Excel με όνομα Ημερομηνία και Τρέχουσα ώρα Χρήστος Access - Ερωτήσεις / Απαντήσεις 6 01-07-13 00:22
[Συναρτήσεις] Πως κάνω εξαγωγή δεδομένων απο πίνακα; koumpana Excel - Ερωτήσεις / Απαντήσεις 27 29-05-12 10:21
[Συναρτήσεις] Εξαγωγή Πίνακα Access στο Excel dream-garden Excel - Ερωτήσεις / Απαντήσεις 1 31-03-11 21:41
Εξαγωγή πίνακα σε ascii file stavros Access - Ερωτήσεις / Απαντήσεις 13 07-12-09 20:05


Η ώρα είναι 14:52.