Bonjour à tous,
J'ai un dgv rempli depuis une table dans ma database et j'aimerais exporter les données sous excel en fonction de 2 dates sélectionnées dans 2 datetimepicker.
Pour être plus clair, dans le dtp1 j'ai la date minimun et dans le dtp2 la maximun. Ces 2 dates doivent filtrer la colonne RequistionDate.
J'arrive à exporter dans excel mais en fonction des dates.
Voici mon code pour exporter:
Merci d'avance pour vos réponses
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
41
42
43
44
45
46
47
48
49
50
51
52
53 Private Sub BtnExport_Click(sender As Object, e As EventArgs) Handles btnExport.Click Dim xlApp As Microsoft.Office.Interop.Excel.Application Dim xlWorkBook As Microsoft.Office.Interop.Excel.Workbook Dim xlWorkSheet As Microsoft.Office.Interop.Excel.Worksheet Dim misValue As Object = System.Reflection.Missing.Value Dim i As Integer Dim j As Integer xlApp = New Microsoft.Office.Interop.Excel.Application xlWorkBook = xlApp.Workbooks.Add(misValue) xlWorkSheet = xlWorkBook.Sheets("sheet1") For i = 0 To DataGridView1.RowCount - 2 For j = 0 To DataGridView1.ColumnCount - 1 xlWorkSheet.Cells(i + 1, j + 1) = DataGridView1(j, i).Value.ToString() Next Next If My.Computer.FileSystem.FileExists("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx") Then My.Computer.FileSystem.DeleteFile("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx") Dim Report As String Report = "MyReport" & Format(Today, "MM/dd/yyyy") & ".xlsx" xlWorkSheet.SaveAs("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx") xlWorkBook.Close() xlApp.Quit() ReleaseObject(xlApp) ReleaseObject(xlWorkBook) ReleaseObject(xlWorkSheet) Process.Start("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx") Else Dim Report As String Report = "MyReport" & Format(Today, "MM/dd/yyyy") & ".xlsx" xlWorkSheet.SaveAs("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx") xlWorkBook.Close() xlApp.Quit() ReleaseObject(xlApp) ReleaseObject(xlWorkBook) ReleaseObject(xlWorkSheet) Process.Start("C:\ITDEV\Excel export\Schedule SheetTool\MyReport" & Format(Today, "MMddyyyy") & ".xlsx") End If End Sub
Partager