
Private Sub Form_Load()
Form1.Show
cmdUno.SetFocus
End Sub
Private Sub cmdUno_Click()
Set xlApp = CreateObject("Excel.Application")
Set xls = xlApp.Workbooks.Open("C:\ARCHIVIO.xlsx") 'Percorso del file
Set foglio = xls.Worksheets("ARCHIVIO") 'Nome del foglio
SendKeys ("%1")
xls.Close
xlApp.Application.quit 'Chiude excel
End Sub
|
'Per salvare: xls.Save 'Per salvare con nome: xls.SaveAs "NomeDelFile |
