Visualizza versione completa : Vb6 e Excel 2003 ...come fare?
Captain-Hook
20-05-2005, 12.25.45
Avrei bisogno di qualche esempio su come gestire un foglio excel da un form di vb6, dovrei fare le cose più essenziali: Modificare le celle con dei nuovi dati e poter salvare il foglio alla chiusura dell'applicazione. Ho bisogno di controllare il foglio di excel da vb6 in modo che non ci siano modifiche alla stuttura delle celle, formattazioni, e macro ecc., ma semplicemente inserire i dati in alcune celle, e poter salvare il foglio.
Avete qualche esempio da fornirmi in modo che li possa studiare e fare la mia applicazione? ...o potreste gentilmente, come sempre, dirmi come fare?
In parole povere vorrei il foglio excel nel form dell'applicazione poter modificare i dati e chidere l'applicazione salvando il foglio.
Grazie per qualsiasi risposta!
mentuboss
26-06-2005, 03.29.37
Ti posto un pò di codice che avevo stritto per cancellare una riga si e una no da un foglio excel
Dim i As Long
Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set cartExcel = Excel.Workbooks.Open("C:\prova\Temperatura.xls ")
Set foglioExcel = Excel.Worksheets.Item(1)
For i = 2 To 9000
foglioExcel.Range(foglioExcel.Cells(i, 1), foglioExcel.Cells(i, 10)).Delete
Next i
cartExcel.Save
appExcel.Quit
Prima stabilisci la "connessione" con exel, poi alla cartella di fogli ed infine al singolo foglio.
Questo invece sommava due celle e metteva il risultato in una terza.
Occhio che è abbastanza lento, per cancellare 9000 righe ci mette 5 minuti.
Private Sub Command1_Click()
Dim i, j As Long
Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Dim N1, N2, NT As Double
Set cartExcel = Excel.Workbooks.Open("C:\prova\P2003.xls")
Set foglioExcel = Excel.Worksheets.Item(1)
j = 1
i = 1
For i = 1 To 9000 Step 2
N1 = foglioExcel.Cells(i, 2)
N2 = foglioExcel.Cells(i + 1, 2)
NT = N1 + N2
foglioExcel.Cells(j, 4) = NT
j = j + 1
Next i
cartExcel.Close 1
appExcel.Quit
End Sub
¡Hasta la proxima, compañeros!
PS: non ti dimenticare di includere le librerie di excel nel progetto
Project-->Preferences--> Cerca Exel o MS Exel
vBulletin® v3.8.6, Copyright ©2000-2023, Jelsoft Enterprises Ltd.