Ciao a tutti, ho un problema con l'importazione di alcuni dati in Excel da un filr di tipo testo.
IL codice riportato permette di importare dei dati in un foglio di lavoro, ma il path del file , che nel codice è sostituito dall'espressione (" & TextBox7.Value & ") ed è contenuto in una textbox dalla quale viene letto , non viene letto, sebbene il file comunque esista.
Dovendo importare dei dati su differenti sheets delo stesso foglio di lavoro è necessario che io implementi questa procedura.
Come psso risolvere?
Grazie a tutti
P.S. In fase di debug inoltre , dopo aver rilevato l'errore sull'apertura del file, viene selezionata cme errore l'ultima riga del codice che ho scritto, quella del refresh.Sarei curioso di sapere perchè. Grazie
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT; (" & TextBox7.Value & ")" _
, Destination:=Range("A1"))
.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
IL codice riportato permette di importare dei dati in un foglio di lavoro, ma il path del file , che nel codice è sostituito dall'espressione (" & TextBox7.Value & ") ed è contenuto in una textbox dalla quale viene letto , non viene letto, sebbene il file comunque esista.
Dovendo importare dei dati su differenti sheets delo stesso foglio di lavoro è necessario che io implementi questa procedura.
Come psso risolvere?
Grazie a tutti
P.S. In fase di debug inoltre , dopo aver rilevato l'errore sull'apertura del file, viene selezionata cme errore l'ultima riga del codice che ho scritto, quella del refresh.Sarei curioso di sapere perchè. Grazie
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT; (" & TextBox7.Value & ")" _
, Destination:=Range("A1"))
.Name = ""
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 850
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False