لدي سؤال من شقين: هل يعتبر EPPlus اختيار صائب لربط تطبيق Vb.net بملف Excel. ماهي القيم التي تأخدها الدالة ws.cells الموجودة بهذا الكود، ما فائدتها؟ Imports OfficeOpenXml
Imports OfficeOpenXml.Style
Imports System.IO
Public Class excelExport
Private Access As New DBControl
Public Sub myReport()
Dim saveDialog As New SaveFileDialog
saveDialog.Filter = "Excel File (*.xlsx)|*.xlsx"
saveDialog.FilterIndex = 1
If saveDialog.ShowDialog() = DialogResult.OK Then
Try
Dim file As FileInfo = New FileInfo(saveDialog.FileName)
' Ensures we create a new workbook
If (file.Exists) Then
file.Delete()
End If
Dim pck As ExcelPackage = New ExcelPackage(file)
' Add a new worksheet to the empty workbook
Dim ws As ExcelWorksheet = pck.Workbook.Worksheets.Add("Sheet1")
' Load data from DataTable to the worksheet
ws.Cells("A1").Value = "new"
ws.Cells.AutoFitColumns()
' Add some styling
Dim rng As ExcelRange = ws.Cells(1, 1, 1, 10) '<---------- This code
rng.Style.Font.Bold = True
rng.Style.Fill.PatternType = ExcelFillStyle.Solid
rng.Style.Fill.BackgroundColor.SetColor(System.Drawing.Color.FromArgb(79, 129, 189))
rng.Style.Font.Color.SetColor(System.Drawing.Color.White)
' Save the new workbook
pck.Save()
MessageBox.Show(String.Format("Excel file {0} generated successfully.", file.Name))
Catch ex As Exception
MessageBox.Show("Failed to export to Excel. Original error: " + ex.Message)
End Try
End If
End Sub
End Class