如何生成EXCEL文件

[qgqchile]

B/S, 如何生成EXCEL报表,报表提取DATASET内容
还有如能生成PDF文件更好

哪里有MS 的 REPORT SERVICE 下载的?

还请指教,多谢

[qgqchile]

没人会么,还是问题太弱各位不屑一答?

[exing]

看看
http://www.cnblogs.com/lovinger2000/archive/2005/06/27/ExcelQuickerIntroduction.html

[Alisa]

csdn上面很多的，你先搜一下吧

[baibai520]

'''<summary>
'''<sub name="btn_derivation_Click" />
'''<sub para="sender" type="System.Object"/>
'''<sub para="e" type="System.EventArgs"/>
'''<sub handles="btn_derivation.Click" / >
'''</summary>
Private Sub btn_derivation_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_derivation.Click
Dim iobj_contract As New UFC.Data.UDataSet
iobj_contract = iobj_contracty_query.GetSubContract
If Not iobj_contract Is Nothing Then
Dim istg_filename As String
istg_filename = "C:\Contract.xml"
Dim iobj_fs As New System.IO.FileStream(istg_filename, System.IO.FileMode.Create)

Dim iobj_xtw As New System.Xml.XmlTextWriter(iobj_fs, System.Text.Encoding.Unicode)

iobj_xtw.WriteProcessingInstruction("xml", "version='1.0'")
iobj_xtw.WriteProcessingInstruction("xml-stylesheet", "type='text/xsl' href='Contract.xsl'")

iobj_contract.WriteXml(iobj_xtw)
iobj_xtw.Close()

OpenExcel()

Else
System.Windows.Forms.MessageBox.Show("沒有數據，導出失敗！", "系統提示", Windows.Forms.MessageBoxButtons.OK)
End If
End Sub

''''<summary>
''''<sub name="OpenExcel" />
''''</summary>
Private Sub OpenExcel()
Dim idst_contract As New UFC.Data.UDataSet
idst_contract = iobj_contracty_query.GetSubContract

Dim istg_filename As String
istg_filename = "C:\Contract.htm"
Dim iobj_fs As New System.IO.FileStream(istg_filename, System.IO.FileMode.Create)

Dim iobj_xtw As New System.Xml.XmlTextWriter(iobj_fs, System.Text.Encoding.Unicode)

Dim iobj_xmldoc As System.Xml.XmlDataDocument = New System.Xml.XmlDataDocument(idst_contract)
Dim iobj_xsltran As System.Xml.xsl.XslTransform = New System.Xml.Xsl.XslTransform
iobj_xsltran.Load("C:\Contract.xsl")
iobj_xsltran.Transform(iobj_xmldoc, Nothing, iobj_xtw, Nothing)

idst_contract.WriteXml(iobj_xtw)
iobj_xtw.Close()

Dim iobj_excel As Object
iobj_excel = CreateObject("Excel.Application")
iobj_excel.Workbooks.Open("C:\Contract.htm")

iobj_excel.Visible = True
iobj_excel.UserControl = True
End Sub