su un modulo inserisco l'apertura di un foglio excel
- Codice: Seleziona tutto
'DICHIARAZIONE VARIBILI
Option Explicit
'Per lavorare con Excel attivare in Progetto-Riferimenti Microsoft Excel 11.0 Object Library
Public AppExcel As Excel.Application
Public FileExcel As Excel.Workbook
Public Xls As Excel.Worksheet
Public Sub Apertura_Excel()
Set AppExcel = New Excel.Application
Set FileExcel = AppExcel.Workbooks.Add
FileExcel.SaveAs (App.Path & "\XlsOptScan.xls")
Set Xls = FileExcel.Worksheets(1)
End Sub
- Codice: Seleziona tutto
Private Sub Form_Load()
call Apertura_Excel
call Prova
End Sub
Public Sub Prova()
Dim matr_prova(100) As Single
Dim passo As Single
passo = 0.1
For X = 0 To 100
matr_prova(X) = passo * X
Xls.Cells(X + 1, 17) = matr_prova(X)
If matr_prova(X) = 1.8 Then Exit For
Next X
end sub
Grazie