Excel - VBA : Χρηση άλλου αρχείου σε συνάρτηση

[Zounds]

Καλησπέρα έχω τρία αρχεία excel a1,a2,a3
τα οποία προσδιορίζω στην αρχή της μακροεντολής με τις μεταβλητες FileA1 FileA2 FileA3
sto FileA1 γραφω στο κελι Α1, "a1" και είναι ήδη γραμμένο στο κελί b1 μια "λεξη"
sto FileA2 είναι ήδη στο κελί Α1 η λέξη "a1"
sto FileA3 γραφω στο κελι Α3, "a3"

θελω να μου φέρει στο FileA2 (στο κελι Β1) μέσα απο vlookup με reference το a1 απο το αρχειο FileA1 την "λέξη"
χωρίς όμως κατα την διάρκεια της vlookup να μου ανοίγει το dialog box για να επιλέγω αρχειο
και κάνοντας χρήστη της μεταβλητής FileA1

παραθέτω τον κώδικα
Έτσι όμως οπως το έχω συντάξει μου ανοίγει dialog box στο vlookup ενώ δεν θέλω (δεν μου διαβάζει την μεταβλητή FileA2)
επίτηδες έβαλα ' στο τελος που το κανει σχόλιο γιατι έτσι και αλλιώς δεν δουλεύει..

Sub DifferentFiles()
'
' DifferentFiles Macro
'

Dim FileA1 As String
Dim FileA2 As String
Dim FileA3 As String

MsgBox ("Choose A1 file (a1)...")
FileA1 = Application.GetOpenFilename()
MsgBox ("Choose A1 file (a2)...")
FileA2 = Application.GetOpenFilename()
MsgBox ("Choose A1 file (a3)...")
FileA3 = Application.GetOpenFilename()


MsgBox ("I WILL WRITE IN A1 FILE IN A1 CELL A1")
Workbooks.Open (FileA1)
Range("a1").Select
    Selection = "A1"
MsgBox ("Saving workbook...")
ActiveWorkbook.Save
MsgBox ("Closing workbook...")
ActiveWorkbook.Close


MsgBox ("I WILL WRITE IN A3 FILE IN A1 CELL A3")
Workbooks.Open (FileA3)
Range("a3").Select
    Selection = "A3"
MsgBox ("Saving workbook...")
ActiveWorkbook.Save
MsgBox ("Closing workbook...")
ActiveWorkbook.Close

'Workbooks.Open (FileA1)
'Workbooks.Open (FileA2)
'   Range("B1").Select
'       Selection.FormulaR1C1 = "=VLOOKUP(RC[-1],[FileA1]Sheet1!C1:C2,2,0)"

'Workbooks.Close (FileA1)
    

End Sub

thanx guys

[ZORO]

Δες αυτό


Πως να κάνετε αναφορά στο Excell σε κελιά που βρίσκονται σε άλλο αρχείο

Ας υποθέσουμε ότι έχετε ένα αρχείο excel που ονομάζεται doc1.xlsx και βρίσκεται στο φάκελο d:\excel. Αν θελήσετε π.χ. σε κάποιο άλλο αρχείο του excel να υπολογίζεται το άθροισμα των κελιών από A1 έως A4 που βρίσκονται στο αρχείο doc1 μπορείτε να το κάνετε πληκτρολογώντας :

=SUM(‘d:\excel\[doc1.xlsx]Φύλλο1’!A1:A4)

Δηλαδή είναι ‘διαδρομή[όνομα αρχείου]όνομα φύλλου’!κελιά

Αν το αρχείο doc1 είναι ανοικτό δεν χρειάζεται η διαδρομή, όμως αν χρησιμοποιήτε αυτό τον τύπο και όταν το αρχείο doc1 θα είναι κλειστό, τότε η διαδρομή είναι απαραίτητη.