gravino ha scritto:
Ciao a tutti
sono riuscito a far funzionare l'esempio , mi apre un foglio di excel e mi crea un array 5x5 con dei numeri casuali, adesso devo capire come inserire le mie stringhe in un array 53x1
gravino ha scritto:
Ciao a tutti
sono riuscito a far funzionare l'esempio , mi apre un foglio di excel e mi crea un array 5x5 con dei numeri casuali, adesso devo capire come inserire le mie stringhe in un array 53x1
Ciao,
intanto, se sei riuscito a creare un figlio Excel ti posso passare le varie variabili che puoi utilizzare per la creazione di un foglio Excel personalizzato:
Dim oExc As Excel.Application 'Applicazione excel
Dim oWbk As Excel.Workbook
Dim FoglioExcel As Excel.Worksheet
Dim RIGA As Integer = 0 'Variabile per gestire le righe
Dim COLONNA As Integer = 0 'Variabile per gestire le colonne
Dim oRange As Excel.Range 'Variabile peer gestire un range di celle
Dim ColoreTesto As Integer = 2 'Variabile per gestire il colore del testo della cella
Dim ColoreSfondo As Long = RGB(6, 65, 1) 'Diminuendo il valore (65) il verde diventa più scuro. 'Variabile per gestire il colore di sfondo
Dim DimensioneCaratere As Integer = 12 'Variabile per gestire la dimensione del carattere.
….
'CREA NUOVO DOCUMENTO EXCEL
oExc = New Excel.Application
Puoi inoltre verificare se Excel è installato:
If oExc Is Nothing Then
MsgBox("ATTENZIONE !!" & vbCrLf & _
"Impossibile proseguire:" & vbCrLf & _
"Microsoft Excel non installato", vbOKOnly + vbCritical, "Messaggio")
oExc.Quit() 'Nel caso excel fosse aperto lo chiude
System.Runtime.InteropServices.Marshal.ReleaseComObject(oExc)
Exit Sub
End If
oppure per aprire un determinato foglio di Excel e puntare il "focus" su un determinato foglio:
oWbk = oExc.Workbooks.Add
FoglioExcel = oWbk.ActiveSheet
Per l'orientamento pagina:
'ORIENTAMENTO PAGINA VERTICALE
Dim xPageSetup As Excel.PageSetup = FoglioExcel.PageSetup
xPageSetup.Orientation = Excel.XlPageOrientation.xlPortrait
Iserimento di un'immagine:
RIGA += 1
PercorsoFile = c\Immagine.jpg"
oExc.ActiveSheet.Shapes.AddPicture(PercorsoFile, False, True, 0, 0, 127, 36)
Inserimento dei dati:
RIGA += 1
FoglioExcel.Cells(RIGA, 2).horizontalAlignment = Excel.XlHAlign.xlHAlignLeft 'Allinea il testo a sinistra
FoglioExcel.Cells(RIGA, 1) = "Inserimento valore nella cella:"
Definire un range di celle:
oRange = FoglioExcel.Range("A" & RIGA & ":A" & RIGA)
Vedi se ti può essere di aiuto