Hardware Upgrade Forum - View Single Post

Ronder17 · 04-08-2003, 20:19

Dim CartellaVecchia As excel.Workbook
Dim CartellaNew As excel.Workbook

CartellaVecchia.Worksheets(IndexFoglio).Copy BEFORE:=CartellaNew.Worksheets(IndexFoglio)

CartellaNew.SaveAs App.Path & "\" & NomeFile & ".xls"

E il gioco è servito
ciauz

04-08-2003, 20:19	#13
Ronder17 Member Iscritto dal: Feb 2002 Città: Roma Messaggi: 153	Eccomi! Dim CartellaVecchia As excel.Workbook Dim CartellaNew As excel.Workbook CartellaVecchia.Worksheets(IndexFoglio).Copy BEFORE:=CartellaNew.Worksheets(IndexFoglio) CartellaNew.SaveAs App.Path & "\" & NomeFile & ".xls" E il gioco è servito ciauz