以下是引用片段: set objExcelApp = CreateObject("Excel.Application") objExcelApp.DisplayAlerts = false 不顯示警告 objExcelApp.Application.Visible = false 不顯示界面 |
以下是引用片段: objExcelApp.WorkBooks.add set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) |
以下是引用片段: strAddr = Server.MapPath(".") objExcelApp.WorkBooks.Open(strAddr "\Templet\Table.xls") set objExcelBook = objExcelApp.ActiveWorkBook set objExcelSheets = objExcelBook.Worksheets set objExcelSheet = objExcelBook.Sheets(1) |
以下是引用片段: objExcelBook.SaveAs strAddr "\Temp\Table.xls" |
以下是引用片段: objExcelBook.Save (筆者測(cè)試時(shí)保存成功,頁面報(bào)錯(cuò)。) |
以下是引用片段: objExcelApp.Quit 一定要退出 set objExcelApp = Nothing |
以下是引用片段: objExcelSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10") |
以下是引用片段: objExcelSheet.Cells(3,1).Value="Internet Explorer" |
以下是引用片段: objExcelApp.Charts.Add |
以下是引用片段: objExcelApp.ActiveChart.ChartType = 97 |
以下是引用片段: objExcelApp.ActiveChart.HasTitle = True objExcelApp.ActiveChart.ChartTitle.Text = "A test Chart" |
以下是引用片段: objExcelApp.ActiveChart.SetSourceData objExcelSheet.Range("A1:k5"),1 |
以下是引用片段: objExcelApp.ActiveChart.SeriesCollection.NewSeries objExcelApp.ActiveChart.SeriesCollection(1).Name = "=""333""" objExcelApp.ActiveChart.SeriesCollection(1).Values = "={1,4,5,6,2}" |
以下是引用片段: objExcelApp.ActiveChart.Location 1 |
以下是引用片段: objExcelApp.ActiveChart.HasDataTable = True |
以下是引用片段: objExcelApp.ActiveChart.DataTable.ShowLegendKey = True |
標(biāo)簽:重慶 內(nèi)江 成都 懷化 公主嶺 臺(tái)灣 麗江 天津
巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP操作Excel技術(shù)總結(jié)》,本文關(guān)鍵詞 ASP,操作,Excel,技術(shù),總結(jié),;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。