Exporter base de donnée vers Excel
Bonjour,
Je dois reprendre un travail réalisé par un précédent stagiaire.
Dans son exportation d'information, il utilise une fonction que je ne comprends pas vraiment.
Code:
1
2
3
4
5
6
7
8
9
| Public Sub OuvrirFichierGenere(ByVal chemin As String, ByRef ExcelInst As Excel.Application, ByRef WB As Excel.Workbook, ByVal RepFichModel As String, ByRef genSheet As Excel.Worksheet)
Dim nomFeuil As String
WB = ExcelInst.Workbooks.Open(RepFichModel)
WB.SaveAs(chemin)
nomFeuil = WB.Worksheets(1).name
genSheet = WB.Worksheets(nomFeuil)
ExcelInst.Visible = False
End Sub |
Pourriez vous m'aider ?
Je n'en comprend pas l'utilité. D'autant plus que RepFichModel contient un simple fichier excel avec une feuille nommé "général".
De plus, je dois modifier le logiciel pour qu'il puisse tourner sur un serveur ne possédant pas Excel. Or, cette même fonction ouvre le fichier excel. J'aurais souhaité savoir si je pouvais faire la même chose sans être obligé de l'ouvrir.
Merci d'avance pour votre aide.
Cordialement, Florian.
save workbook as xml for office2003
bonjour florian
tu peux sauvegarder ton classeur en xml à partir de office 2003 in situ et l'envoyer tel quel en xml.
exemple de sortie fichier xml
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882"
xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:html="http://www.w3.org/TR/REC-html40"
xmlns:x2="http://schemas.microsoft.com/office/excel/2003/xml">
<Worksheet ss:Name="Sheet1">
<Table ss:ExpandedColumnCount="5" ss:ExpandedRowCount="2" x:FullColumns="1"
x:FullRows="1">
<Column ss:Index="5" ss:AutoFitWidth="0" ss:Width="54.75"/>
<Row>
<Cell><Data ss:Type="Number">1</Data></Cell>
<Cell><Data ss:Type="Number">2</Data></Cell>
<Cell><Data ss:Type="Number">3</Data></Cell>
</Row>
<Row>
<Cell><Data ss:Type="Number">4</Data></Cell>
<Cell><Data ss:Type="Number">5</Data></Cell>
<Cell><Data ss:Type="Number">6</Data></Cell>
</Row>
</Table>
</Worksheet>
</Workbook> |
benefices et astuces:
1/ -<?mso-application progid="Excel.Sheet"?>
cette ligne instruit l'editeur xml MsoXmlEd.Exe à uttiliser excel.exe pour ouvririr le fichier excel.
2/-si tu changes la ligne precedente comme suit
-<?mso-application progid="Word.Document"?>
le classeur pourra etre ouvert dans word
3/-tu peux exporter comme page web la feuille
Fichier Save->Selectionner "Web Page (*.htm; *.html)" . Excel affiche options une boite de dialogue.si tu coche add interactivite ,il sauvegarde egalement dans le fichier un activex office web components pour ouverture dabs internet explorer.
bon code...........
