[VB6] Accedere ad Excel

[marco.santilli]

Vorrei aprire excel premendo un pulsante sotto VB

Scrivendo le righe principali:

Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set cartExcel = Excel.Workbooks.Add
Set foglioExcel = Excel.Worksheets.Add

Noto che scrivendo Excel. non mi compare il menù delle proprietà che posso attribure a quell'oggetto, cioè significa che non lo riconosce.

MI sapete dire come devo fare, affinche funzioni.

Modificate anche le stringhe....basti che mi si apre un nuovo file in excel

Ciao e grazieeeeeee

[alka]

Ti prego di essere più preciso con i titoli che attribuisci alle discussioni e di rispettare le convenzioni indicate nel Regolamento.

Questo titolo lo correggo io.

Ciao!

[marco.santilli]

Voglio aprire un foglio nuovo in EXCEL premendo un pulsante in VB.

Mi dite la sintassi corretta.


Ho scaricato un file dove c'era tale esempi, ho copiato le stringhe sotto il mio pulsante, quando lo premo mi dice:

ERRORE DI COMPILAZIONE:
TIPO DEFINITO DALL'UTENTE NON DEFINITO

Altra prova che ho fatto, sul file di esempio che ho scaricato:

Prendendo in considerazione questa stringa

Dim appExcel As New Excel.Application

Ed eliminando .Application

rimane

Dim appExcel As New Excel

mettendo il . mi apre il menù a tendina con le proprietà.

Facendo uguale sul mio progetto, questo non funziona, cioè mettendo il . non si apre nessun menù a tendina, come se Excel non fosse riconosciuto.

In poche parole, come faccio ad aprire un file EXCEL premendo un pulsante????

Ciao e grazieeeeeeeeee

[oregon]

Innanzitutto devi aggiungere un riferimento alla libreria di Excel.

Menu Progetti->Riferimenti

e spuntare la libreria di Excel ...

Te lo avevo detto anche nell'altro forum ... ma a quanto pare tu non leggi le risposte ...

[marco.santilli]

Ho messo questo nel pulsante

Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet
Set cartExcel = Excel.Workbooks.Add
Set foglioExcel = Excel.Worksheets.Add

Ho aggiunto il riferimento, ora mandando in esecuzone e cliccando sul pulsante non va in error, ma non apre un nuovo foglio di excel

Cosa devo aggiungere????

Ciao e grazieeeeeee

[marco.santilli]

Ci sono riuscito

E sono riuscito anche a caricare i dati.

E a stamparli

Ora quando gli do:

appExcel.ActiveWorkbook.Close
Lui mi chiede se salvare il foglio.

C'è un modo per fargli ignorare tale domanda e chiedere il foglio???

Ciao e grazieeeeeeeee

[oregon]

ActiveWorkbook.Close False

[marco.santilli]

Grande funziona!!!!!!

Adesso la parte più difficile:

Fino adesso ho fatto la parte dell'intestazione.
Ora devo fare il corpo.

Nel corpo devo inserire i dati uno di seguito all'altro.

Quindi ho gia creato un recordset e devo distruire i dati per righe:

Range("A13").Select
ActiveCell.FormulaR1C1 = "[Rigo]"
Range("B13").Select
ActiveCell.FormulaR1C1 = "[Servizio]"
Range("C1313").Select
ActiveCell.FormulaR1C1 = "[UT]"
Range("E13:F13").Select
ActiveCell.FormulaR1C1 = "[CS]"
Range("G13:H13").Select
ActiveCell.FormulaR1C1 = "[NL]"
Range("I13:J13").Select
ActiveCell.FormulaR1C1 = "[NS]"

Cpme faccio a fargli compilare una riga poi andare sotto prendere il secondo record, inserire i valori nel foglio e cosi via per tutto il recordset????

Ciao e grazieeeeeeeeee

[marco.santilli]

Help

Aiutatemi

Ciao e grazieeeeeee

[Luke(BI)]

Ciao guarda io avevo caricato il foglio excel con un codice del tipo:


ciclo...
exlFoglio.Range("F" & riga_valori).Font.Color = vbWhite
exlFoglio.Cells(riga_valori, 2) = date_temp
exlFoglio.Cells(riga_valori, 3) = CDbl(rec("Secco"))
exlFoglio.Cells(riga_valori, 4) = CDbl(rec("Ripresa"))
exlFoglio.Cells(riga_valori, 5) = CDbl(rec("Aumento"))
riga_valori = riga_valori + 1


usando la proprietà cells...

fammi sapere