da cvs a excel

Hai un problema con Excel?

Nuova discussione

da cvs a excel
di lupogrigio59 data: 08/12/2014 15:19:07
Buon pomeriggio a voi tutti.
Settimanalmente scarico dei file cvs (delimitati da virgola) con dei dati.Questi dati attraverso macro(se possibile)dovrei importarli su un foglio excel ed accodarli, aggiornando solo i dati nuovi.
Mi serve estrarre solo alcune colonne(B,D,F,G,I,J,K,AJ)poichè le altre contengono dati che non mi interessato.
Qualcuno puoò aiutarmi?
Grazie
di Raffaele_53 (utente non iscritto) data: 08/12/2014 17:22:44
Ti sei dimenticato di dire quale sia la colonna con il DATO univoco e dove sia posizionata nel foglio Archivio per poter fare un confronto.
di lupogrigio59 data: 13/12/2014 15:21:18
non ho capito la domanda e a quale colonna "dato univoco" ti riferisci,
i dati csv che mi arrivano sono quelli allegati e da questi devo estrarre ciò che ho esposto.
Grazie.
P.S.: come avrai certamente capito, non sono un esperto di excel.

di lepat (utente non iscritto) data: 13/12/2014 15:43:10
prova questa, correggi il percorso del file

Option Base 1
Sub Macro2()
Dim arr(36)
For i = 1 To 36
  arr(i) = 9
Next
For i = 2 To 6 Step 2
  arr(i) = 1
Next
For i = 7 To 11
  arr(i) = 1
Next
arr(36) = 1
With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:public-export.csv", Destination:=Range("$A$1"))
        .Name = "esempio_1"
        .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 = False
        .TextFileSemicolonDelimiter = True
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = arr
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
End With
End Sub

di lupogrigio59 (utente non iscritto) data: 13/12/2014 16:17:52
Ciao lepat e grazie per l'interessamento.
Come ho detto prima, non capisco nulla di excel, se ti è possibile dovresti guidarmi "passo passo".
Questa macro dove devo inserirla?
la macro e il foglio .csv devono essere nella stessa cartella?
il mio percorso del foglio .csv è: C:UtentiAndreaDocumenti ome foglio.csv
Grazie per l'aiuto che vorrai darmi.
di lepat (utente non iscritto) data: 13/12/2014 16:32:57
il fatto di non capire niente di excel non ti esime dal documentarti se hai voglia di imparare
di lupogrigio59 (utente non iscritto) data: 14/12/2014 13:28:29
qualcuno disposto ad aiutarmi?
Grazie

Vuoi Approfondire?