|
Importation de données dans Microsoft Office Excel ne doit pas signifier la saisie manuelle de la feuille de calcul entière . Utilisation d'Access Visual Basic (VBA) vous permet d'économiser beaucoup d'efforts, le transfert de vos fichiers sans accroc. Il vous donne les outils pour ouvrir les fichiers dans le langage de balisage extensible (XML) , qui est utilisé pour encoder des documents dans un format qui peut être lu par n'importe quelle application compatible; Excel est une telle application. Il suffit de créer un objet DataSet , l'exporter vers un fichier XML et vos données seront au rendez- vous dans Excel. Instructions
1 Démarrage
2 Cliquez sur " Fichier", " MicrosoftVisualStudio.net " puis "Nouveau". Sélectionnez «Projet ». Choisissez " Application Windows " dans les types de projets pour créer Form1.
3 Cliquez " Boîte à outils ", situé dans le menu de la vue.
4 insérer un bouton dans " Form1 ", puis double- cliquez sur "Button 1".
5 Sélectionnez le code suivant en faisant glisser votre souris du premier au dernier mot .
Hold " Ctrl "et appuyez sur " C " sur votre clavier pour copier :
strConn privé As String =" Provider = Microsoft.Jet.OLEDB.4.0; Data Source = "& _
" C: \\ Program Files \\ Microsoft office \\ Office10 \\ Samples \\ Comptoir.mdb ; ».
6 de Cliquez sur " Form1 classe "et appuyez sur " Ctrl " et " P " ensemble pour coller le code < br > Photos 7 Copier tout le code suivant :
'Connexion à la source de données
objConn As New System.Data.OleDb.OleDbConnection ( strConn ) < br . > essayer et objConn.Open ()
«remplir un ensemble de données avec les enregistrements de la table Customers.
strSQL Dim As String Dim
objDataset Comme new DataSet ()
objAdapter As New System.Data.OleDb.OleDbDataAdapter ()
strSQL = "Select client, société , nom du contact , " & _
« Pays , Tel provenant de clients»
objAdapter.SelectCommand = New System.Data.OleDb.OleDbCommand (_
strSQL , objConn )
objAdapter.Fill ( objDataset )
' Créer le FileStream pour écrire avec
strFilename Dim As String =
strFilename . "C: \\ Customers.xml "
fs As New système . IO.FileStream ( strFilename , _
System.IO.FileMode.Create )
' Créer un XmlTextWriter pour le FileStream.
XTW As New System.Xml . XmlTextWriter (fs , _
System.Text.Encoding.Unicode )
'Ajouter instructions de traitement au début du fichier XML , une
' qui indique un style feuille .
xtw.WriteProcessingInstruction ( "xml ", " version = '1 .0 ' " )
' xtw.WriteProcessingInstruction (_
' "xml -stylesheet ", " type = 'text /xsl " href =' Customers.xsl » )
», écrivent les XML à partir de l'ensemble de données dans le fichier .
objDataset.WriteXml ( XTW )
xtw.Close ()
MsgBox (" Les données clients a été exporté vers C : \\. Customers.xml " )
Catch ex As Exception
MsgBox ( ex. message)
End Try
8 collez le code dans le gestionnaire " Button1_Click " .
9 Appuyez sur " F5" de votre clavier pour créer et puis exécutez le programme .
10 Cliquez sur "Button1 ", et cela va créer le fichier XML.
11 Exit " Form1 " pour fermer le programme .
12 Démarrez " Microsoft office Excel. " Cliquez sur le bouton «Microsoft Office» , puis sur «Ouvrir ».
13 Recherchez et sélectionnez le fichier " C : \\. Customers.xml "
|
