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
| 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 SheetExcel As Excel.Worksheet = xlApp.Workbooks.Add.ActiveSheet
'requete serveur
Dim path As String = My.Application.Info.DirectoryPath
With SheetExcel.QueryTables.Add(Connection:= _
"OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & path & "\" & IDEA.fichier & ";Jet OLEDB:Database Password=" & IDEA.mdp, Destination:=SheetExcel.Range("A1"))
.CommandText = "select * from toto"
.Name = "version"
.FieldNames = True
.RowNumbers = False
.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 |
Partager