Risultati da 1 a 9 di 9

Discussione: Help macro per file .csv .txt



  1. #1
    L'avatar di mpengo
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Napoli
    Età
    29
    Messaggi
    5
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0

    Exclamation Help macro per file .csv .txt

    Salve,
    dovendo elaborare dati vorrei sapere se qualcuno di voi potesse aiutarmi nella creazione di una macro che:
    -Importa un file .txt o .csv
    -Formatta il testo in colonne.

    Ringrazio a tutti dell'aiuto, saluti da un disperato tesista!

  2. #2
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da mpengo Visualizza Messaggio
    Salve,
    dovendo elaborare dati vorrei sapere se qualcuno di voi potesse aiutarmi nella creazione di una macro che:
    -Importa un file .txt o .csv
    -Formatta il testo in colonne.

    Ringrazio a tutti dell'aiuto, saluti da un disperato tesista!
    Ciao mpengo la cosa è semlice senza alcuna formula o altro.
    File ---> apri
    apri il tuo file txt o csv
    a questo punto nella finestra che ti si apre imposti le varie opzioni per le quali vuoi ottenere la formattazione

    ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  3. #3
    L'avatar di mpengo
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Napoli
    Età
    29
    Messaggi
    5
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0
    Vorrei che una macro mi facesse questa operazione!

  4. #4
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da mpengo Visualizza Messaggio
    Vorrei che una macro mi facesse questa operazione!
    usa il registratore di macro ed effettui manualmente le operazioni alla fine ti troverai con la macro bell'e pronta :242:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  5. #5
    L'avatar di mpengo
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Napoli
    Età
    29
    Messaggi
    5
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0
    Citazione Originariamente Scritto da Baloon_50 Visualizza Messaggio
    usa il registratore di macro ed effettui manualmente le operazioni alla fine ti troverai con la macro bell'e pronta :242:
    Si così ci sono riuscito, provo a spiegare meglio la situazione:
    per il mio lavoro di tesi devo analizzare file (.csv o .txt) ottenuti da nove strumenti di misura, necessito di caricare file in continuazione dunque volevo una macro che mi facesse scegliere da sola il percorso del file da analizzare volta per volta. (Per capirci quando facciamo apri file e vedo tutti file del mio pc)

  6. #6
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da mpengo Visualizza Messaggio
    Si così ci sono riuscito, provo a spiegare meglio la situazione:
    per il mio lavoro di tesi devo analizzare file (.csv o .txt) ottenuti da nove strumenti di misura, necessito di caricare file in continuazione dunque volevo una macro che mi facesse scegliere da sola il percorso del file da analizzare volta per volta. (Per capirci quando facciamo apri file e vedo tutti file del mio pc)
    Per evitare di farmi fare tutto il lavoro, allegami per piacere un file con la macro registrata e scrivimi esattamente cosa vuoi ottenere e vedrò se posso fare qualcosa.

    ciao.

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  7. #7
    L'avatar di mpengo
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Napoli
    Età
    29
    Messaggi
    5
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0
    Ho trovato questo sul sito di Microsoft (sembra funzionare):

    Sub ImportTextFile()

    Dim DestBook As Workbook, SourceBook As Workbook
    Dim DestCell As Range
    Dim RetVal As Boolean

    ' Turn off screen updating.
    Application.ScreenUpdating = False

    ' Set object variables for the active book and active cell.
    Set DestBook = ActiveWorkbook
    Set DestCell = ActiveCell

    ' Show the Open dialog box.
    RetVal = Application.Dialogs(xlDialogOpen).Show ("*.txt")

    ' If Retval is false (Open dialog canceled), exit the procedure.
    If RetVal = False Then Exit Sub

    ' Set an object variable for the workbook containing the text file.
    Set SourceBook = ActiveWorkbook

    ' Copy the contents of the entire sheet containing the text file.
    Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy

    ' Activate the destination workbook and paste special the values
    ' from the text file.
    DestBook.Activate
    DestCell.PasteSpecial Paste:=xlValues

    ' Close the book containing the text file.
    SourceBook.Close False

    End Sub

    Cosa ne pensate può andare bene per il mio utilizzo? Grazie saluti Marco

  8. #8
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3340
    Versione Office
    2013 PC
    Likes ricevuti
    483
    Likes dati
    49
    Citazione Originariamente Scritto da mpengo Visualizza Messaggio
    Ho trovato questo sul sito di Microsoft (sembra funzionare):

    Codice: 
    Sub ImportTextFile()
    
    Dim DestBook As Workbook, SourceBook As Workbook
    Dim DestCell As Range
    Dim RetVal As Boolean
    
    ' Turn off screen updating.
    Application.ScreenUpdating = False
    
    ' Set object variables for the active book and active cell.
    Set DestBook = ActiveWorkbook
    Set DestCell = ActiveCell
    
    ' Show the Open dialog box.
    RetVal = Application.Dialogs(xlDialogOpen).Show ("*.txt")
    
    ' If Retval is false (Open dialog canceled), exit the procedure.
    If RetVal = False Then Exit Sub
    
    ' Set an object variable for the workbook containing the text file.
    Set SourceBook = ActiveWorkbook
    
    ' Copy the contents of the entire sheet containing the text file.
    Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy
    
    ' Activate the destination workbook and paste special the values
    ' from the text file.
    DestBook.Activate
    DestCell.PasteSpecial Paste:=xlValues
    
    ' Close the book containing the text file.
    SourceBook.Close False
    
    End Sub
    Cosa ne pensate può andare bene per il mio utilizzo? Grazie saluti Marco
    Se funziona mi sembra ovvio che va bene per il tuo problema :243:

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  9. #9
    L'avatar di mpengo
    Clicca e Apri
    Data Registrazione
    Feb 2016
    Località
    Napoli
    Età
    29
    Messaggi
    5
    Versione Office
    Excel 2016
    Likes ricevuti
    0
    Likes dati
    0
    Ragazzi sembra che abbia quasi risolto tutti i miei problemi........mi spiegate perchè se faccio girare il seguente codice mi chiude il foglio che mi crea con la prima marco?????

    Sub MEXA()

    With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Text Files", "*.txt,*.csv, *.mis"
    If .Show = 0 Then Exit Sub
    b = "text;" & .SelectedItems(1)
    End With
    Sheets.Add After:=ActiveSheet 'crea un nuovo foglio
    Sheets(2).Select 'seleziona il foglio numero due
    Sheets(2).Name = "MEXA" 'rinomina il foglio con il nome che desideri
    With ActiveSheet.QueryTables.Add(Connection:=b, Destination:=Sheets(2).Range("A1")) 'Destination:=Sheets(2).Range("A1") mi dice che voglio copiare il file nella seconda pagina nella prima cella
    nomequery = .Name
    .AdjustColumnWidth = False
    .TextFileCommaDelimiter = True
    .TextFileColumnDataTypes = Array(2, 1)
    .Refresh BackgroundQuery:=False
    End With

    End Sub

    Sub OBS()

    With Application.FileDialog(msoFileDialogFilePicker)
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Text Files", "*.txt,*.csv, *.mis"
    If .Show = 0 Then Exit Sub
    b = "text;" & .SelectedItems(1)
    End With
    Sheets.Add After:=ActiveSheet 'crea un nuovo foglio
    Sheets(3).Select 'seleziona il foglio numero due
    Sheets(3).Name = "obs" 'rinomina il foglio con il nome che desideri
    With ActiveSheet.QueryTables.Add(Connection:=b, Destination:=Sheets(3).Range("A1")) 'Destination:=Sheets(3).Range("A1") mi dice che voglio copiare il file nella seconda pagina nella prima cella
    nomequery = .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 = False
    .TextFileTabDelimiter = False
    .TextFileSemicolonDelimiter = False
    .TextFileCommaDelimiter = True
    .TextFileSpaceDelimiter = False
    .TextFileColumnDataTypes = Array(1, 1, 1)
    .TextFileDecimalSeparator = "."
    .TextFileThousandsSeparator = " "
    .TextFileTrailingMinusNumbers = True
    .Refresh BackgroundQuery:=False
    End With
    End Sub

Discussioni Simili

  1. Se file già esistente in cartella, elimina il file (MACRO)
    Di Gatt88 nel forum Domande su Excel VBA e MACRO
    Risposte: 7
    Ultimo Messaggio: 28/02/17, 19:41
  2. Macro da File Excel a file Word
    Di prupri nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 02/12/16, 09:02
  3. Macro che mi stampa file xml
    Di Lety88 nel forum Domande su Excel VBA e MACRO
    Risposte: 2
    Ultimo Messaggio: 02/09/16, 08:00
  4. importazione file txt da web con una macro
    Di Giannilima nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 15/06/16, 11:35
  5. Macro per importazione dati da file xls o csv
    Di Harry nel forum Domande su Excel VBA e MACRO
    Risposte: 3
    Ultimo Messaggio: 29/12/15, 20:41

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •