[sotisanis]

ρε παιδια μια τελευταια δυσκολια εχω και το εχω τελειωσει τελικα

πως θα το κανω να "τραβαει απο αρχειο με ελληνικό ονομα πχ φυλλο1 " και με ελληνικο ονομα καρτελα?

Sub GetData_Example2()
' It will not copy the Header row (the last two arguments are True, False)
' Change the last argument to True if you also want to copy the header row
    GetData ThisWorkbook.Path & "\1.xls", "Sheet1", _
            "A10:H67", Sheets("ÊáñôÝëëá ÐåëÜôç").Range("A25"), True, False
            GetData ThisWorkbook.Path & "\1.xls", "Sheet1", _
            "A3:A4", Sheets("ÊáñôÝëëá ÐåëÜôç").Range("A20"), True, False