Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,027

HOME > ASP > ASP Forum > export asp ให้อยู่ในรูปกราฟ ของ excel เคยใช้ code ที่อยู่ในเว็บ Thaicreate แต่ว่ามัน error ตรงนี้ค่ะ

export asp ให้อยู่ในรูปกราฟ ของ excel เคยใช้ code ที่อยู่ในเว็บ Thaicreate แต่ว่ามัน error ตรงนี้ค่ะ

เริ่มหัวข้อใหม่

Guest

เคยใช้ code ที่อยู่ในเว็บ Thaicreate แต่ว่ามัน error ตรงนี้ค่ะ
Set xlApp = Server.CreateObject("Excel.Application")

รบกวนช่วยด้วยนะคะ เพราะเพิ่งหัดเขียนเป็นครั้งแรก
หรือว่ามี code อื่นไหมค่ะ code ทั้งหมดที่ใช้เขียนค่ะ
<% @ Language="VBScript" %>
<%
Response.Buffer=True
Response.Clear

Dim xlApp,xlBook,xlSheet,objConn,objRS,iRow
Dim objFileCache,bXlsFile,strFileName

iRow = 4
strFileName = "MyChart.xls"

Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")

strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
strConn = strConn & Server.MapPath("Sales00.mdb")
strQuery = "SELECT ProductName,ProductIncome FROM ProductSales"

objConn.Open strConn

objRS.Open strQuery, objConn

If Not objRS.EOF and Not objRS.BOF Then
arrData = objRS.GetRows()
Else
bNoRecords = True
End If

objRS.Close
objConn.Close
Set objRS = Nothing
Set objConn = Nothing

'-------------------------------- END of DATA Acquisition---------------------

'-------------------------------- BEGIN XLS Generation -----------------------

strFileName = "MyChart.xls"
Set xlApp = Server.CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

xlApp.Application.Visible = False

xlBook.Sheets.Add
xlBook.ActiveSheet.Name = "Data"

With xlBook.Sheets("Data").Cells(1,1)
.Value = "Overall Product Sales 2000"
.Font.Bold = True
.Font.Name = "Tahoma"
.Font.Size = 16
End With

With xlBook.Sheets("Data").Cells(3,1)
.Value = "Product Name"
.Font.Italic = True
.Font.Name = "Tahoma"
.Font.Size = 13
.MergeCells = True
End With

With xlBook.Sheets("Data").Cells(3,2)
.Value = "Product Income"
.Font.Italic = True
.Font.Name = "Tahoma"
.Font.Size = 13
.MergeCells = True
End With

For i = 0 To Ubound(arrData,2)
xlBook.Sheets("Data").Cells(iRow+i,1).Value = arrData(0,i)
xlBook.Sheets("Data").Cells(iRow+i,2).Value = arrData(1,i)
xlBook.Sheets("Data").Cells(iRow+i,2).NumberFormat = "$#,##0.00"
Next

'--- Creating Chart
xlBook.Charts.Add
xlBook.ActiveChart.Name = "BarGraph"
xlBook.Charts("BarGraph").SetSourceData (xlBook.Sheets("Data").Range("A4:B9"))

'--- 3DPieExploded
'xlBook.Charts("BarGraph").ChartType = 70
'xlBook.Charts("BarGraph").PlotBy = 2

'--- 3DColumns
xlBook.Charts("BarGraph").ChartType = 54
xlBook.Charts("BarGraph").PlotBy = 1
xlBook.Charts("BarGraph").HasAxis(1) = 0

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(Server.MapPath(strFileName))) Then
Set MyFile = fso.GetFile(Server.MapPath(strFileName))
MyFile.Delete
End If

xlSheet.SaveAs Server.MapPath(strFileName)

xlApp.Application.Quit

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

Set objFileCache = Server.CreateObject("Softwing.FileCache.1")
bXlsFile = objFileCache.InitFromFile(strFileName, False)
objFileCache.MimeType = "application/octet-stream"
bXlsFile = objFileCache.Write()

Response.End
%>

Tag : - - - -

Date : 15 พ.ย. 2549 18:40:19

By : pha

View : 2423

Reply : 1

No. 1

TC Admin

โพสกระทู้ ( 74,058 )
บทความ ( 838 )

ASP Charts/Graph (Excel.Application)

Date : 2009-04-25 09:11:50

By : webmaster

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : export asp ให้อยู่ในรูปกราฟ ของ excel เคยใช้ code ที่อยู่ในเว็บ Thaicreate แต่ว่ามัน error ตรงนี้ค่ะ

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 05

Registered : 109,027

document.write("<font color=996600>[ASP]</font>"); export asp ให้อยู่ในรูปกราฟ ของ excel เคยใช้ code ที่อยู่ในเว็บ Thaicreate แต่ว่ามัน error ตรงนี้ค่ะ

No. 1

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

export asp ให้อยู่ในรูปกราฟ ของ excel เคยใช้ code ที่อยู่ในเว็บ Thaicreate แต่ว่ามัน error ตรงนี้ค่ะ