09-01-21, 01:26 AM
ضيفت زر استيراد من اكسل
ظهر خط ازرق تحت oledbconnection مع انى استوردت الوكتبه
ظهر خط ازرق تحت oledbconnection مع انى استوردت الوكتبه
الصفحات : 1 2
09-01-21, 01:41 AM
09-01-21, 03:57 AM
17-01-21, 11:45 PM
بيان التاريخ يظهر خطاء
كود :
Private Sub BtnExport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnExport.Click
System.Threading.Thread.CurrentThread.CurrentCulture = System.Globalization.CultureInfo.CreateSpecificCulture("en-us")
Dim ExlApp As New Application
Dim ExlWorkBook As Workbook
Dim ExlWorkSheet As New Worksheet
If Dgv.Rows IsNot Nothing Then
Dim MisValue As Object = System.Reflection.Missing.Value
ExlWorkBook = ExlApp.Workbooks.Add(MisValue)
ExlWorkSheet = ExlWorkBook.Sheets.Add
ExlWorkSheet.Name = "sheet1"
'ExlWorkSheet = ExlWorkBook.Sheets("sheet1")
For colheader As Integer = 0 To Dgv.ColumnCount - 1
ExlWorkSheet.Cells(1, colheader + 1) = Dgv.Columns(colheader).HeaderText
Next
For r As Integer = 0 To Dgv.RowCount - 1
For c As Integer = 0 To Dgv.ColumnCount - 1
ExlWorkSheet.Cells(r + 2, c + 1) = Dgv.Rows(r).Cells(c).Value
Next
Next
End If
SaveFileDialog1.Filter = "Excel Files|*.xlsx|Excel 2003|*.xls"
If SaveFileDialog1.ShowDialog = System.Windows.Forms.DialogResult.OK Then
ExlWorkSheet.SaveAs(SaveFileDialog1.FileName)
End If
ExlWorkBook.Close()
ExlApp.Quit()
System.Runtime.InteropServices.Marshal.ReleaseComObject(ExlApp)
System.Runtime.InteropServices.Marshal.ReleaseComObject(ExlWorkBook)
System.Runtime.InteropServices.Marshal.ReleaseComObject(ExlWorkSheet)
ExlApp = Nothing
ExlWorkBook = Nothing
ExlWorkSheet = Nothing
If MessageBox.Show("هل تريد فتح الملف ؟", "فتح الملف", MessageBoxButtons.YesNo) Then
Process.Start(SaveFileDialog1.FileName)
End If
End Subالصفحات : 1 2