Forum

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

Πάμε!

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

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 07-02-10, 14:30
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή Εξαγωγή σε Excel

Καλή σας μέρα...
Στη φόρμα μου έχω ένα compo που επιλέγω μήνα, (Ιανουάριος, Φεβρουάριος κλπ) και ένα κουμπί που με το κλικ εκτελεί την
DoCmd.TransferSpreadsheet acExport,,"qryTblMonth","c:\temp\file.xls" ,True
και έτσι εξάγω τα δεδομένα μου σε excel, με τα εξής μειονεκτήματα
1. Αν δεν υπάρχει το c:\temp βγάζει σφάλμα
2. Αν υπάρχει το file.xls το κάνει replace με το νέο
Έχω προσαρμοστεί λοιπόν και γω και φροντίζω να υπάρχει το "temp" αλλά και να έχω κάνει copy το παλιό αρχείο σε άλλο dir...
Όμως φαντάζομαι ότι σίγουρα θα υπάρχει κάποιος τρόπος που με λίγο κώδικα θα μπορεί απ΄τη μιά να εξάγει το αρχείο στο τρέχον directory της βάσης (ή εναλλακτικά να δημιουργεί το directory που έχω ορίσει, αν δεν υπάρχει ήδη), και από την άλλη το όνομα του αρχείου εξαγωγής να είναι η τιμή του compo, πχ Ιανουάριος.xls
Τι λέτε οι ειδικοί?
Απάντηση με παράθεση
  #2  
Παλιά 07-02-10, 19:10
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.238
Προεπιλογή

Καλησπέρα φίλε Άμι (ελπίζω να γράφω σωστά το όνομα σου)!

Μπορείς να χρησιμοποιήσεις ή να προσαρμόσεις τον παρακάτω κώδικα για να μην συναντήσεις ποτέ πια τέτοιου είδους προβλήματα:
Κώδικας:
Option Compare Database
Option Explicit
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal lpPath As String) As Long

Sub ExportSpreadSheet()
    Dim xlFileName$, xlFolder$
    xlFolder = "C:\Temp\"    ' xlFolder = Environ("TEMP") & "\" 'xlFolder = CurrentProject.Path & "\"
    MakeSureDirectoryPathExists xlFolder
    xlFileName = xlFolder & "(" & combo & Replace(Format(Now, "-dd_hh:mm:ss"), ":", "_") & ".xls"
    DoCmd.TransferSpreadsheet acExport, , "qryTblMonth", xlFileName, True
End Sub
Ελπίζω να σε βοηθήσει.

Φιλικά

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

Τελευταία επεξεργασία από το χρήστη Tasos : 08-02-10 στις 08:32.
Απάντηση με παράθεση
  #3  
Παλιά 07-02-10, 19:15
Το avatar του χρήστη Meteora
Συντονιστής
Όνομα: Νίκος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 28-12-2008
Περιοχή: Θεσσαλονίκη
Μηνύματα: 1.085
Προεπιλογή

Καλησπέρα
Μπορείς να έχεις διαφορετικό όνομα αρχείου για κάθε μήνα, αν γράψεις επι παραδείγματι : "C:\temp\book" & month(Date) & ".xls" (book1, book2,.....book12, book1,...! )
Περί δημιουργίας directory & περί μεταφοράς αρχείου ρίξε μια ματιά στη βοήθεια της Access, πληκτρολογώντας mkdir...
Φιλικά / Νίκος

Τελευταία επεξεργασία από το χρήστη Meteora : 07-02-10 στις 19:23.
Απάντηση με παράθεση
  #4  
Παλιά 08-02-10, 09:27
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή

Καλά, μιλάμε έχω πάθει πλάκα που ήταν τόοοοσο απλό...
Τι να πω ο άσχετος...
Χίλια ευχαριστώ Τάσο....
(Παρεπιπτόντως, υπάρχει κάτι αντίστοιχο με το CurrentProject.Path που να προσδιορίζει το path των συνδεδεμένων πινάκων?)

Τελευταία επεξεργασία από το χρήστη amy : 08-02-10 στις 09:51.
Απάντηση με παράθεση
  #5  
Παλιά 08-02-10, 11:50
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.238
Προεπιλογή

Καλημέρα φίλε μου!

Για να βρεις τη διαδρομή ενός από τους συνδεδεμένους πίνακες της βάσης σου που έχει το όνομα "tblCustomers" χρησιμοποίησε το παρακάτω:

Κώδικας:
 xlFolder = DLookup("Database", "MSysObjects", "Name='tblCustomers'")
 xlFolder = Left(xlFolder, Len(xlFolder) - InStr(1, StrReverse(xlFolder), "\") + 1)
Φιλικά

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #6  
Παλιά 08-02-10, 11:57
amy Ο χρήστης amy δεν είναι συνδεδεμένος
Όνομα: Ανδρέας
Έκδοση λογισμικού Office: Ms-Office 2003
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 12-11-2009
Περιοχή: Πάτρα
Μηνύματα: 41
Προεπιλογή

Thanks....
Απάντηση με παράθεση
Απάντηση στο θέμα

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Βοήθεια γιά Εξαγωγή σέ Excel pansyr Word - Ερωτήσεις / Απαντήσεις 0 15-02-16 18:30
[ Πίνακες ] Εξαγωγή πινάκων σε Excel gaz_manos Access - Ερωτήσεις / Απαντήσεις 11 05-06-13 02:15
[ Πίνακες ] Εξαγωγή πίνακα σε excel markosv Access - Ερωτήσεις / Απαντήσεις 2 23-11-11 19:01
ΕΞΑΓΩΓΗ ΣΕ ΑΡΧΕΙΟ EXCEL ΤΖΙΜΗΣ Access - Ερωτήσεις / Απαντήσεις 1 01-04-11 16:42
Εξαγωγή Report σε excel iondep Access - Ερωτήσεις / Απαντήσεις 5 03-11-10 21:31


Η ώρα είναι 15:42.