[Excel] Ripetere la stessa operazione su più file

[SauloDD]

Ciao a tutti,

ho un problema che a voi sicuramente risulterà semplice quasi banale, ma che per me è invece complicato.
Sono neofita di VSA ed ho costruito macro, ma per applicarle ad uno o due o tre o quattro file, di modo che mi bastava indicare nel codice il nome del file specifico.

Ho 1200 file excel (creati con Excel 2011 per Mac).
Li ho messi tutti in una stessa cartella ("Riprovaoggi")
Per ognuno di questi file io devo:
1) aprirli uno ad uno e salvarli nel formato .csv;
2) mantenere lo stesso nome del file Excel di partenza, ma con diversa estensione (la nuova sarà appunto .csv);
3) spostare il file convertito in una cartella a parte (io l'ho chiamata "Appoggio").
Ho bisogno di fare questo in modo da potere importare i files .csv importare in FileMakerPro.
Questo perché - purtroppo - l'importazione diretta da Excel a FileMaker non funziona, crea un record per ogni cella e non per ogni riga!!!.


Ho girato un bel pò sul forum e ho anche letto il topic "[EXCEL] macro per copiare valori da diversi files excel" (viewtopic.php?p=526911).
Ma non sono riuscito ad adeguare il codice lì proposto, sicuramente per mia incompetenza...e perché non mi sono ancora chiari i significati di ognuno dei comandi lì proposti.
Ad es MyF: dopo di esso occorre indicare il path della cartella di partenza, ma quando lo inserisco io non mi funziona...trova la cartella, ma la dice vuota!.

Un saluto a tutti

E un grazie anticipato a chi vorrà dedicarmi un p ò di tempo anche in questo caldo agostano...

Saulo

[patel]

Devi adattarla per il Mac, questa funziona su windows

Codice: Seleziona tutto

Sub AprifileSaveasCsv()
Dim wbOpen As Workbook
Dim wbNew As Workbook
strPath = "D:\Riprovaoggi\"
newPath = "D:\Appoggio\"
Dim filename As String
filename = Dir(strPath & "*.xlsx")
Do While filename <> ""
    Set wbOpen = Workbooks.Open(strPath & filename)
    ActiveWorkbook.SaveAs filename:= _
            newPath & filename & ".csv", FileFormat:= _
            Excel.XlFileFormat.xlCSV, CreateBackup:=False
            ActiveWorkbook.Close Savechanges:=False
    filename = Dir
Loop
End Sub

[Flash30005]

Ciao SauloDD e benvenuto nel Forum

Leggi quanto postato a Patel
Non ho testato la macro ma dovrebbe funzionare
devi solo aggiungere una riga codice per eliminare il file origine dalla cartella iniziale dopo averlo salvato in "appoggio"
quindi

Codice: Seleziona tutto

           
            ActiveWorkbook.Close Savechanges:=False  '<<<< esistente
           Kill strPath & filename   '<<<<<<<<<<<<  aggiungere questa riga qui
filename = Dir  '<<<<esistente


ciao

[SauloDD]

Grazie a Junior e a Flash30005 per la rapida risposta.

Ho testato il codice, riscrivendolo per la parte che riguarda l'identificazione del path.
Ecco il tutto

Codice: Seleziona tutto

<<<<<<<<<<<
<<<<<<<<<<<
Sub AprifileSaveasCsv()
Dim wbOpen As Workbook
Dim wbNew As Workbook
strPath = "[b]Macintosh Hd:Users:Saulo:Desktop:Oggiriprova[/b]"
newPath = "[b]Macintosh Hd:Users:Saulo:Desktop:Appoggio[/b]"
Dim filename As String
filename = Dir(strPath & "*.xlsx")
Do While filename <> ""
    Set wbOpen = Workbooks.Open(strPath & filename)
    ActiveWorkbook.SaveAs filename:= _
            newPath & filename & ".csv", FileFormat:= _
            Excel.XlFileFormat.xlCSV, CreateBackup:=False
            ActiveWorkbook.Close Savechanges:=False
    filename = Dir
Loop
End Sub
<<<<<<<<<<<
<<<<<<<<<<<

Purtroppo la macro si ferma a
filename = Dir(strPath & "*.xlsx")
come se non esistessero file nella cartella al percorso indicato..ma non è così...

Aggiungo - perché forse è utile - che io uso VBA all'interno di Excel e nella versione Mac, nel caso in cui questo potesse essere decisivo.

Ovviamente non ho ancora potuto testare il codice aggiuntivo per eliminare il file di origine .
Ma una curiosità.
Le parentesi uncinate accumulate (ad es. <<<< esistente) servono per identificare un commento, vero?

Saulo

[SauloDD]

Per l'esattezza, la routine visualizza questo messaggio di errore

<<<<<<<<<<<
Errore di runtime 68
Dispositivo non disponibile
<<<<<<<<<<<

Saulo

[patel]

Le parentesi uncinate accumulate (ad es. <<<< esistente) servono per EVIDENZIARE un commento, l'apice ' lo identifica

[ricky53]

Ciao,
quelle che chiami parentesi uncinate sono tanti simboli di minore ( "<" ) e sono un modo utilizzato per evidenziare un commento scritto da chi ti propone del codice.

Si può utilizzare qualunque modo per evidenziare dei commenti '<<<------------ Nuova Istruzione
oppure '<<============= Nuova Istruzione
o semplicemente
' Nuova Istruzione

Cosa molto importate è far precedere sempre il commento dall'apice !!!

[SauloDD]

Per l'esattezza, la routine visualizza questo messaggio di errore

<<<<<<<<<<<
Errore di runtime 68
Dispositivo non disponibile
<<<<<<<<<<<

Saulo

Dopo una lunga ricerca sul web, forse ho scoperto l'arcano.
Vi rimando a questa pagina http://www.rondebruin.nl/mac.htm
Come visi legge e' proprio come sospettavo.
Le macro di VBA per Windows non sempre funzionano anche sul gemello VBA per Mac.
Ci sono diverse funzioni che sul Mac non vanno o devono essere impostate in altro modi.
Tra queste proprio le DIR e PATH con cui e' costruito il codice proposto.

Saulo

[SauloDD]

Ciao,
quelle che chiami parentesi uncinate sono tanti simboli di minore ( "<" ) e sono un modo utilizzato per evidenziare un commento scritto da chi ti propone del codice.

Si può utilizzare qualunque modo per evidenziare dei commenti '<<<------------ Nuova Istruzione
oppure '<<============= Nuova Istruzione
o semplicemente
' Nuova Istruzione

Cosa molto importate è far precedere sempre il commento dall'apice !!!

Quindi dopo l'apice potrei usare un qualunque segno a mio piacimento.

Grazie

Saulo

[ricky53]

SI !

Evidenziare in un qualunque modo ma evidenziare !