.::TECH TOWN FORUM::. -> [VB6] grafici excel da VB6

.::HOMEPAGE::. · .::REGOLAMENTO::.

Aiuto

Cerca

Utenti

Calendario

Benvenuto Visitatore ( Connettiti | Registrati )

Rispedisci Email di convalida

.::TECH TOWN FORUM::. -> .::PROGRAMMAZIONE::. -> .::VISUAL BASIC

[VB6] grafici excel da VB6

Iscriviti a questa discussione | Invia disc. tramite email | Stampa Discussione

aduri

Inviato il: Nov 27 2009, 12:53 PM

Member

Gruppo: Members
Messaggi: 57
Utente Nr.: 543
Iscritto il: 21-January 06

Salve a tutti,
Vorrei avere un chiarimento su 2 punti di questo codice che ho attinto dalla rete.
Questa applicazione genera da vb6 (COL TASTO Sub Command1_Click() ) in excel un grafico a istogrammi con 3 serie da 84 punti ciascuna.
I miei problemi sono i seguenti:

Come si fa a scegliere in questa applicazione un grafico a linee anzichè a istogrammi? (ho provato con oChart.chartType = VtChChartType2dLine oppure oChart.chartType = xlLineMarkers ma mi da errore 13)

Come si fa a chiudere excel da vb6 (COL TASTO Sub Command2_Click() );
ho provato con i vari sistemi commmentati nel codice mi da errore 424 (object required)

CODE

Private Sub Command1_Click()

Dim oXL As Object ' Excel application
Dim oBook As Object ' Excel workbook
Dim oSheet As Object ' Excel Worksheet
Dim oChart As Object ' Excel Chart

Dim iRow As Integer ' Index variable for the current Row
Dim iCol As Integer ' Index variable for the current Row

Const cNumCols = 84 ' Number of points in each Series
Const cNumRows = 3 ' Number of Series

ReDim aTemp(1 To cNumRows, 1 To cNumCols)

'Start Excel and create a new workbook
Set oXL = CreateObject("Excel.application")
Set oBook = oXL.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)

' Insert Random data into Cells for the three Series:
Randomize Now()
For iRow = 1 To cNumRows
For iCol = 1 To cNumCols
aTemp(iRow, iCol) = Int(Rnd * 50) + 1
Next iCol
Next iRow
oSheet.Range("A1").Resize(cNumRows, cNumCols).Value = aTemp

'Add a chart object to the first worksheet

Set oChart = oSheet.ChartObjects.Add(70, 5, 450, 280).Chart

'oChart.chartType = VtChChartType2dLine

oChart.SetSourceData Source:=oSheet.Range("A1").Resize(cNumRows, cNumCols)

' Make Excel Visible:
oXL.Visible = True
oXL.UserControl = True

End Sub

Private Sub Command2_Click()
'Kill "c:\documents and settings\administrator\documenti\cartel1.xls" effettivamente non è ancora salvata!!!
'oXL.Visible = False
'oXL.UserControl = False
'Excel.application.quit
'application.quit
'oXL.UserControl

End

End Sub

Ciao a tutti
Antonio

aduri	Inviato il: Nov 27 2009, 05:10 PM
Member Gruppo: Members Messaggi: 57 Utente Nr.: 543 Iscritto il: 21-January 06	RISOLTO Era principlmente un problema di variabili da locali a globali. ciao Antonio

Utenti totali che stanno leggendo la discussione: 2 (2 Visitatori e 0 Utenti Anonimi)

Gli utenti registrati sono 0 :

« Disc. precedente | .::VISUAL BASIC | Disc. successiva »

[ Script Execution time: 0.0442 ] [ 12 queries used ] [ GZIP Abilitato ]