Telefonino.net network
 
| HOMEPAGE | INDICE FORUM | REGOLAMENTO | ::. NEI PREFERITI .:: | RSS Forum | RSS News | NEWS web | NEWS software |
| PUBBLICITA' | | ARTICOLI | WIN XP | VISTA | WIN 7 | REGISTRI | SOFTWARE | MANUALI | RECENSIONI | LINUX | HUMOR | HARDWARE | DOWNLOAD | | CERCA nel FORUM » |

Torna indietro   WinTricks Forum > Software > Programmazione

Notices

Rispondi
 
Strumenti discussione
Vecchio 20-05-2005, 12.25.45   #1
Captain-Hook
Senior Member
 
L'avatar di Captain-Hook
 
Registrato: 28-09-2003
Loc.: Emilia Romagna
Messaggi: 297
Captain-Hook promette bene
Vb6 e Excel 2003 ...come fare?

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!
___________________________________

Linux linuxmr 2.6.21-viper1-ARCH #1 SMP PREEMPT Thu Jul 5 20:36:35 CEST 2007 i686 Intel(R) Pentium(R) M processor 1.73GHz GenuineIntel GNU/Linux

www.marcorocco.altervista.org
Captain-Hook non è collegato   Rispondi citando
Vecchio 26-06-2005, 03.29.37   #2
mentuboss
Newbie
 
Registrato: 23-06-2005
Messaggi: 4
mentuboss promette bene
VB6 Excel

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
mentuboss non è collegato   Rispondi citando
Rispondi


Utenti attualmente attivi che stanno leggendo questa discussione: 1 (0 utenti e 1 ospiti)
 
Strumenti discussione

Regole di scrittura
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is ON
Gli smilies sono ON
[IMG] è ON
Il codice HTML è OFF

Vai al forum

Discussioni simili
Discussione Autore discussione Forum Risposte Ultimo messaggio
Trasformare Tabelle Excel o SQL in pardox o DB3 bepi Programmazione 0 10-12-2008 23.53.36
Xchè questi forti terremoti in questo periodo? Giorgius Chiacchiere in libertà 461 02-05-2007 16.00.00
Problema quando apro excel – access di office 2003 deniro Office suite 3 28-04-2006 22.09.03
Office 2003 Professional fireball Office suite 10 23-12-2004 16.57.23
XML di Office 2003 ora è royalty-free Macao Segnalazioni Web 0 21-11-2003 02.53.10

Orario GMT +2. Ora sono le: 11.07.01.


E' vietata la riproduzione, anche solo in parte, di contenuti e grafica.
Copyright © 1999-2017 Edizioni Master S.p.A. p.iva: 02105820787 • Tutti i diritti sono riservati
L'editore NON si assume nessuna responsabilità dei contenuti pubblicati sul forum in quanto redatti direttamente dagli utenti.
Questi ultimi sono responsabili dei contenuti da loro riportati nelle discussioni del forum
Powered by vBulletin - 2010 Copyright © Jelsoft Enterprises Limited.