Importare file txt su un nuovo foglio

[LucastarPartecipante Lucastar Karma: 4 pts]

Ciao a tutti,

cercando su questo forum ho trovato una bella macro che farebbe al caso mio per importare in automatico un file txt (o cst) su un foglio

Sub Importa_file()
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Filters.Clear
.Filters.Add "CSV", "*.csv"
.Filters.Add "All files", "*.*"
.Filters.Add "text", "*.txt", 1
.Show
If .SelectedItems.Count = 0 Then
MsgBox ("Nessun File selezionato, procedura annullata")
Exit Sub
End If
b = "text;" & .SelectedItems(1)
End With
Sheets("Master1").Select
With ActiveSheet.QueryTables.Add(Connection:=b, Destination:=Sheets("Master1").Range("A1")) 'cambia la destinazione dell'importazione
nomequery = .Name
.Refresh BackgroundQuery:=False
End With


End Sub

 

il problema è che il file excel è passato da 700 KB a 10 MB!!! inoltre ogni volta che lo apro mi da un avviso sulle connessioni dati esterne.

cosa ho fatto di sbagliato? io non voglio un collegamento "live" ma solo importare una tantum un file di mia scelta e copiarlo su un fogli specifico

[Autore]

Articoli