[VB6] Esporta in XLS

[StegcO]

Private Sub cmd_excel_Click()

Dim n As Integer
Dim i As Integer

'creo una nuova istanza dell'oggetto Excel Application
Dim appExcel As New Excel.Application

'dichiaro una cartella di lavoro
Dim wbookExcel As Excel.Workbook

'dichiaro un foglio di lavoro
Dim foglioExc As Excel.Worksheet

'rendo visibile il foglio excel (apro l'applicazione)
appExcel.Visible = False
appExcel.Workbooks.Add()

'Apro il file excel usato come modello
wbookExcel = appExcel.Workbooks.Open(CurDir() + "\Cartel1.xls")

'Vado a lavorare sul foglio desiderato della cartella
'indicandone il nome
foglioExc = appExcel.Worksheets("foglio1")

'Inserisco i dati nelle celle desiderate con un un ciclo annidato:

foglioExc.Cells(1, 1).Value = "prova scrittura1 1"
foglioExc.Cells(1, 2).Value = "prova scrittura1 2 "
foglioExc.Cells(1, 3).Value = "prova scrittura1 3"
foglioExc.Cells(2, 1).Value = "prova scrittura2 1"
foglioExc.Cells(2, 2).Value = "prova scrittura2 2"
foglioExc.Cells(2, 3).Value = "prova scrittura2 3"

'Salvo con un altro nome cosi non altero il modello
foglioExc.SaveAs (CurDir() + "\prova.xls")

'chiudo
appExcel.Quit()

End Sub

Su internet ho trovato questo, dovrebbe esportare in Excel, però si blocca alla riga in neretto con l'errore.

Errore di compilazione:
Tipo definito dall'utente non definito

[oregon]

Ovviamente ... se non inserisci il riferimento ad Excel (che dovrai avere installato nel PC in cui esegui il programma), come puo' essere eseguito il codice?

Menu Progetto -> Riferimenti -> Microsoft Excel _ _ _ Object Library

P.S. Non ti consiglio di copiare-incollare-eseguire programmi presi da internet, senza averli studiati e capiti a fondo prima ...

[StegcO]

Private Sub cmd_excel_Click()

Dim ExcelApp As Excel.Application
Dim ExcelBook As Workbook

MsgBox "Esportazione in Excel effettuata.", vbOKOnly, "Avviso"

Rem Set ExcelApp = CreateObject("Excel.Application")
Set ExcelApp = New Excel.Application

ExcelApp.Application.Visible = True

Set ExcelBook = ExcelApp.Workbooks.Add

With ExcelApp.Application
    .Range("A1", "M2").Select
    .Selection.Interior.ColorIndex = 35
    .Cells(1, 1).Value = "ValoreDaEsportare"
    .Cells(1, 1).Select
    ExcelApp.Selection.HorizontalAlignment = xlCenter
End With

ExcelApp.Quit
Set ExcelApp = Nothing
Set ExcelBook = Nothing

End Sub

questo funziona (se serve a qualcuno)

[oregon]

Sì ... ma a cosa e' servito il mio suggerimento? Non l'ho capito ...

[StegcO]

e.. in che senso a cosa è servito?

Se qualcuno deve esportare dei datid a VB6 a Excel esegue un cerca nel forum e trova uno script già fatto.

no?

magari mi sbaglio

[oregon]

Non il tuo codice, il mio suggerimento ... hai trovato il riferimento? Lo hai inserito?

[StegcO]

a sisi, ora ti spiego

in pratica il primo codice che ho postato necessitava del riferimento 12.0 che però non avevo nella lista, allora ho trovato ilsecondo codice con riferimento 11.0 (che sta volta ho) e quindi ho usato questo

grazie mille