'Create a file
Dim outputFilePath As String = "Output Path .xls"
Dim excelFile As New FileStream(outputFilePath, FileMode.Create, FileAccess.Write)
'Print the contents of the file.
Dim byteArray As Byte() = '???? byte array source ????
excelFile.Write(byteArray, 0, byteArray.Length)
excelFile.Close()
ขอบขอบคุณทั้ง 2 ท่านมากครับ ผมลองทำดู
วิธีของคุณ tungman
รบกวนขอตัวอย่างการ add ค่าใน excel หน่อยได้มั้ยครับ คือ
ในส่วนนี้ผมไม่ทราบว่าต้องใส่ data ในรูปแบบใหน มือใหม่อ่ะครับ
Dim byteArray As Byte() = '???? byte array source ????
วิธีของคุณ MR.WIN ผมลองใช้ดู โดย load ตัว Interop.Excel.dll มา add refference
โดยในเครื่องที่ใช้ test วิธีนี้ใช้ ms excel 2003 ครับ
พบ error ตามนี้ครับ
Server Error in '/test_gen_Excel' Application.
--------------------------------------------------------------------------------
Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))
Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code.
Exception Details: System.Runtime.InteropServices.COMException: Old format or invalid type library. (Exception from HRESULT: 0x80028018 (TYPE_E_INVDATAREAD))
Source Error:
Line 14: Dim xlBook As Excel.Workbook
Line 15:
Line 16: xlBook = xlApp.Workbooks.Add()
Line 17:
Line 18: '*** Create Sheet 1 ***'
Load balance : Server 04
Quote:
