7,789
社区成员
发帖
与我相关
我的任务
分享导入到word或excel文件？
我想把数据库中取出来的一个数据结合显示出来，然后可以按表格的样式导入到一个WORD或EXCEL文件里，可以打印出来，谢谢个位指点！
...全文
请发表友善的回复…
发表回复
simanh 2003-11-15
- 打赏
- 举报
1，引用Microsoft Excel Object Library
2. Dim xBook As Excel.Workbook
Set xBook = GetObject("c:\test.xls")
xBook.worksheets(1).select
xBook.Worksheets(1).Range("A1").CopyFromRecordset yourRecordset
xBook.Save
XBook.Windows(1).Visible = True
xBook.Worksheets(1).Visible = true
set xBook = nothing
2. Dim xBook As Excel.Workbook
Set xBook = GetObject("c:\test.xls")
xBook.worksheets(1).select
xBook.Worksheets(1).Range("A1").CopyFromRecordset yourRecordset
xBook.Save
XBook.Windows(1).Visible = True
xBook.Worksheets(1).Visible = true
set xBook = nothing
wingsoft 2003-11-15
- 打赏
- 举报
ole
