13行代码解决导出到Excel的问题

最近遇到了需要把WebDW中数据生成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自己去读就好了.