CIao Flash,
grazie per la macro lo provata ed è Ok, approfitto delle tue conoscenze per chiederti un ulteriore chiarimento:
ho creato un foglio di base dal nome BaseReport che tramite un pulsante mi lancia la seguente macro:
- Codice: Seleziona tutto
Sub CopiaDati()
Range("A1").Select
righe = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(righe, 10)).Select
Selection.ClearContents
Range("A1").Select
Workbooks.Open Filename:="C:\Temp\NomeFileExcel.xls", ReadOnly:=True
Range("A1").Select
righe = Cells(Rows.Count, 1).End(xlUp).Row
Range(Cells(1, 1), Cells(righe, 10)).Select
Selection.Copy
Windows("BaseReport New3.xls").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A1").Select
Call CreaTxt
End Sub
Pertanto il foglio di base, mi apre in lettura il file NomeFileExcel, preleva i dati e li copia nel foglio BaseReport,
da qui poi crea il FileCsv.csv della tua macro, ed è tutto Ok. Ho la difficoltà a chiudere senza che si noti il
file di base da cui prendo i dati (Workbooks.Open Filename:="C:\Temp\NomeFileExcel.xls", ReadOnly:=True),
altra domanda, se unendo in una cella il valore di due celle del file, es: M1=Marzo, e N1=2011 per cui in P1=M1&N1
mi restituisce Marzo2011, utilizzare il valore della cella per salvare con quel nome il file FileCsv.csv, io ho provato
NomeFile= select("P1").value ed ho sostituito FileT = "FileCsv.csv" con FileT=" & NomeFile &.csv" ma purtroppo non mi funziona.
Grazie per tutto quello che fai.
FRancesco
S.O. Windows 10 e Office 2007