|
'dichiarazioni
Dim xl As Excel.Application 'dichiarazione dell'oggetto Set xl = CreateObject("Excel.Application") xl.Visible = True 'vedi il foglio mentre si compone xl.Workbooks.Add 'aggiunge foglio EXCEL 'per scrivere in una cella xl.Range("A1").Value = Text 'scrive il testo nella cella(es pippo) xl.Range("A1").Font.Size = Size 'grandezza del Font(es 10) xl.Range("A1").Font.Bold = Bold 'grassetto(true o false) 'per fare calcolare una somma xl.Range("B30").Formula = "=sum(b26:b28)" 'dimensionamento del foglio xl.ActiveSheet.PageSetup.Orientation = xlPortrait 'anteprima di stampa xl.ActiveSheet.PrintPreview 'stampa xl.ActiveSheet.PrintOut 'stampa 'operazioni di chiusura del foglio xl.ActiveWorkbook.Close False xl.Quit |