13줄 코드로 Excel로 내보내기 문제 해결

776 단어 windowsUIExcelvb
최근에 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"

이 코드의 관건은 윈도우즈의 클립보드를 이용하는 것이다
먼저 데이터를 올린 다음에 excel이 스스로 읽으면 됩니다.

좋은 웹페이지 즐겨찾기