[hamada558]

سبق أن خبرتك مالي في هذا المجال منشان هيك خبرت صديق لي بيعرف VB وأرسلت له طلبك مع رابط مساعد
فعملك تشكيلة دوال التعامل مع ملف الاكسل إن شاء الله بتعجبك وتلبي متطلبات مشروعك

1: طباعة مجال محدد من شيت معين من ملف اكسل PrintExcelSheetRange

2: تحويل مجال محدد من شيت معين من ملف اكسل إلى بي دي اف ExportExcelRangeToPdf

3: تحويل شيت معين من ملف اكسل إلى بي دي اف ExportExcelSheetToPdf

4: تحويل كامل ملف اكسل إلى بي دي اف ExportExcelWorkbookToPdf

---

PrintExcelSheetRange

كود :

   ''' <summary>طباعة مجال محدد من شيت معين من ملف اكسل</summary>
   ''' <param name="excelFile">إسم ملف الاكسل</param>
   ''' <param name="sheetName">إسم الشيت</param>
   ''' <param name="rangeAddress">A1:G50 عنوان المجال مثل</param>
   ''' <param name="copies">إختياري: عدد نسخ الطباعة</param>
   Shared Sub PrintExcelSheetRange(ByVal excelFile As String, ByVal sheetName As String, ByVal rangeAddress As String, Optional ByVal copies As Integer = 1)
       If Not IO.File.Exists(excelFile) Then
           MsgBox("لم أجد ملف الاكسل بإسم" & vbCrLf & excelFile)
           Return
       End If
       Dim excelApplication As New Excel.Application
       Dim excelWorkbook As Excel.Workbook = Nothing
       Dim excelSheet As Excel.Worksheet = Nothing
       Try

           excelApplication.Visible = False
           excelWorkbook = excelApplication.Workbooks.Open(excelFile)
           excelSheet = excelWorkbook.Sheets(sheetName)

           excelSheet.PageSetup.PrintArea = rangeAddress
           excelSheet.PrintOut(From:=1, To:=7, Copies:=copies, Collate:=True)


       Catch ex As Exception
           ' Respond to the error.
       End Try

       ' Close the workbook object.
       If Not excelWorkbook Is Nothing Then
           excelWorkbook.Close(False)
           excelWorkbook = Nothing
       End If

       ' Quit Excel and release the ApplicationClass object.
       If Not excelApplication Is Nothing Then
           excelApplication.Quit()
           excelApplication = Nothing
       End If

       GC.Collect()
       GC.WaitForPendingFinalizers()
   End Sub

---

ExportExcelRangeToPdf

كود :

''' <summary>تحويل مجال محدد من شيت معين من ملف اكسل إلى بي دي اف</summary>
    ''' <param name="excelFile">إسم ملف الاكسل</param>
    ''' <param name="sheetName">إسم الشيت</param>
    ''' <param name="rangeAddress">A1:G50 عنوان المجال مثل</param>
    ''' <param name="pdtFile">إسم ملف بي دي اف</param>
    Shared Sub ExportExcelRangeToPdf(ByVal excelFile As String, ByVal sheetName As String, ByVal rangeAddress As String, ByVal pdtFile As String)
        If Not IO.File.Exists(excelFile) Then
            MsgBox("لم أجد ملف الاكسل بإسم" & vbCrLf & excelFile)
            Return
        End If
        Dim excelApplication As New Excel.Application
        Dim excelWorkbook As Excel.Workbook = Nothing
        Dim excelSheet As Excel.Worksheet = Nothing
        Dim excelRange As Excel.Range = Nothing
        Try

            ' Open the source workbook.
            excelWorkbook = excelApplication.Workbooks.Open(excelFile)

            If excelWorkbook.Sheets.Cast(Of Object).Any(Function(x) x.Name.Equals(sheetName)) Then

                excelSheet = excelWorkbook.Sheets(sheetName)

                Dim paramExportFormat As Excel.XlFixedFormatType = Excel.XlFixedFormatType.xlTypePDF
                Dim paramExportQuality As Excel.XlFixedFormatQuality = Excel.XlFixedFormatQuality.xlQualityStandard
                Dim paramOpenAfterPublish As Boolean = False
                Dim paramIncludeDocProps As Boolean = True
                Dim paramIgnorePrintAreas As Boolean = True
                Dim paramFromPage As Object = Type.Missing
                Dim paramToPage As Object = Type.Missing

                excelRange = excelSheet.Range(rangeAddress)

                ' Save it in the target format.
                If Not excelRange Is Nothing Then
                    excelRange.ExportAsFixedFormat(
                        paramExportFormat, _
                        pdtFile, paramExportQuality, _
                        paramIncludeDocProps, paramIgnorePrintAreas, _
                        paramFromPage, paramToPage, paramOpenAfterPublish)
                End If
            Else
                MsgBox("لم أجد شيت بإسم" & vbCrLf & sheetName)
            End If
        Catch ex As Exception
            ' Respond to the error.
        End Try

        ' Close the workbook object.
        If Not excelWorkbook Is Nothing Then
            excelWorkbook.Close(False)
            excelWorkbook = Nothing
        End If

        ' Quit Excel and release the ApplicationClass object.
        If Not excelApplication Is Nothing Then
            excelApplication.Quit()
            excelApplication = Nothing
        End If

        GC.Collect()
        GC.WaitForPendingFinalizers()
    End Sub

---

ExportExcelSheetToPdf

كود :

''' <summary>تحويل شيت معين من ملف اكسل إلى بي دي اف</summary>
    ''' <param name="excelFile">إسم ملف الاكسل</param>
    ''' <param name="sheetName">إسم الشيت</param>
    ''' <param name="pdtFile">إسم ملف بي دي اف</param>
    Shared Sub ExportExcelSheetToPdf(ByVal excelFile As String, ByVal sheetName As String, ByVal pdtFile As String)
        If Not IO.File.Exists(excelFile) Then
            MsgBox("لم أجد ملف الاكسل بإسم" & vbCrLf & excelFile)
            Return
        End If
        Dim excelApplication As New Excel.Application
        Dim excelWorkbook As Excel.Workbook = Nothing
        Dim excelSheet As Excel.Worksheet = Nothing
        Try

            ' Open the source workbook.
            excelWorkbook = excelApplication.Workbooks.Open(excelFile)

            If excelWorkbook.Sheets.Cast(Of Object).Any(Function(x) x.Name.Equals(sheetName)) Then

                excelSheet = excelWorkbook.Sheets(sheetName)

                Dim paramExportFormat As Excel.XlFixedFormatType = Excel.XlFixedFormatType.xlTypePDF
                Dim paramExportQuality As Excel.XlFixedFormatQuality = Excel.XlFixedFormatQuality.xlQualityStandard
                Dim paramOpenAfterPublish As Boolean = False
                Dim paramIncludeDocProps As Boolean = True
                Dim paramIgnorePrintAreas As Boolean = True
                Dim paramFromPage As Object = Type.Missing
                Dim paramToPage As Object = Type.Missing

                ' Save it in the target format.
                If Not excelSheet Is Nothing Then
                    excelSheet.ExportAsFixedFormat(
                        paramExportFormat, _
                        pdtFile, paramExportQuality, _
                        paramIncludeDocProps, paramIgnorePrintAreas, _
                        paramFromPage, paramToPage, paramOpenAfterPublish)
                End If
            Else
                MsgBox("لم أجد شيت بإسم" & vbCrLf & sheetName)
            End If
        Catch ex As Exception
            ' Respond to the error.
        End Try

        ' Close the workbook object.
        If Not excelWorkbook Is Nothing Then
            excelWorkbook.Close(False)
            excelWorkbook = Nothing
        End If

        ' Quit Excel and release the ApplicationClass object.
        If Not excelApplication Is Nothing Then
            excelApplication.Quit()
            excelApplication = Nothing
        End If

        GC.Collect()
        GC.WaitForPendingFinalizers()
    End Sub

---

ExportExcelWorkbookToPdf

كود :

''' <summary>تحويل كامل ملف اكسل إلى بي دي اف</summary>
    ''' <param name="excelFile">إسم ملف الاكسل</param>
    ''' <param name="pdtFile">إسم ملف بي دي اف</param>
    Shared Sub ExportExcelWorkbookToPdf(ByVal excelFile As String, ByVal pdtFile As String)
        If Not IO.File.Exists(excelFile) Then
            MsgBox("لم أجد ملف الاكسل بإسم" & vbCrLf & excelFile)
            Return
        End If
        Dim excelApplication As New Excel.Application
        Dim excelWorkbook As Excel.Workbook = Nothing
        Try

            Dim paramExportFormat As Excel.XlFixedFormatType = Excel.XlFixedFormatType.xlTypePDF
            Dim paramExportQuality As Excel.XlFixedFormatQuality = Excel.XlFixedFormatQuality.xlQualityStandard
            Dim paramOpenAfterPublish As Boolean = False
            Dim paramIncludeDocProps As Boolean = True
            Dim paramIgnorePrintAreas As Boolean = True
            Dim paramFromPage As Object = Type.Missing
            Dim paramToPage As Object = Type.Missing

            ' Open the source workbook.
            excelWorkbook = excelApplication.Workbooks.Open(excelFile)

            ' Save it in the target format.
            If Not excelWorkbook Is Nothing Then
                excelWorkbook.ExportAsFixedFormat(
                    paramExportFormat, _
                    pdtFile, paramExportQuality, _
                    paramIncludeDocProps, paramIgnorePrintAreas, _
                    paramFromPage, paramToPage, paramOpenAfterPublish)
            End If

        Catch ex As Exception
            ' Respond to the error.
        End Try

        ' Close the workbook object.
        If Not excelWorkbook Is Nothing Then
            excelWorkbook.Close(False)
            excelWorkbook = Nothing
        End If

        ' Quit Excel and release the ApplicationClass object.
        If Not excelApplication Is Nothing Then
            excelApplication.Quit()
            excelApplication = Nothing
        End If

        GC.Collect()
        GC.WaitForPendingFinalizers()
    End Sub