zubizarreta (Normal User)
Rookie
Messaggi: 59
Iscritto: 21/01/2007
|
ciao....
ho un programma in visual basic e vorrei portare dei dati in un documento di excel...come posso fare?...
|
|
zubizarreta (Normal User)
Rookie
Messaggi: 59
Iscritto: 21/01/2007
|
nessuno...che mi sà aiutare???
|
|
LuigiBiasi (Normal User)
Expert
Messaggi: 237
Iscritto: 15/09/2006
|
Ciao, come prima cosa devi aggiungere nei riferimenti Excel excel 11 Object library.
dopo:
Codice sorgente - presumibilmente VB.NET |
Dim appExcel As New Excel.Application Dim cartExcel As Excel.Workbook Dim foglioExcel As Excel.Worksheet
|
questi sono gli oggetti da usare.
Ciao.
|
|
LuigiBiasi (Normal User)
Expert
Messaggi: 237
Iscritto: 15/09/2006
|
Ciao, come prima cosa devi aggiungere nei riferimenti Excel excel 11 Object library.
dopo:
Codice sorgente - presumibilmente VB.NET |
Dim appExcel As New Excel.Application Dim cartExcel As Excel.Workbook Dim foglioExcel As Excel.Worksheet
|
questi sono gli oggetti da usare.
Ciao.
|
|
zubizarreta (Normal User)
Rookie
Messaggi: 59
Iscritto: 21/01/2007
|
grazie... ora provo a fare qualcosa e se ho qualche problema..ritorno
|
|
LuigiBiasi (Normal User)
Expert
Messaggi: 237
Iscritto: 15/09/2006
|
Io non ho mai avuto bisogno di fare programmi che richiedessero di fare cio, perciò non ti posso dare un grande aiuto.
Codice sorgente - presumibilmente VB.NET |
Dim cartExcel As Excel.Workbook Dim fg As Excel.Worksheet Private Sub Form_Load() Set cartExcel = Excel.Workbooks.Open("percorsofile.xls") Set fg = cartExcel.Sheets(1)'questo indica che stai scrivendo nel Foglio1 della pagina xls fg.Cells(1, 1).Value = "ciao mondo" 'questo invece scrive nella cella (1,1) che sarebbe riga 1 e colonna A End Sub Private Sub Form_Unload(Cancel As Integer) cartExcel.Save cartExcel.Close Set cartExcel = Nothing Set fg = Nothing End Sub
|
Credo che cosi dovrebbe funzionare.
Ciao.
|
|
zubizarreta (Normal User)
Rookie
Messaggi: 59
Iscritto: 21/01/2007
|
allora...ci sono..il programma funziona...; l'unica cosa è..
Codice sorgente - presumibilmente VB.NET |
Private Sub Form_Unload(Cancel As Integer) cartExcel.Save cartExcel.Close Set cartExcel = Nothing Set fg = Nothing End Sub
|
per caso questo serve per terminare l'esecuzione del file excel???
|
|
LuigiBiasi (Normal User)
Expert
Messaggi: 237
Iscritto: 15/09/2006
|
Codice sorgente - presumibilmente Plain Text |
cartExcel.Save
cartExcel.Close
|
questo codice salva il contenuto della pagina e la chiuda.
Mentre:
Codice sorgente - presumibilmente VB.NET |
set cartaExcel = nothing set fg = nothing
|
distruggono gli oggetti creati prima.
Ciao. |
|
zubizarreta (Normal User)
Rookie
Messaggi: 59
Iscritto: 21/01/2007
|
ah..ok.... grazie mille..
|
|