PDA

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