用代碼操作Excel，實現(xiàn)分類匯總、頁面設(shè)置

guotianxin

這篇文章是《將窗體內(nèi)容導(dǎo)出到Excel并對其進行格式化》http://ctxi.cn/forum.php?mod=viewthread&tid=22539

的高級話題。

當你將窗體的數(shù)據(jù)導(dǎo)出到Excel后，可能會碰到需要對報表數(shù)據(jù)進行排序、分類匯總、頁面設(shè)置等操作，下面我將我曾經(jīng)寫過的代碼公開給大家，與大家分享，希望能對你有所幫助：

        '排序

        MyXL.Worksheets(1).UsedRange.Select

        SortByCol "F6"        '按F6所在的列排序

        '分類統(tǒng)計

        

        Dim sTotalCol()

        Dim aTotalCol(10) As Integer

        Dim n As Integer

        

        '分類統(tǒng)計的序號

        i = 1

        For i = 0 To lstTarget.ListCount - 1

            If lstTarget.ItemData(i) = Me.cboCat Then

                Exit For

            End If

        Next i

        

        '分類統(tǒng)計的列數(shù)及列號

        n = 1

        For n = 1 To 10

            aTotalCol(n) = 0

        Next n

        n = 1

        For j = 0 To iCols - 1

            Select Case rstTmp.Fields(j).Type

            Case 4          '數(shù)值型

                aTotalCol(n) = j + 1

                n = n + 1

            Case 5          '貨幣型

                aTotalCol(n) = j + 1

                n = n + 1

            End Select

        Next j

        

        For n = 0 To 10

            If aTotalCol(n + 1) = 0 Then

                Exit For

            End If

        Next n

        

        Select Case n

        Case 1

            sTotalCol = Array(aTotalCol(1))

        Case 2

            sTotalCol = Array(aTotalCol(1), aTotalCol(2))

        Case 3

            sTotalCol = Array(aTotalCol(1), aTotalCol(2), aTotalCol(3))

        Case 4

            sTotalCol = Array(aTotalCol(1), aTotalCol(2), aTotalCol(3), aTotalCol(4))

        Case 5

            sTotalCol = Array(aTotalCol(1), aTotalCol(2), aTotalCol(3), aTotalCol(4), aTotalCol(5))

        Case 6

            sTotalCol = Array(aTotalCol(1), aTotalCol(2), aTotalCol(3), aTotalCol(4), aTotalCol(5), aTotalCol(6))

        Case 7

            sTotalCol = Array(aTotalCol(1), aTotalCol(2), aTotalCol(3), aTotalCol(4), aTotalCol(5), aTotalCol(6), aTotalCol(7))

        Case 8

            sTotalCol = Array(aTotalCol(1), aTotalCol(2), aTotalCol(3), aTotalCol(4), aTotalCol(5), aTotalCol(6), aTotalCol(7), aTotalCol(8))

        Case 9

            sTotalCol = Array(aTotalCol(1), aTotalCol(2), aTotalCol(3), aTotalCol(4), aTotalCol(5), aTotalCol(6), aTotalCol(7), aTotalCol(8), aTotalCol(9))

        Case 10

            sTotalCol = Array(aTotalCol(1), aTotalCol(2), aTotalCol(3), aTotalCol(4), aTotalCol(5), aTotalCol(6), aTotalCol(7), aTotalCol(8), aTotalCol(9), aTotalCol(10))

        Case Else

            sTotalCol = Array(aTotalCol(1))

        End Select

        TotalByCat Trim(Str(i + 1)), sTotalCol

'按指定列排序

Sub SortByCol(sCol As String)

    MyXL.Application.Selection.Sort Key1:=Range(sCol), Order1:=xlAscending, Header:=xlGuess, _

        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

        :=xlPinYin

End Sub

'分類匯總

Sub TotalByCat(iGroupBy As Integer, aTotalList As Variant)

    MyXL.Application.Selection.Subtotal GroupBy:=iGroupBy, Function:=xlSum, TotalList:=aTotalList _

        , Replace:=True, PageBreaks:=False, SummaryBelowData:=True

End Sub

'頁面設(shè)置

Sub PageSetup(iLastCol As Integer)

    On Error Resume Next

    With MyXL.Application.ActiveSheet.PageSetup

        .LeftHeader = ""

        .CenterHeader = ""

        .RightHeader = ""

        .LeftFooter = "&10打印日期&""Times New Roman,常規(guī)"":&D"

        .CenterFooter = "&10第&""Times New Roman,常規(guī)""&&""宋體,常規(guī)""頁&""Times New Roman,常規(guī)"" &""宋體,常規(guī)""共&""Times New Roman,常規(guī)""&N&""宋體,常規(guī)""頁"

        .RightFooter = "&10艷陽天客戶管理系統(tǒng)&""Times New Roman,常規(guī)""V3.0 Tel:13714680826 www.szyyt.com"

        If iLastCol > 10

tmtony

非常精彩，值得一讀。

竹笛

It was wonderful.