 加好友  发短信
等级：狐仙
帖子：9879
积分：57634
威望：0
精华：15
注册：2008/9/1 9:45:00
|
导出到mdb  Post By：2016/4/22 8:18:00 [显示全部帖子]
Dim tbl As Table = Tables("产品")
Dim
hdr As
Integer =
tbl.HeaderRows
'获得表头的层数
Dim Book As New
XLS.Book
Dim Sheet As XLS.Sheet = Book.Sheets(0)
tbl.CreateSheetHeader(Sheet,0,0,False) '生成表头
For
c As
Integer =
0 To
tbl.Cols.Count - 1
For r As Integer = 0 to tbl.Rows.Count - 1
sheet(r + hdr,c).value =
tbl(r,c)
Next
Next
Book.Save("c:\reports\test.xls")
Dim Proc As New
Process
Proc.File = "c:\reports\test.xls"
Proc.Start()
这个方法如果是导出到mdb的话,用什么代码?
|
|
