اذهب إلى المحتوى
  • 0

ماهي القيم المُدخلة للتحكم في Cells عند ربط تطبيق Vb.net بـ Excel؟

محمد بوسكوري

السؤال

لدي سؤال من شقين:

هل يعتبر 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

 

رابط هذا التعليق
شارك على الشبكات الإجتماعية

Recommended Posts

  • 0

كإجابة عن سؤالك الأول، أجد EPPlus مفيد ويوفر العديد من الامتيازات أثنا العمل مع لفات Excel.

القيم التي تأخدها وظيفة cells عند استعمال(ws.Cells(1, 1, 1, 10 هي:

  • الرقم  الترتيبي  للصف الأول ضمن المجال المحدد.
  • الرقم  الترتيبي  العمود الأول ضمن المجال المحدد.
  • الرقم  الترتيبي  للصف الأخير ضمن المجال المحدد.
  • الرقم  الترتيبي  للعمود الأخير ضمن المجال المحدد.
رابط هذا التعليق
شارك على الشبكات الإجتماعية

انضم إلى النقاش

يمكنك أن تنشر الآن وتسجل لاحقًا. إذا كان لديك حساب، فسجل الدخول الآن لتنشر باسم حسابك.

زائر
أجب على هذا السؤال...

×   لقد أضفت محتوى بخط أو تنسيق مختلف.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   جرى استعادة المحتوى السابق..   امسح المحرر

×   You cannot paste images directly. Upload or insert images from URL.

  • إعلانات

  • تابعنا على



×
×
  • أضف...