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

Καλησπέρα

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

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

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

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

Ευχαριστώ

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

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

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

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

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