Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Excel Errore importa dati

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Excel Errore importa dati

Postdi Francesco53 » 18/08/22 17:12

Buongiorno ho la seguente difficoltà e non riesco a capire dove è l’errore.
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

Immagine

Qualche consiglio sul perchè succede o dove sbaglio?
Grazie a chi può darmi un aiuto.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 796
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: Excel Errore importa dati

Postdi Anthony47 » 18/08/22 21:26

Prova usando
Codice: Seleziona tutto
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;" & DPath & DFile, Destination:=Range("$A$1"))
Avatar utente
Anthony47
Moderatore
 
Post: 18333
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Excel Errore importa dati

Postdi Francesco53 » 19/08/22 10:00

Grazie Anthony, perfetto come sempre.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 796
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "Excel Errore importa dati":


Chi c’è in linea

Visitano il forum: Nessuno e 13 ospiti