在.NET環境下將報表數據導出Excel和Word

e[6NG)v3.將表中的內容導出到WORD軟件測試技術門戶R:H&X*g7~K.A`GW3L

Y N~?V_n\　Dim wordApp As New Word.Application()軟件測試技術門戶7~!SB"rk~r
　　Dim myDoc As Word.Document
t)dB}}　　Dim oTable As Word.Table軟件測試技術門戶Z;u5R3RzGsvrg
　　Dim rowIndex, colIndex As Integer軟件測試技術門戶N3s7nH6C
D&c
　　rowIndex = 1軟件測試技術門戶p4n ^nG'j}^#U
　　colIndex = 0軟件測試技術門戶Ku'PL.N
　　wordApp.Documents.Add()軟件測試技術門戶wE.G
^5a1JDm
　　myDoc = wordApp.ActiveDocument軟件測試技術門戶(nV
P*p({B
　　Dim Table As New DataTable()軟件測試技術門戶6z(LH"Ul8~O
　　Table = CreaTable()軟件測試技術門戶#Y L3?]x
　　oTable = myDoc.Tables.Add(Range:=myDoc.Range(Start:=0, End:=0), NumRows:=Table.Rows.Count + 1, NumColumns:=Table.Columns.Count)軟件測試技術門戶fV.p]9hQ
　　'將所得到的表的列名,賦值給單元格
#s)g7tN'DVl#p z0B(O　　Dim Col As DataColumn軟件測試技術門戶 老湿亚洲永久精品ww47香蕉图片_日韩欧美中文字幕北美法律_国产AV永久无码天堂影院_久久婷婷综合色丁香五月