Esportazione dati da access a excel in office 2007

sabato 29 settembre 2007 - 17.27

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

basicdany Profilo | Expert

590 messaggi | Data Invio: sab 29 set 2007 - 17:27

ciao, effettuavo l'esportazione in excel da access tramite codice vb, in excell 2003, ora ho un grosso problema devo farlo in excel 2007, e non funziona, infatti carica la libreria 12.0 inceve della 11.0 di excel 2003

chiedo aiuto???

grazie

Xnetus Profilo | Junior Member

130 messaggi | Data Invio: sab 29 set 2007 - 17:58

>ciao, effettuavo l'esportazione in excel da access tramite codice
>vb, in excell 2003, ora ho un grosso problema devo farlo in excel
>2007, e non funziona, infatti carica la libreria 12.0 inceve
>della 11.0 di excel 2003
>
>chiedo aiuto???
>
>grazie

Precisamente in che punto si interrompe il programma?

http://blogs.dotnethell.it/Xnetus/

basicdany Profilo | Expert

590 messaggi | Data Invio: dom 30 set 2007 - 15:03

Ciao, praticamente perde tutti i riferimenti all'oggetto dell'oggetto excel 11.0,
mi chiedo ma l'oggetto excel 12.0 funziona come excel 11.0, perche ho caricato il riferimento al 12.00 ma non vede piu niente come riferimento
I riferimenti da caricare sono differenti?

ecco una delle tante procedure che utilizzo excel 2003

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()

grazie, magari se puoi indicarmi i riferimenti caricare con il 12.0

Xnetus Profilo | Junior Member

130 messaggi | Data Invio: dom 30 set 2007 - 16:30

>Ciao, praticamente perde tutti i riferimenti all'oggetto dell'oggetto
>excel 11.0,
>mi chiedo ma l'oggetto excel 12.0 funziona come excel 11.0, perche
>ho caricato il riferimento al 12.00 ma non vede piu niente come
>riferimento
>I riferimenti da caricare sono differenti?

>grazie, magari se puoi indicarmi i riferimenti caricare con il
>12.0

Il riferimento da utilizzare è "Microsoft Excel 12.0 Object Library. Comunque prova questo codice:

Dim appExcel As New Excel.Application
Dim cartExcel As Excel.Workbook
Dim foglioExcel As Excel.Worksheet

appExcel.Visible = False
Set cartExcel = Excel.Workbooks.Open(Dir & "\Cartel1.xls")
Set cartExcel = Excel.Workbooks.Add
Set foglioExcel = Excel.Worksheets.Add

foglioExcel.Cells(1, 1).Value = "prova scrittura1 1"

foglioExcel.Cells(1, 2).Value = "prova scrittura1 2 "

foglioExcel.Cells(1, 3).Value = "prova scrittura1 3"

foglioExcel.Cells(2, 1).Value = "prova scrittura2 1"

foglioExcel.Cells(2, 2).Value = "prova scrittura2 2"

foglioExcel.Cells(2, 3).Value = "prova scrittura2 3"

cartExcel.Close

cartExcel.SaveAs (Dir & "\prova.xls")

appExcel.Quit

http://blogs.dotnethell.it/Xnetus/

basicdany Profilo | Expert

590 messaggi | Data Invio: lun 1 ott 2007 - 08:23

Ciao, grazie tanto per la risposta, ho provato la procedura che mi hai passato ma e lo stesso, poi ho fatto queste prove:

formattato il pc reinstallato tutto con office 2003: il programma funziona esegue l'esportazione in excel
installato access 2007 lasciando il 2003: il programma non funziona, perde tutti i riferimenti.

chiaramento metto come riferimenti object 12.0 e non object 11.0, inoltre se lascio object 11.0 non perde i riferimenti ma da errore appena istanzio l'oggetto excel...

Cosa possa fare?
puoi aiutarmi.

Xnetus Profilo | Junior Member

130 messaggi | Data Invio: lun 1 ott 2007 - 14:15

>Ciao, grazie tanto per la risposta, ho provato la procedura che
>mi hai passato ma e lo stesso, poi ho fatto queste prove:
>
>formattato il pc reinstallato tutto con office 2003: il programma
>funziona esegue l'esportazione in excel
>installato access 2007 lasciando il 2003: il programma non funziona,
>perde tutti i riferimenti.
>
>chiaramento metto come riferimenti object 12.0 e non object 11.0,
>inoltre se lascio object 11.0 non perde i riferimenti ma da errore
>appena istanzio l'oggetto excel...

Allora lascia Excel 11 e converti il database alla versione precedente.

http://blogs.dotnethell.it/Xnetus/

basicdany Profilo | Expert

590 messaggi | Data Invio: lun 1 ott 2007 - 21:26

ciao, il problema non access e l'importazione in excel, con riferimento a 12.0 excel 2007 non carica i riferimenti per eseguire l'esportazione.

grazie spero qualcuno possa aiutarmi.

basicdany Profilo | Expert

590 messaggi | Data Invio: mer 3 ott 2007 - 08:01

Salve, ho bisogno di effettuare un'esportazione di alcuni campi in excel 2007 TRAMITE CODICE VB, VORREI SAPERE SE QUALCUNO DI VOI SA COME FARLO? SE SI SE PUO INDICARMI COME.

GRAZIE A TUTTI

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !