ms-office.gr > Forum > Microsoft Excel > Excel - Ερωτήσεις / Απαντήσεις > [VBA] Μεταφορά δεδομένων από ένα βιβλίο εργασίας σε άλλο βιβλίο εργασίας.

Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ.

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

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 21-10-12, 04:26
Το avatar του χρήστη anestaki
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 06-02-2010
Μηνύματα: 198
Προεπιλογή Μεταφορά δεδομένων από ένα βιβλίο εργασίας σε άλλο βιβλίο εργασίας.

Καλημέρα σε όλους
Θα ήθελα και πάλι την πολύτιμη βοήθεια σας.
Σα επισυνάπτω δυο αρχεία κενά και θα ήθελα να μεταφέρω με κώδικα δεδομένα από ένα βιβλίο εργασίας σε άλλο βιβλίο εργασίας κάτι σαν αυτό.

Sub Workbook_Open()
Application.ScreenUpdating = False
Range("Φύλλο! c1").Copy
Dim MyWorkbook As Workbook
Dim g As String
On Error GoTo Errhandler
With Workbooks("biblio.xlsm")
g = .FullName
.Open SaveChanges:=True
End With
Range("Αρχική! a7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Set MyWorkbook = ActiveWorkbook
On Error GoTo 0
Errhandler:
MsgBox "xxxxxx"
End Sub
Συνημμένα Αρχεία
Τύπος Αρχείου: xlsx Βιβλίο1.xlsx (9,4 KB, 49 εμφανίσεις)
Τύπος Αρχείου: xlsm biblio.xlsm (7,9 KB, 43 εμφανίσεις)
Απάντηση με παράθεση
  #2  
Παλιά 21-10-12, 12:53
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.249
Προεπιλογή

Καλημέρα!
Γιώργο δοκίμασε:

Κώδικας:
Option Explicit

Sub test()
    Dim wb As Workbook, wbFullName As String, wbWasOpen As Boolean

    wbFullName = ThisWorkbook.Path & "\Book2.xlsm"    'Προσάρμοσε το όνομα του βιβλίου προορισμού

    For Each wb In Application.Workbooks
        If wb.FullName = wbFullName Then
            wbWasOpen = True
            Exit For
        End If
    Next

    If wb Is Nothing Then Set wb = ThisWorkbook

    On Error GoTo ExitHere

    If wb.FullName <> wbFullName Then
        Workbooks.Open Filename:=wbFullName, ReadOnly:=False
    End If

    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .EnableEvents = False

        Set wb = ActiveWorkbook

        ' Στην παρακάτω γραμμή προσάρμοσε τα ονόματα των φύλλων και τις διευθύνσεις των περιοχών των 2 βιβλίων.
        ' Οι διευθύνσεις των περιοχών των 2 βιβλίων μπορούν να διαφέρουν αλλά
        ' οι στήλες και οι γραμμές πρέπει να έχουν το ίδιο πλήθος.
        wb.Sheets("Αρχική").Range("A1:G100").Value = ThisWorkbook.Sheets("Sheet1").Range("A1:G100").Value

        If wbWasOpen Then
            wb.Save
            wb.Close
        End If

ExitHere:
        If Err <> 0 Then MsgBox Err & vbLf & Err.Description
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .ScreenUpdating = True
    End With

End Sub
Ο κώδικας αυτός κλείνει το βιβλίο προορισμού μετά από τη μεταφορά δεδομένων μόνο αν το βιβλίο ήταν κλειστό πριν την εκτέλεση της μακροεντολής.

Τάσος
__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών
Απάντηση με παράθεση
  #3  
Παλιά 23-10-12, 20:50
Το avatar του χρήστη anestaki
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 06-02-2010
Μηνύματα: 198
Προεπιλογή

Καλησπέρα σε όλους
Τάσο δεν σας ξέχασα αλλά με την αλλαγή πάροχου έχω αρκετά προβλήματα με την σύνδεση σε ευχαριστώ πολύ και πάλι όπως πάντα δούλεψε άψογα.
Επίσης θέλω να ευχαριστήσω και τον Σπύρο για την βοήθεια του σε άλλο post.

Τελευταία επεξεργασία από το χρήστη anestaki : 24-10-12 στις 12:26.
Απάντηση με παράθεση
  #4  
Παλιά 24-10-12, 08:24
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.249
Προεπιλογή

Καλημέρα!

Γιώργο είναι επικίνδυνο να ψάχνεις ολόκληρο τον υπολογιστή για να διαγράψεις ένα αρχείο με συγκεκριμένο όνομα που μπορεί να υπάρχει περισσότερες φορές στον υπολογιστή.

Ένας υπολογιστής μπορεί να έχει περισσότερους δίσκους (εσωτερικούς - εξωτερικούς ή USB Stick)
Αναλόγως τον υπολογιστή και το λειτουργικό, μια τέτοιου είδους αναζήτηση μπορεί να διαρκέσει αρκετά λεπτά.

Το βασικό πρόβλημα όμως είναι ότι το αρχείο ή τα αρχεία που θα βρεθούν μπορεί να μην έχουν σχέση με την εφαρμογή σου ή να ανήκουν σε άλλο χρήστη.

Πιστεύω ότι θα πρέπει να επανεξετάσεις τη σχεδίαση της εφαρμογής σου σε ότι έχει σχέση με αναζήτηση + διαγραφή αρχείων.

Εκτός αυτού θα σε παρακαλούσα να ανοίξεις νέο θέμα αφού το ζητούμενο σου δεν έχει σχέση με τον τίτλο αυτού του θέματος.

Περιμένουμε νέα σου

Φιλικά

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

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

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

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


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

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[Excel07] Αντιγραφη κελιών σε νεο βιβλιο εργασιας sotisanis Excel - Ερωτήσεις / Απαντήσεις 0 05-04-15 23:31
[VBA] Μεταφορά δεδομένων από ένα βιβλίο σε άλλο με βάση ημερομηνία που εισάγεται girapas Excel - Ερωτήσεις / Απαντήσεις 4 19-12-13 23:44
[Excel07] Μεταφορά δεδομένων από ένα φύλο εργασίας σε άλλο giannopoulos Excel - Ερωτήσεις / Απαντήσεις 14 22-09-13 09:19
Σύνδεση και μεταφορά δεδομένων απο πολλά βιβλία εργασίας σε ένα βιβλίο εργασίας. panos1978 Excel - Ερωτήσεις / Απαντήσεις 13 17-07-13 12:18
[Συναρτήσεις] Μεταφορά σε νέο βιβλίο εργασίας pierrita Excel - Ερωτήσεις / Απαντήσεις 7 20-04-12 23:01


Η ώρα είναι 12:20.