
Private Sub Comando217_Click()
Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Excel.workbooks.Close
Set cartExcel = Excel.workbooks.Open("C:Documents and Settingse_ybaracDesktop1_11_2008Altri_docNote.xls", ReadOnly:=False)
appExcel.Visible = True
End Sub |
