{"id":848,"date":"2012-12-27T23:54:24","date_gmt":"2012-12-27T15:54:24","guid":{"rendered":""},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T16:00:00","slug":"","status":"publish","type":"post","link":"http:\/\/www.xiaoyebailong.com\/index.php\/2012\/12\/27\/848.htm","title":{"rendered":"ASP\u5b9e\u4f8b\u4ee3\u7801:asp\u64cd\u4f5cExcel\u7c7b"},"content":{"rendered":"

asp\u64cd\u4f5cExcel\u7c7b<\/strong>\uff1a<\/p>\n

<%
\n‘*******************************************************************
\n‘\u4f7f\u7528\u8bf4\u660e
\n‘Dim a
\n‘Set a=new CreateExcel
\n‘a.SavePath="x" ‘\u4fdd\u5b58\u8def\u5f84
\n‘a.SheetName="\u5de5\u4f5c\u7c3f\u540d\u79f0"       ‘\u591a\u4e2a\u5de5\u4f5c\u8868 a.SheetName=array("\u5de5\u4f5c\u7c3f\u540d\u79f0\u4e00","\u5de5\u4f5c\u7c3f\u540d\u79f0\u4e8c")
\n‘a.SheetTitle="\u8868\u540d\u79f0"         ‘\u53ef\u4ee5\u4e3a\u7a7a  \u591a\u4e2a\u5de5\u4f5c\u8868 a.SheetName=array("\u8868\u540d\u79f0\u4e00","\u8868\u540d\u79f0\u4e8c")
\n‘a.Data =d ‘\u4e8c\u7ef4\u6570\u7ec4             ‘\u591a\u4e2a\u5de5\u4f5c\u8868 array(b,c) b\u4e0ec\u4e3a\u4e8c\u7ef4\u6570\u7ec4
\n‘Dim rs
\n‘Set rs=server.CreateObject("Adodb.RecordSet")
\n‘rs.open "Select id, classid, className from [class] ",conn, 1, 1
\n‘a.AddDBData rs, "\u5b57\u6bb5\u540d\u4e00\uff0c\u5b57\u6bb5\u540d\u4e8c", "\u5de5\u4f5c\u7c3f\u540d\u79f0", "\u8868\u540d\u79f0",     true    ‘true\u81ea\u52a8\u83b7\u53d6\u8868\u5b57\u6bb5\u540d
\n‘a.AddData c, true , "\u5de5\u4f5c\u7c3f\u540d\u79f0", "\u8868\u540d\u79f0"    ‘c\u4e8c\u7ef4\u6570\u7ec4          true  \u7b2c\u4e00\u884c\u662f\u5426\u4e3a\u6807\u9898\u884c
\n‘a.AddtData e, "Sheet1"   ‘\u6309\u6a21\u677f\u751f\u6210  c=array(array("AA1", "\u5185\u5bb9"), array("AA2", "\u5185\u5bb92"))
\n‘a.Create()
\n‘a.UsedTime        \u751f\u6210\u65f6\u95f4\uff0c\u6beb\u79d2\u6570
\n‘a.SavePath        \u4fdd\u5b58\u8def\u5f84
\n‘Set a=nothing
\n‘\u8bbe\u7f6eCOM\u7ec4\u4ef6\u7684\u64cd\u4f5c\u6743\u9650\u3002\u5728\u547d\u4ee4\u884c\u952e\u5165“DCOMCNFG”\uff0c\u5219\u8fdb\u5165COM\u7ec4\u4ef6\u914d\u7f6e\u754c\u9762\uff0c\u9009\u62e9MicrosoftExcel\u540e\u70b9\u51fb\u5c5e\u6027\u6309\u94ae\uff0c\u5c06\u4e09\u4e2a\u5355\u9009\u9879\u4e00\u5f8b\u9009\u62e9\u81ea\u5b9a\u4e49\uff0c\u7f16\u8f91\u4e2d\u5c06Everyone\u52a0\u5165\u6240\u6709\u6743\u9650
\n‘*******************************************************************
\nClass CreateExcel
\n    Private CreateType_
\n    Private savePath_
\n    Private readPath_
\n    Private AuthorStr              Rem \u8bbe\u7f6e\u4f5c\u8005
\n    Private VersionStr          Rem \u8bbe\u7f6e\u7248\u672c
\n    Private SystemStr              Rem \u8bbe\u7f6e\u7cfb\u7edf\u540d\u79f0
\n    Private SheetName_             Rem \u8bbe\u7f6e\u8868\u540d
\n    Private SheetTitle_         Rem \u8bbe\u7f6e\u6807\u9898
\n    Private ExcelData             Rem \u8bbe\u7f6e\u8868\u6570\u636e
\n    Private ExcelApp             Rem Excel.Application
\n    Private ExcelBook
\n    Private ExcelSheets
\n    Private UsedTime_            Rem \u4f7f\u7528\u7684\u65f6\u95f4
\n    Public TitleFirstLine        Rem \u9996\u884c\u662f\u5426\u6807\u9898
\n    Private Sub Class_Initialize()
\n        Server.ScriptTimeOut = 99999
\n        UsedTime_ = Timer
\n        SystemStr            =    "Lc00_CreateExcelServer"
\n        AuthorStr            =    "Surnfu  surnfu@126.com  31333716"
\n        VersionStr            =    "1.0"
\n        if not IsObjInstalled("Excel.Application") then
\n            InErr("\u670d\u52a1\u5668\u672a\u5b89\u88c5Excel.Application\u63a7\u4ef6")
\n        end if
\n        set ExcelApp = createObject("Excel.Application")
\n        ExcelApp.DisplayAlerts = false
\n        ExcelApp.Application.Visible = false
\n        CreateType_ = 1
\n        readPath_ = null
\n    End Sub <\/p>\n

    Private Sub Class_Terminate()
\n        ExcelApp.Quit
\n        If Isobject(ExcelSheets)     Then Set ExcelSheets    =    Nothing
\n        If Isobject(ExcelBook)         Then Set ExcelBook        =    Nothing
\n        If Isobject(ExcelApp)         Then Set ExcelApp        =    Nothing
\n    End Sub <\/p>\n

    Public Property Let ReadPath(ByVal Val)
\n        If Instr(Val, ":\\")<>0 Then
\n            readPath_ = Trim(Val)
\n        else
\n            readPath_=Server.MapPath(Trim(Val))
\n        end if
\n    End Property<\/p>\n

    Public Property Let SavePath(ByVal Val)
\n        If Instr(Val, ":\\")<>0 Then
\n            savePath_ = Trim(Val)
\n        else
\n            savePath_=Server.MapPath(Trim(Val))
\n        end if
\n    End Property
\n    
\n    
\n    Public Property Let CreateType(ByVal Val)
\n        if Val <> 1 and Val <> 2 then
\n            CreateType_ = 1
\n        else
\n            CreateType_ = Val
\n        end if    
\n    End Property
\n    
\n    Public Property Let Data(ByVal Val)
\n        if not isArray(Val) then
\n            InErr("\u8868\u6570\u636e\u8bbe\u7f6e\u6709\u8bef")
\n        end if
\n          ExcelData = Val
\n    End Property
\n    Public Property Get SavePath()
\n    SavePath = savePath_
\n    End Property
\n    Public Property Get UsedTime()
\n          UsedTime = UsedTime_
\n    End Property
\n    Public Property Let SheetName(ByVal Val)
\n        if not isArray(Val) then
\n            if Val = "" then
\n                InErr("\u8868\u540d\u8bbe\u7f6e\u6709\u8bef")
\n            end if
\n            TitleFirstLine = true
\n        else
\n            ReDim TitleFirstLine(Ubound(Val))
\n            Dim ik_
\n            For ik_ = 0 to Ubound(Val)
\n                TitleFirstLine(ik_) = true
\n            Next
\n        end if
\n          SheetName_ = Val
\n    End Property
\n    
\n    Public Property Let SheetTitle(ByVal Val)
\n        if not isArray(Val) then
\n            if Val = "" then
\n                InErr("\u8868\u6807\u9898\u8bbe\u7f6e\u6709\u8bef")
\n            end if
\n        end if
\n          SheetTitle_ = Val
\n    End Property
\n    
\n    Rem \u68c0\u67e5\u6570\u636e
\n    Private Sub CheckData()
\n        if savePath_ = "" then InErr("\u4fdd\u5b58\u8def\u5f84\u4e0d\u80fd\u4e3a\u7a7a")
\n        if not isArray(SheetName_) then
\n            if SheetName_ = "" then InErr("\u8868\u540d\u4e0d\u80fd\u4e3a\u7a7a")
\n        end if
\n        
\n        if CreateType_ = 2 then
\n            if not isArray(ExcelData) then
\n                InErr("\u6570\u636e\u8f7d\u5165\u9519\u8bef\uff0c\u6216\u8005\u672a\u8f7d\u5165")
\n            end if
\n            Exit Sub
\n        end if
\n        
\n        if isArray(SheetName_) then
\n            if not isArray(SheetTitle_) then
\n                if SheetTitle_ <> "" then InErr("\u8868\u6807\u9898\u8bbe\u7f6e\u6709\u8bef\uff0c\u4e0e\u8868\u540d\u4e0d\u5bf9\u5e94")
\n            end if
\n        end if
\n        if not IsArray(ExcelData) then
\n            InErr("\u8868\u6570\u636e\u8f7d\u5165\u6709\u8bef")
\n        end if
\n        if isArray(SheetName_) then
\n            if GetArrayDim(ExcelData) <> 1 then InErr("\u8868\u6570\u636e\u8f7d\u5165\u6709\u8bef\uff0c\u6570\u636e\u683c\u5f0f\u9519\u8bef\uff0c\u7ef4\u5ea6\u5e94\u8be5\u4e3a\u4e00")
\n        else
\n            if GetArrayDim(ExcelData) <> 2 then InErr("\u8868\u6570\u636e\u8f7d\u5165\u6709\u8bef\uff0c\u6570\u636e\u683c\u5f0f\u9519\u8bef\uff0c\u7ef4\u5ea6\u5e94\u8be5\u4e3a\u4e8c")
\n        end if
\n    End Sub
\n    Rem \u751f\u6210Excel
\n    Public Function Create()
\n        Call CheckData()
\n        if not isnull(readPath_) then
\n            ExcelApp.WorkBooks.Open(readPath_)
\n        else
\n            ExcelApp.WorkBooks.add
\n        end if
\n        
\n        set ExcelBook = ExcelApp.ActiveWorkBook
\n        set ExcelSheets = ExcelBook.Worksheets
\n        
\n        if CreateType_ = 2 then
\n            Dim ih_
\n            For ih_ = 0 to Ubound(ExcelData)
\n                Call SetSheets(ExcelData(ih_), ih_)
\n            Next
\n            ExcelBook.SaveAs savePath_
\n            UsedTime_ = FormatNumber((Timer – UsedTime_)*1000, 3)
\n            Exit Function
\n        end if
\n        
\n        if IsArray(SheetName_) then
\n            Dim ik_
\n            For ik_ = 0 to Ubound(ExcelData)
\n                Call CreateSheets(ExcelData(ik_), ik_)
\n            Next
\n        else
\n            Call CreateSheets(ExcelData, -1)
\n        end if
\n        
\n        ExcelBook.SaveAs savePath_
\n        UsedTime_ = FormatNumber((Timer – UsedTime_)*1000, 3)
\n    End Function
\n    Private Sub CreateSheets(ByVal Data_, DataId_)
\n        Dim Spreadsheet
\n        Dim tempSheetTitle
\n        Dim tempTitleFirstLine
\n        if DataId_<>-1 then
\n            if DataId_ > ExcelSheets.Count – 1 then
\n                ExcelSheets.Add()
\n                set Spreadsheet = ExcelBook.Sheets(1)
\n            else
\n                set Spreadsheet = ExcelBook.Sheets(DataId_ + 1)
\n            end if
\n            if isArray(SheetTitle_) then
\n                tempSheetTitle = SheetTitle_(DataId_)
\n            else
\n                tempSheetTitle = ""
\n            end if
\n            tempTitleFirstLine = TitleFirstLine(DataId_)
\n            Spreadsheet.Name = SheetName_(DataId_)
\n        else
\n            set Spreadsheet = ExcelBook.Sheets(1)
\n            Spreadsheet.Name = SheetName_
\n            tempSheetTitle = SheetTitle_
\n            tempTitleFirstLine = TitleFirstLine
\n        end if
\n        Dim Line_ : Line_ = 1
\n        Dim RowNum_ : RowNum_ = Ubound(Data_, 1) + 1
\n        Dim LastCols_
\n        if tempSheetTitle <> "" then
\n            ‘Spreadsheet.Columns(1).ShrinkToFit=true ‘\u8bbe\u5b9a\u662f\u5426\u81ea\u52a8\u9002\u5e94\u8868\u683c\u5355\u5143\u5927\u5c0f(\u5355\u5143\u683c\u5bbd\u4e0d\u53d8\uff09
\n            LastCols_ = getColName(Ubound(Data_, 2) + 1)
\n            with Spreadsheet.Cells(1, 1)
\n                .value = tempSheetTitle
\n                ‘\u8bbe\u7f6eExcel\u8868\u91cc\u7684\u5b57\u4f53
\n                .Font.Bold = True ‘\u5355\u5143\u683c\u5b57\u4f53\u52a0\u7c97
\n                .Font.Italic = False ‘\u5355\u5143\u683c\u5b57\u4f53\u503e\u659c
\n                .Font.Size = 20 ‘\u8bbe\u7f6e\u5355\u5143\u683c\u5b57\u53f7
\n                .font.name="\u5b8b\u4f53" ‘\u8bbe\u7f6e\u5355\u5143\u683c\u5b57\u4f53
\n                ‘.font.ColorIndex=2 ‘\u8bbe\u7f6e\u5355\u5143\u683c\u6587\u5b57\u7684\u989c\u8272\uff0c\u989c\u8272\u53ef\u4ee5\u67e5\u8be2\uff0c2\u4e3a\u767d\u8272
\n            End with
\n            with Spreadsheet.Range("A1:"& LastCols_ &"1")
\n                .merge ‘\u5408\u5e76\u5355\u5143\u683c(\u5355\u5143\u533a\u57df)
\n                ‘.Interior.ColorIndex = 1 ‘\u8bbe\u8ba1\u5355\u5143\u7edc\u80cc\u666f\u8272
\n                .HorizontalAlignment = 3 ‘\u5c45\u4e2d
\n            End with
\n            Line_ = 2
\n            RowNum_ = RowNum_ + 1
\n        end if
\n        Dim iRow_, iCol_
\n        Dim dRow_, dCol_
\n        Dim tempLastRange : tempLastRange = getColName(Ubound(Data_, 2)+1) & (RowNum_)
\n        
\n        Dim BeginRow : BeginRow = 1
\n        if tempSheetTitle <> "" then BeginRow = BeginRow + 1
\n        if tempTitleFirstLine = true then BeginRow = BeginRow + 1
\n        
\n        if BeginRow=1 then
\n            with Spreadsheet.Range("A1:"& tempLastRange)
\n                .Borders.LineStyle = 1
\n                .BorderAround -4119, -4138 ‘\u8bbe\u7f6e\u5916\u6846
\n                .NumberFormatLocal = "@"   ‘\u6587\u672c\u683c\u5f0f
\n                .Font.Bold = False
\n                .Font.Italic = False
\n                .Font.Size = 10
\n                .ShrinkToFit=true
\n            end with
\n        else
\n            with Spreadsheet.Range("A1:"& tempLastRange)
\n                .Borders.LineStyle = 1
\n                .BorderAround -4119, -4138
\n                .ShrinkToFit=true
\n            end with
\n            
\n            with Spreadsheet.Range("A"& BeginRow &":"& tempLastRange)
\n                .NumberFormatLocal = "@"
\n                .Font.Bold = False
\n                .Font.Italic = False
\n                .Font.Size = 10
\n            end with
\n        end if
\n        
\n        if tempTitleFirstLine = true then
\n            BeginRow = 1
\n            if tempSheetTitle <> "" then BeginRow = BeginRow + 1
\n        
\n            with Spreadsheet.Range("A"& BeginRow &":"& getColName(Ubound(Data_, 2)+1) & (BeginRow))
\n                .NumberFormatLocal = "@"
\n                .Font.Bold = True
\n                .Font.Italic = False
\n                .Font.Size = 12
\n                .Interior.ColorIndex = 37
\n                .HorizontalAlignment = 3 ‘\u5c45\u4e2d
\n                .font.ColorIndex=2
\n            end with
\n        end if
\n        
\n        For iRow_ = Line_ To RowNum_
\n            For iCol_ = 1 To (Ubound(Data_, 2) + 1)
\n                dCol_ = iCol_ – 1
\n                if tempSheetTitle <> "" then dRow_ = iRow_ – 2 else dRow_ = iRow_ – 1
\n                If not IsNull(Data_(dRow_, dCol_)) then
\n                    with Spreadsheet.Cells(iRow_, iCol_)
\n                        .Value = Data_(dRow_, dCol_)
\n                    End with
\n                End If
\n            Next
\n        Next
\n        set Spreadsheet = Nothing
\n    End Sub
\n    Rem \u6d4b\u8bd5\u7ec4\u4ef6\u662f\u5426\u5df2\u7ecf\u5b89\u88c5
\n    Private Function IsObjInstalled(strClassString)
\n        On Error Resume Next
\n        IsObjInstalled = False
\n        Err = 0
\n        Dim xTestObj
\n        Set xTestObj = Server.CreateObject(strClassString)
\n        If 0 = Err Then IsObjInstalled = True
\n        Set xTestObj = Nothing
\n        Err = 0
\n    End Function
\n    Rem \u53d6\u5f97\u6570\u7ec4\u7ef4\u6570
\n    Private Function GetArrayDim(ByVal arr)   
\n        GetArrayDim = Null   
\n        Dim i_, temp   
\n        If IsArray(arr) Then  
\n            For i_ = 1 To 60   
\n                On Error Resume Next  
\n                temp = UBound(arr, i_)   
\n                If Err.Number <> 0 Then  
\n                    GetArrayDim = i_ – 1
\n                    Err.Clear
\n                    Exit Function  
\n                End If  
\n            Next  
\n            GetArrayDim = i_   
\n        End If  
\n    End Function
\n    Private Function GetNumFormatLocal(DataType)
\n        Select Case DataType
\n            Case "Currency":
\n                GetNumFormatLocal = "\uffe5#,##0.00_);(\uffe5#,##0.00)"
\n            Case "Time":
\n                GetNumFormatLocal = "[$-F800]dddd, mmmm dd, yyyy"
\n            Case "Char":
\n                GetNumFormatLocal = "@"
\n            Case "Common":
\n                GetNumFormatLocal = "G\/\u901a\u7528\u683c\u5f0f"
\n            Case "Number":
\n                GetNumFormatLocal = "#,##0.00_"
\n            Case else :
\n                GetNumFormatLocal = "@"
\n        End Select
\n    End Function
\n    Public Sub AddDBData(ByVal RsFlied, ByVal FliedTitle, ByVal tempSheetName_, ByVal tempSheetTitle_, DBTitle)
\n        if RsFlied.Eof then Exit Sub
\n        Dim colNum_ : colNum_ = RsFlied.fields.count
\n        Dim Rownum_ : Rownum_ = RsFlied.RecordCount
\n        Dim ArrFliedTitle
\n        
\n        if DBTitle = true then
\n            FliedTitle = ""
\n            Dim ig_
\n            For ig_=0 to colNum_ – 1
\n                FliedTitle = FliedTitle & RsFlied.fields.item(ig_).name
\n                if ig_ <> colNum_ – 1 then FliedTitle = FliedTitle &","
\n            Next
\n        end if
\n        
\n        if FliedTitle<>"" then
\n            Rownum_ = Rownum_ + 1
\n            ArrFliedTitle = Split(FliedTitle, ",")
\n            if Ubound(ArrFliedTitle) <> colNum_ – 1  then
\n                InErr("\u83b7\u53d6\u6570\u636e\u5e93\u8868\u6709\u8bef\uff0c\u5217\u6570\u4e0d\u7b26")
\n            end if
\n        end if    
\n        Dim tempData : ReDim tempData(Rownum_ – 1, colNum_ – 1)
\n        
\n        Dim ix_, iy_
\n        Dim iz
\n        if FliedTitle<>"" then iz = Rownum_ – 2  else iz = Rownum_ – 1
\n        
\n        For ix_ = 0 To iz
\n            For iy_ = 0 To colNum_ – 1
\n                if FliedTitle<>"" then
\n                    if ix_=0 then
\n                        tempData(ix_, iy_) = ArrFliedTitle(iy_)
\n                        tempData(ix_ + 1, iy_) = RsFlied(iy_)
\n                    else
\n                        tempData(ix_ + 1, iy_) = RsFlied(iy_)
\n                    end if
\n                else
\n                    tempData(ix_, iy_) = RsFlied(iy_)
\n                end if
\n            Next
\n            RsFlied.MoveNext
\n        Next
\n        
\n        Dim tempFirstLine
\n        if FliedTitle<>"" then tempFirstLine = true else tempFirstLine = false
\n        Call AddData(tempData, tempFirstLine, tempSheetName_, tempSheetTitle_)
\n    End Sub
\n    Public Sub AddData(ByVal tempDate_, ByVal tempFirstLine_, ByVal tempSheetName_, ByVal tempSheetTitle_)
\n        if not isArray(ExcelData) then
\n            ExcelData = tempDate_
\n            TitleFirstLine = tempFirstLine_
\n            SheetName_ = tempSheetName_
\n            SheetTitle_ = tempSheetTitle_
\n        else
\n            if GetArrayDim(ExcelData) = 1 then
\n                Dim tempArrLen : tempArrLen = Ubound(ExcelData)+1
\n                ReDim Preserve ExcelData(tempArrLen)
\n                ExcelData(tempArrLen) = tempDate_
\n                ReDim Preserve TitleFirstLine(tempArrLen)
\n                TitleFirstLine(tempArrLen) = tempFirstLine_
\n                ReDim Preserve SheetName_(tempArrLen)
\n                SheetName_(tempArrLen) = tempSheetName_
\n                ReDim Preserve SheetTitle_(tempArrLen)
\n                SheetTitle_(tempArrLen) = tempSheetTitle_
\n            else
\n                Dim tempOldData : tempOldData = ExcelData
\n                ExcelData = Array(tempOldData, tempDate_)
\n                TitleFirstLine = Array(TitleFirstLine, tempFirstLine_)
\n                SheetName_ = Array(SheetName_, tempSheetName_)
\n                SheetTitle_ = Array(SheetTitle_, tempSheetTitle_)
\n            end if
\n        end if
\n    End Sub
\n    Rem \u6a21\u677f\u589e\u52a0\u6570\u636e\u65b9\u6cd5
\n    Public Sub AddtData(ByVal tempDate_, ByVal tempSheetName_)
\n        CreateType_ = 2
\n        if not isArray(ExcelData) then
\n            ExcelData = Array(tempDate_)
\n            SheetName_ = Array(tempSheetName_)
\n        else
\n            Dim tempArrLen : tempArrLen = Ubound(ExcelData)+1
\n            ReDim Preserve ExcelData(tempArrLen)
\n            ExcelData(tempArrLen) = tempDate_
\n            ReDim Preserve SheetName_(tempArrLen)
\n            SheetName_(tempArrLen) = tempSheetName_
\n        End if
\n    End Sub
\n    Private Sub SetSheets(ByVal Data_, DataId_)
\n        Dim Spreadsheet
\n        set Spreadsheet = ExcelBook.Sheets(SheetName_(DataId_))
\n        Spreadsheet.Activate
\n        Dim ix_
\n        For ix_ =0 To Ubound(Data_)
\n            if not isArray(Data_(ix_)) then InErr("\u8868\u6570\u636e\u8f7d\u5165\u6709\u8bef\uff0c\u6570\u636e\u683c\u5f0f\u9519\u8bef")
\n            if Ubound(Data_(ix_)) <> 1 then InErr("\u8868\u6570\u636e\u8f7d\u5165\u6709\u8bef\uff0c\u6570\u636e\u683c\u5f0f\u9519\u8bef")
\n            Spreadsheet.Range(Data_(ix_)(0)).value = Data_(ix_)(1)
\n        Next
\n        set Spreadsheet = Nothing
\n    End Sub
\n    Public Function GetTime(msec_)
\n        Dim ReTime_ : ReTime_=""
\n        if msec_ < 1000 then
\n            ReTime_ = msec_ &"MS"
\n        else
\n            Dim second_
\n            second_ = (msec_ \\ 1000)
\n            if (msec_ mod 1000)<>0 then
\n                msec_ = (msec_ mod 1000) &"\u6beb\u79d2"
\n            else
\n                msec_ = ""
\n            end if
\n            Dim n_, aryTime(2), aryTimeunit(2)
\n            aryTimeunit(0) = "\u79d2"
\n            aryTimeunit(1) = "\u5206"
\n            aryTimeunit(2) = "\u5c0f\u65f6"
\n            n_ = 0
\n            Dim tempSecond_ : tempSecond_ = second_
\n            While(tempSecond_ \/ 60 >= 1)
\n                tempSecond_ = Fix(tempSecond_ \/ 60 * 100) \/ 100
\n                n_ = n_ + 1
\n            WEnd
\n            Dim m_
\n            For m_ = n_ To 0 Step -1
\n                aryTime(m_) = second_ \\ (60 ^ m_)
\n                second_ = second_ mod (60 ^ m_)
\n                ReTime_ = ReTime_ & aryTime(m_) & aryTimeunit(m_)
\n            Next
\n            if msec_<>"" then ReTime_ = ReTime_ & msec_
\n        end if
\n        GetTime = ReTime_
\n    end Function
\n    Rem \u53d6\u5f97\u5217\u540d
\n    Private Function getColName(ByVal ColNum)
\n        Dim Arrlitter : Arrlitter=split("A B C D E F G H I J K L M N O P Q R S T U V W X Y Z", " ")
\n        Dim ReValue_
\n        if ColNum <= Ubound(Arrlitter) + 1 then
\n            ReValue_ = Arrlitter(ColNum – 1)
\n        else
\n            ReValue_ = Arrlitter(((ColNum-1) \\ 26)) & Arrlitter(((ColNum-1) mod 26))
\n        end if
\n        getColName = ReValue_
\n    End Function
\n    Rem \u8bbe\u7f6e\u9519\u8bef
\n    Private Sub InErr(ErrInfo)
\n        Err.Raise vbObjectError + 1, SystemStr &"(Version "& VersionStr &")", ErrInfo
\n    End Sub
\nEnd Class
\nDim b(4,6)
\nDim c(50,20)
\nDim i, j
\nFor i=0 to 4
\n    For j=0 to 6
\n        b(i,j) =i&"-"&j
\n    Next
\nNext
\nFor i=0 to 50
\n    For j=0 to 20
\n        c(i,j) = i&"-"&j &"\u6211\u7684"
\n    Next
\nNext
\nDim e(20)
\nFor i=0 to 20
\n    e(i)= array("A"&(i+1), i+1)
\nNext
\n‘\u4f7f\u7528\u793a\u4f8b  \u9700\u8981xx.xls\u6a21\u677f\u652f\u6301
\n‘Set a=new CreateExcel
\n‘a.ReadPath = "xx.xls"
\n‘a.SavePath="xx-1.xls"
\n‘a.AddtData e, "Sheet1"
\n‘a.Create()
\n‘response.Write("\u751f\u6210"& a.SavePath &"\u3000\u4f7f\u7528\u4e86 "& a.GetTime(a.UsedTime) &"<br>")
\n‘Set a=nothing
\n‘\u4f7f\u7528\u793a\u4f8b\u4e00
\nSet a=new CreateExcel
\na.SavePath="x.xls"
\na.AddData b, true , "\u6d4b\u8bd5c", "\u6d4b\u8bd5c"
\na.TitleFirstLine = false ‘\u9996\u884c\u662f\u5426\u4e3a\u6807\u9898\u884c
\na.Create()
\nresponse.Write("\u751f\u6210"& a.SavePath &"\u3000\u4f7f\u7528\u4e86 "& a.GetTime(a.UsedTime) &"<br>")
\nSet a=nothing
\n‘\u4f7f\u7528\u793a\u4f8b\u4e8c
\nSet a=new CreateExcel
\na.SavePath="y.xls"
\na.SheetName="\u5de5\u4f5c\u7c3f\u540d\u79f0"       ‘\u591a\u4e2a\u5de5\u4f5c\u8868 a.SheetName=array("\u5de5\u4f5c\u7c3f\u540d\u79f0\u4e00","\u5de5\u4f5c\u7c3f\u540d\u79f0\u4e8c")
\na.SheetTitle="\u8868\u540d\u79f0"         ‘\u53ef\u4ee5\u4e3a\u7a7a  \u591a\u4e2a\u5de5\u4f5c\u8868 a.SheetName=array("\u8868\u540d\u79f0\u4e00","\u8868\u540d\u79f0\u4e8c")
\na.Data =b ‘\u4e8c\u7ef4\u6570\u7ec4             ‘\u591a\u4e2a\u5de5\u4f5c\u8868 array(b,c) b\u4e0ec\u4e3a\u4e8c\u7ef4\u6570\u7ec4
\na.Create()
\nresponse.Write("\u751f\u6210"& a.SavePath &"\u3000\u4f7f\u7528\u4e86 "& a.GetTime(a.UsedTime) &"<br>")
\nSet a=nothing
\n‘\u4f7f\u7528\u793a\u4f8b\u4e09 \u751f\u6210\u4e24\u4e2a\u8868
\nSet a=new CreateExcel
\na.SavePath="z.xls"
\na.SheetName=array("\u5de5\u4f5c\u7c3f\u540d\u79f0\u4e00","\u5de5\u4f5c\u7c3f\u540d\u79f0\u4e8c")
\na.SheetTitle=array("\u8868\u540d\u79f0\u4e00","\u8868\u540d\u79f0\u4e8c")
\na.Data =array(b, c) ‘b\u4e0ec\u4e3a\u4e8c\u7ef4\u6570\u7ec4
\na.TitleFirstLine = array(false, true) ‘\u9996\u884c\u662f\u5426\u4e3a\u6807\u9898\u884c
\na.Create()
\nresponse.Write("\u751f\u6210"& a.SavePath &"\u3000\u4f7f\u7528\u4e86 "& a.GetTime(a.UsedTime) &"<br>")
\nSet a=nothing
\n‘\u4f7f\u7528\u793a\u4f8b\u56db    \u9700\u8981\u6570\u636e\u5e93\u652f\u6301
\n‘Dim rs
\n‘Set rs=server.CreateObject("Adodb.RecordSet")
\n‘rs.open "Select id, classid, className from [class] ",conn, 1, 1
\n‘Set a=new CreateExcel
\n‘a.SavePath="a"
\n‘a.AddDBData rs, "\u5e8f\u53f7,\u7c7b\u522b\u5e8f\u53f7,\u7c7b\u522b\u540d\u79f0", "\u5de5\u4f5c\u7c3f\u540d\u79f0", "\u7c7b\u522b\u8868", false
\n‘a.Create()
\n‘response.Write("\u751f\u6210"& a.SavePath &"\u3000\u4f7f\u7528\u4e86 "& a.GetTime(a.UsedTime) &"<br>")
\n‘Set a=nothing
\n‘rs.close
\n‘Set rs=nothing
\n%><\/font><\/span><\/p>\n","protected":false},"excerpt":{"rendered":"

asp\u64cd\u4f5cExcel\u7c7b\uff1a <% ‘******************************************************************* ‘\u4f7f\u7528\u8bf4\u660e ‘Dim a &…<\/p>\n","protected":false},"author":0,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"topic":[],"class_list":["post-848","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/848","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/types\/post"}],"replies":[{"embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/comments?post=848"}],"version-history":[{"count":0,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/posts\/848\/revisions"}],"wp:attachment":[{"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/media?parent=848"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/categories?post=848"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/tags?post=848"},{"taxonomy":"topic","embeddable":true,"href":"http:\/\/www.xiaoyebailong.com\/index.php\/wp-json\/wp\/v2\/topic?post=848"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}