最近遇到了需要把WebDW中数据生成Excel的问题.
网上查了很多,都比较繁琐一些.
终于想了一个比较简单的办法.
看代码如下:(原始代码是VB编写的)
这个代码的关键就是利用windows的剪贴板
先把数据放上去,然后让excel自己去读就好了.
网上查了很多,都比较繁琐一些.
终于想了一个比较简单的办法.
看代码如下:(原始代码是VB编写的)
'输出到Excel的功能代码
On Error GoTo errorhandle
Dim exec As New Excel.Application
Dim book As Excel.Workbook
exec.Visible = True
Set book = exec.Workbooks.Add
Dim sheet As Excel.Worksheet
Set sheet = book.ActiveSheet
Clipboard.Clear
Clipboard.SetText ui.DW_GetOutputString
sheet.PasteSpecial
Exit Sub
errorhandle:
MsgBox Err.Description, , "Error"
这个代码的关键就是利用windows的剪贴板
先把数据放上去,然后让excel自己去读就好了.