Utilizzo di ADO per leggere e scrivere dati in cartelle di lavoro di Excel illustrato in ExcelADO

Perché utilizzare ADO?

• Prestazioni. Microsoft Excel è un server ActiveX out-of-process. ADO viene eseguito in-process e consente di ridurre il sovraccarico dovuto alle chiamate out-of-process.
• Scalabilità. Per applicazioni Web, non è sempre desiderabile automatizzare Microsoft Excel. ADO offre una soluzione più scalabile per la gestione dei dati di una cartella di lavoro.

Specifiche del provider Jet OLE DB per cartelle di lavoro di Excel

• Excel 3.0
• Excel 4.0
• Excel 5.0
• Excel 8.0

Dim oConn As New ADODB.Connection
With oConn
    .Provider = "Microsoft.Jet.OLEDB.4.0"
    .Properties("Extended Properties").Value = "Excel 8.0"
    .Open "C:\Book1.xls"
    '....
    .Close
End With
				

Dim oConn As New ADODB.Connection
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
           "Data Source=C:\Book1.xls;" & _
           "Extended Properties=""Excel 8.0;"""
oConn.Close
				

• Utilizzare il nome foglio seguito dal simbolo del dollaro, ad esempio [Foglio1$] o [Fogliodilavoro$]). Una tabella di cartelle di lavoro a cui si fa riferimento in questo modo è costituita dall'intero intervallo utilizzato del foglio di lavoro.

  oRS.Open "Select * from [Sheet1$]", oConn, adOpenStatic
  					

• Utilizzare un intervallo con un nome definito, ad esempio [Tabella1].

  oRS.Open "Select * from Table1", oConn, adOpenStatic
  					

• Utilizzare un intervallo con un indirizzo specifico, ad esempio [Foglio1$A1:B10].

  oRS.Open "Select * from [Sheet1$A1:B10]", oConn, adOpenStatic
  					

File inclusi nell'esempio

• ExcelADO.vbp
• Form1.frm
• Form1.frx

• EmpData.asp
• Orders.asp

• OrdersTemplate.xls
• EmpDataTemplate.xls
• ProductsTemplate.xls
• SourceData.xls

• Data.mdb

Come utilizzare l'esempio

1. In Visual Basic, aprire il file ExcelADO.vbp.
2. Selezionare Riferimenti dal menu Progetto, quindi impostare i riferimenti su Microsoft ADO Ext. for DDL and Security e Libreria Microsoft ActiveX Data Objects. Questo codice di esempio funziona con ADO 2.5 e ADO 2.6, selezionare quindi la versione appropriata per il computer in uso.
3. Premere F5 per eseguire il programma. Viene visualizzato un modulo per la dimostrazione.
4. Fare clic su Esempio 1. Questo esempio consente di creare una copia di OrdersTemplate.xls. Viene quindi utilizzato ADO per stabilire una connessione alla cartella di lavoro e viene aperto un Recordset nella tabella che rappresenta un intervallo definito della cartella di lavoro. Il nome dell'intervallo è Orders_Table. Vengono utilizzati i metodi AddNew/Update ADO per aggiungere record, o righe, a un intervallo definito della cartella di lavoro. Al termine dell'aggiunta di righe, la Connessione ADO viene chiusa e la cartella di lavoro viene visualizzata in Microsoft Excel. Per effettuare questa operazione, attenersi alla seguente procedura:
   1. Scegliere Nomi dal menu Inserisci di Excel, quindi selezionare Definisci.
   2. Nell'elenco dei nomi definiti, selezionare Orders_Table. Notare che il nome definito ora include i nuovi record aggiunti. Il nome definito viene utilizzato in combinazione con la funzione OFFSET di Excel per calcolare il totale dei dati aggiunti al foglio di lavoro.
   3. Chiudere Microsoft Excel e tornare all'applicazione Visual Basic.
5. Fare clic su Esempio 2. Questo esempio consente di creare una copia di EmpDataTemplate.xls. Viene utilizzato ADO per stabilire una connessione a una cartella di lavoro e il metodo Execute della connessione ADO per inserire dati (INSERT INTO in SQL) nella cartella di lavoro. I dati vengono aggiunti a intervalli definiti (o tabelle) della cartella di lavoro. Al termine del trasferimento dei dati, la connessione viene chiusa e la cartella di lavoro risultante viene visualizzata in Excel. Dopo aver esaminato la cartella di lavoro, chiudere Microsoft Excel e tornare all'applicazione Visual Basic.
   
   
6. Fare clic su Esempio 3. Questo esempio consente di creare una copia di ProductsTemplate.xls. Viene utilizzata la libreria oggetti Microsoft ADO Extensions 2.1 for DDL and Security (ADOX) per aggiungere una nuova tabella, o un nuovo foglio di lavoro, alla cartella di lavoro. Si ottiene quindi un Recordset ADO per la nuova tabella e i dati vengono aggiunti utilizzando i metodi AddNew/Update. Al termine dell'aggiunta di righe, la Connessione ADO viene chiusa e la cartella di lavoro viene visualizzata in Microsoft Excel. La cartella di lavoro contiene il codice della macro VBA (Visual Basic for Applications) nell'evento Apri per la cartella di lavoro. La macro viene eseguita quando viene aperta la cartella di lavoro. Se il nuovo foglio di lavoro "Prodotti" esiste nella cartella di lavoro, il codice della macro consentirà la formattazione del foglio di lavoro, per essere poi eliminato. Questa tecnica consente allo sviluppatore Web di spostare codice di formattazione dal server Web al client. Un'applicazione Web può trasmettere una cartella di lavoro formattata contenente dati al client e consente l'esecuzione a livello di client del codice della macro per l'applicazione di formattazione "condizionale" che potrebbe non essere possibile in un modello isolato.
   
   NOTA: per esaminare il codice della macro, visualizzare il modulo ThisWorkbook in VBAProject di ProductsTemplate.xls.
   
   
7. Fare clic su Esempio 4. Questo esempio produce gli stessi risultati dell'esempio 1 ma la tecnica utilizzata per il trasferimento dei dati è leggermente differente. Nell'esempio 1, i record, o righe, vengono aggiunti al foglio di lavoro uno alla volta. L'esempio 4 aggiunge i record in blocco associando la tabella di Excel a un database di Access ed eseguendo una query di accodamento (o INSERT INTO..SELECT FROM) per accodare i record di una tabella nella tabella di Access alla tabella di Excel. Al termine del trasferimento viene annullata l'associazione della tabella di Excel dal database di Access e la cartella di lavoro risultante viene visualizzata in Excel. Chiudere Microsoft Excel e tornare all'applicazione Visual Basic.
   
   
8. L'ultimo esempio illustra come leggere dati da una cartella di lavoro di Excel. Nell'elenco a discesa selezionare tabella, quindi scegliere Esempio 5. La finestra di controllo immediato visualizza il contenuto della tabella selezionata. Se si seleziona un intero foglio di lavoro ("Foglio1$" o "Foglio2$") per la tabella, la finestra di controllo immediato visualizzerà il contenuto dell'intervallo utilizzato per tale foglio di lavoro. Notare che l'intervallo utilizzato non inizia necessariamente alla riga 1, colonna 1 del foglio di lavoro. L'intervallo utilizzato inizia nella cella in alto a sinistra del foglio di lavoro contenente i dati.
   
   Se si seleziona un indirizzo intervallo specifico o un intervallo definito, la finestra di controllo immediato visualizzerà solo il contenuto di tale intervallo del foglio di lavoro.

1. Creare una nuova cartella denominata ExcelADO nella home directory del server Web. Notare che il percorso predefinito della home directory è C:\InetPut\WWWRoot.
2. Copiare i file seguenti nella cartella creata durante il passaggio precedente:
   • EmpData.asp
   • Orders.asp
   • Data.mdb
   • EmpDataTemplate.xls
   • OrdersTemplate.xls
   
   
3. Gli script ASP di questo esempio consentono di creare copie dei modelli cartelle di lavoro con il metodo Copy di FileSystemObject. Per poter utilizzare il metodo Copy, il client che accede allo script deve disporre dell'accesso in scrittura alla cartella contenente la pagina ASP.
4. Passare a Orders.asp, vale a dire, http://YourServer/ExcelADO/Orders.ASP, e notare che il browser visualizza una cartella di lavoro di Excel simile a quella dell'esempio 1 dell'applicazione Visual Basic.
5. Passare a EmpData.asp, vale a dire, http://YourServer/ExcelADO/EmpData.ASP, e notare che il browser visualizza una cartella di lavoro di Excel simile a quella dell'esempio 2 dell'applicazione Visual Basic.

Torna all'inizio | Invia suggerimenti