Devo caricare dei dati da un file di testo, con la seguente macro funziona tutto.
- Codice: Seleziona tutto
Sub Macro10()
Sheets("Foglio2").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Excel\pino\dati\luglio.txt", Destination:=Range("$A$1"))
.Name = "storico"
.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 = False
.TextFileTabDelimiter = True
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
End Sub
Se cerco di modificare l'indicazione della cartella contenente il file di testo con il seguente codice:
- Codice: Seleziona tutto
Sub Macro10()
DPath = ThisWorkbook.Path & "\"
DFile = "luglio.txt"
Sheets("Foglio2").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;DPath & DFile", Destination:=Range("$A$1"))
mi da errore nella seguente riga:
.Refresh BackgroundQuery:=False
questo è il messaggio di errore ma il file è presente
Qualche consiglio sul perchè succede o dove sbaglio?
Grazie a chi può darmi un aiuto.
Francesco
