以下是引用片段: 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 (笔者测试时保存成功,页面报错。) |
以下是引用片段: 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 |