sql query in excel exportieren

  • Allgemein

    sql query in excel exportieren

    Hallo,
    ich versuche mit einem activex-job auf einem sqlserver 2008 ein skript zu erstellen, das eine abfrage in ein excel 2007 file exportiert

    hier mein code:

    VB.NET-Quellcode

    1. Dim server
    2. Dim strDriver
    3. strDriver = "PROVIDER=MSDASQL;DRIVER=SQL Server;Trusted_Connection=yes;"
    4. Dim strServer
    5. strServer = "SERVER=LENOVO-39CFEF82\SQLSERVER;"
    6. Dim strUsername
    7. strUsername = "UID=sa;"
    8. Dim strPassword
    9. strPassword = "PWS=Di1sP!100%;"
    10. Dim strDatabase
    11. strDatabase = "DATABASE=SBODemoDE;"
    12. Dim strComplete
    13. strComplete = strDriver & strServer & strUsername & strPassword & strDatabase
    14. Dim objConn
    15. Set objConn = CreateObject("ADODB.Connection")
    16. objConn.open strComplete
    17. Dim fsoRS
    18. Set fsoRS = CreateObject("ADODB.Recordset")
    19. Dim fsoSQL
    21. fsoSQL = "INSERT INTO OPENROWSET('MSDASQL', 'Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=C:\test.xlsx', 'SELECT spalte1, spalte2 FROM [Tabelle1$]')SELECT CONVERT(binary,num), CONVERT(binary,descript) FROM OOST"
    23. fsoRS.open fsoSQL, objConn
    24. Set objConn = Nothing
    25. Set fsoRS = Nothing


    der fehler kommt in zeile 23 und lautet:
    "Der Anbieter hat einen unerwarteten schwerwiegenden Fehler gemacht." X(

    könnt ihr mir vielleicht helfen?

    mfg molitor