1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
| System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-US")
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object = System.Reflection.Missing.Value
xlApp = New Excel.Application
xlApp.Visible = False
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Worksheets("sheet1")
myDataTable 'qui est remplie avec mes données
'ici, j'aimerais effectuer une requête du type:
'SELECT a, MAX(data1) AS b, MAX(data2) AS c FROM myDataTable
'et mettre le résultat dans mon fichier excel
xlWorkSheet.SaveAs("C:\Documents and Settings\nomvariable.xls") |
Partager