Utiliser openoffice au lieu d'excel
Bonjour,
je sais faire un export excel avec vb.net 2005 grace à ce code :
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
28
29
30
31
32
33
34
35
36
37
38
39
40
|
Dim xlApp As Excel.Application
Try
xlApp = GetObject(, "excel.application")
Catch
xlApp = New Excel.Application
Finally
xlApp.Visible = False
End Try
'ajout d'une page et sélection
Dim xsSoldesComptes5 As Excel.Worksheet = xlApp.Workbooks.Add.ActiveSheet
'requete serveur
Try
With xsSoldesComptes5.QueryTables.Add(Connection:= _
"ODBC;DRIVER=SQL Server;SERVER=toto;Integrated Security=SSPI;" & _
"APP=Microsoft® Query;DATABASE=Brazza;Trusted_Connection=Yes" _
, Destination:=xsSoldesComptes5.Range("A1"))
.CommandText = "requete"
.Name = "SoldesComptes5"
.FieldNames = True
.RowNumbers = True
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = Excel.XlCellInsertionMode.xlOverwriteCells
.SavePassword = False
.SaveData = False
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh(BackgroundQuery:=False)
End With
' affichage
xlApp.Visible = True
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try |
est ce qu'il est possible de faire la meme chose mais dans le tableur d'open office, y as t'il des references qui existent et comment declarer les objets "classur" "feuille" ...
Merci.
