[Excel07] Εισαγωγή σε Excell απο txt

[Stelio]

Καλησπέρα

Θα ήθελα λίγη βοήθεια στο παρακάτω

Κάνω εισαγωγή σε Excell απο txt με το

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\User name\Desktop\sup_file_.txt", _

και θέλω να μπορώ να τρέξω την μακροεντολή σε κάθε υπολογιστή χωρίς να χρειάζεται να αλλάζω στο Path του φακέλου Desktop το User name.

Ευχαριστώ

[sarafis]

Στέλιο καλησπέρα και χρόνια πολλά
Δοκίμασε να χρησιμοποιήσεις
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\" & Environ("UserName") &"\Desktop\sup_file_.txt", _

[Stelio]

Καλημέρα και χρόνια πολλά και σε σένα

Δούλεψε ,Ευχαριστώ πολύ
Να φανταστω οτι θα μπορούσα να κάνω το ίδιο και για το My Documents ?

With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\" & Environ("UserName") & "\My Documents\sup_file_.txt", _

[sarafis]

Ναι, λογικά δεν θα υπάρχει πρόβλημα. Οι συγκεκριμένες διαδρομές είναι ίδιες σε όλους τους υπολογιστές με windows.