[Access - VBA] Περιεχόμενο πεδίου Access μεταφέρεται σε κελί Excel

[Meteora]

Καλησπέρα στη κοινότητα...
Φίλοι, θα ήθελα ένα μικρό(!) κώδικα που να συνδέει την εφαρμογή μου με υπάρχον αρχείο *.xls και επιπλέον να μεταφέρει στο κελί π.χ. G5 την τιμή μιας μεταβλητής ( ή το περιεχόμενου πεδίο της Acces). Η μεταφορά να αφορά αλφαριθμητικά αλλά και αριθμητικά δεδομένα.
Ένα βήμα ακόμη...
Το αρχείο Excel πως θα το μεταφέρω -με VBA- από Path1 σε Path2 ;
Δεν κάνω άλλο βήμα τώρα. Ίσως η απάντηση φίλου-μέλους του Forum να καλύψει το επόμενο ερώτημα.
Να είμαστε όλοι καλά / Νίκος Δ.

[Tasos]

Αγαπητέ μου φίλε Νίκο Καλημέρα!
Σου παραθέτω κάποια παραδείγματα παρακάτω:

Ο κώδικας που να συνδέει την εφαρμογή σου με υπάρχον αρχείο *.xls

Sub LinkToExcelSheet()
    ConnectToExcelSpreadSheet "AccessTablename", "C:\Book1.xls", "Sheet2", "A1:K50"
End Sub

Function ConnectToExcelSpreadSheet(AccTableName$, WBPath$, SheetName$, CellAddress$)
    DoCmd.TransferSpreadsheet _
            TransferType:=acLink, _
            SpreadSheetType:=acSpreadsheetTypeExcel9, _
            TableName:=AccTableName, _
            FileName:=WBPath, _
            HasFieldNames:=True, _
            Range:=SheetName & "!" & CellAddress
End Function

Ο κώδικας που μεταφέρει στο κελί G5 μια τιμή

Sub ExportValueToExcelCell()
    WriteBalueToXLCell "C:\Book2.xls", "Sheet1", "G5", "MyValue"
End Sub

Function WriteBalueToXLCell(WBPath$, SheetName$, CellAddress$, CellValue)
    Dim XL As Object, WB As Object, wks As String
    On Error GoTo ExitHere
    Set XL = CreateObject("Excel.Application")
    'XL.Visible = True
    Set WB = XL.Workbooks.Open(WBPath)
    WB.Sheets(SheetName).Range(CellAddress).Value = CellValue
    WB.Save
ExitHere:
    If Err <> 0 Then MsgBox Err & vbLf & Err.Description
    If Not XL Is Nothing Then
        XL.Quit
        Set XL = Nothing
    End If
End Function

Για να μεταφέρεις (Αποκοπή - Επικόλληση) ένα αρχείο από Path1 σε Path2,
αρκεί να το μετονομάσεις μέσω VBA δηλαδή:

Function RenameFile(SourcePath$, TargetPath$)
    Name SourcePath As TargetPath
End Function

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

Τάσος

[Meteora]

Καλησπέρα...
Εργάστηκα με τον Τάσο πάνω στα τμήματα του κώδικα που μας πρόσφερε, και σας μεταφέρω δυο-τρία σημεία, όπου εστιάστηκε το ενδιαφέρον μας.
1. Όταν μεταφέρεται αριθμητική τιμή σε κελί του Excel, το οποίο -κελί- συμμετέχει σε συνάρτηση συμπλήρωσης τιμών σε άλλα γειτονικά κελιά, τότε η εφαρμογή Excel κατέρρεε! Η λύση είναι να γράψουμε :

Sub ExportValueToExcelCell()
    WriteBalueToXLCell "C:\Users\Νίκος\Desktop\Book1.xls", "IPERORIA", "I17", 4
End Sub

Ο αριθμός 4 πρέπει να γραφεί χωρίς εισαγωγικά ! Για πεδίο-δεν δοκιμάσαμε- αλλά η σκέψη του Τάσου είναι "Πρέπει το Excel να καταλάβει ότι πρόκειται για αριθμό, οπότε στη περίπτωση πεδίου γράφεις"

 Val(Me.pedio)

2. Η μεταφορά σε κελί μπορεί να γίνει σε όποιο φύλλο Excel επιλέξουμε!

παράδειγμα στο φύλλο :   "IPERORIA"

(Αυτό το πλεονέκτημα ήταν ζητούμενο από εμένα!...)

Αυτά.. Τάσο σε ευχαριστώ και από αυτή τη θέση...
Να έχουμε όλοι ένα καλό βράδυ / Νίκος Δ.

[t3rror]

Καλημέρα!
'Exω δημιουργήσει και εγώ ένα πινακα στην access και θέλω τα δεδομένα του κάθε πεδίου να "πηγαίνουν" σε ένα αρχείο excel στα ανάλογα πεδιά που έχω δημιουργήσει.
Το πρόβλημά μου είναι ότι δεν ξέρω να χρησιμοποιώ την VBA και δεν ξέρω που θα βάλω το κώδικα που υπάρχει πανω!
Υπάρχει άλλος τρόπος να γίνει,χωρίς να μπλέξω με την VBA;;

Έψαξα το forum και βρήκα αυτό το post πολυ ενδιαφέρον http://www.ms-office.gr/forum/410-post8.html
αλλά όταν πάω να πατήσω το κουμπί "ImportXLCells" βγάζει compiler error ότι του λείπει project ή βιβλιοθήκη και μου κιτρινίζει την γραμμή
<<Private Sub Command12_Click()>>
Έφτιαξα και μία φόρμα που πληκτρολογώ τα δεδομένα για να είναι πιο ωραίο, ξέρω τα κελια του excel που προορίζονται τα δεδομένα για κάθε πεδίο της της φόρμας και τώρα κολλάω στη μεταφορά από την access στο excel!
Ευχαριστώ!
Γιάννης

[Tasos]

Γιάννη καλημέρα και καλωσόρισες στο φόρουμ!
Σε αυτοματισμούς και στην επικοινωνία μεταξύ των προγραμμάτων του Ms Office, η χρήση της VBA είναι σχεδόν πάντα αναπόφευκτη αλλά και "σωτήρια"!

Θα πρέπει λοιπόν να βρεις μια λύση που να μην προϋποθέτει τη χρήση της VBA.
Θα μπορούσες να συνδυάσεις την χρήση μακροεντολών της Access με για να εξάγεις τα δεδομένα του πίνακα/ερωτήματος σου σε υπολογιστικό φύλλο Excel,
ή
να εισάγεις τα δεδομένα του πίνακα/ερωτήματος σου σε υπολογιστικό φύλλο Excel,
χρησιμοποιώντας την ανάλογη ενσωματωμένη λειτουργία της Excel.

Αν θέλεις ανέβασε τα αρχεία σου (Access και Excel) για να σου προτείνουμε μια πιο εύστοχη απάντηση.

Φιλικά

Τάσος

[t3rror]

Καλησπέρα!
Ανέβασα τα 2 αρχεία ,σήμερα αντιμετώπισα και άλλο ένα θέμα.
Πρόσθεσα άλλες 3 στήλες στο πίνακα μου αλλά δεν μπορώ να τις εμφανίσω στη φόρμα μου.
Επίσης αν ήταν εύκολο να μου προτείνεις κάποια βιβλιογραφία ή site για να μπω στο πνεύμα της vba γιάτι βλέπω οτι οι δυνατότητες της είναι πραγματικά ατελείωτες!
Ευχαριστώ!
Γιάννης

[Meteora]

Καλημέρα κοινότητα !
Αγαπητέ Γιάννη ξεκίνα λίγο πιο ορθόδοξα τη σχέση σου με την Access και τη VBA. Αφού λοιπόν θες να μάθεις, άρχισε να διαβάζεις Access (χωρίς VBA !). Πρέπει να μάθεις για τους πίνακες, τις σχέσεις πινάκων, τις φόρμες, τις εκθέσεις, τα ερωτήματα, τους κανόνες ονοματολογίας πεδίων κ.ο.κ.
Πήγαινε σε κάποιο βιβλιοπωλείο και διάλεξε ένα βιβλίο ( η επιλογή βιβλίου ας είναι αυθαίρετη !). Κάθισε μπροστά στον υπολογιστή σου και ακολούθησε τις οδηγίες του. ...Πίστεψέ με, δεν έχει νόημα να πάρεις μια απάντηση την οποία δεν θα μπορείς να διαχειριστείς. Οι ερωτήσεις που αφορούν σύνδεση Access - Excel προϋποθέτουν ένα υπόστρωμα γνώσεων, τις οποίες γνώσεις εσύ δεν έχεις αυτή τη στιγμή, αφού είσαι στο ξεκίνημά σου...
Ξεκίνα λοιπόν με την Access και εδώ είμαστε για να σε βοηθήσουμε...
Καλή συνέχεια λοιπόν / Νίκος Δ.

[t3rror]

Καλημέρα!
Το μόνο που έχω διαβάσει για την access ειναι το ανάλογο βιβλίο του ecdl(απλό) και τώρα έχω ξεκινήσει για το expert!Πουθενά δεν συνάντησα όμως για σύνδεση Access-Excel(ακόμα)!
Θα ακολουθήσω την συμβουλή σου πάντος Νίκο!
Γιάννης

[Meteora]

Γιάννη, δεν έχω ιδέα τι προσφέρει το ECDL ή το EXPERT, στο ζήτημα "Μαθαίνω Access". Δες ένα βιβλίο με αρκετή Access (π.χ. Access 2003 ή 2007 βημα-βήμα απο εκδόσεις Κλειδάριθμος) . Αν φυσικά γνωρίζεις Αγγλικά τότε είσαι προνομιούχος, αφού η βιβλιογραφία δεν έχει όρια !
Ξεκίνα -μετά 3/4 μήνες - την VBA με βιβλία που έχουν συστήσει φίλοι εδώ στο Forum...
Αυτά αγαπητέ μου / Νίκος Δ.