- Код: Выделить всё
Dim xcl As Excel.Application
Set xcl = New Excel.Application
xcl.Workbooks.Add
With xcl.ActiveSheet.QueryTables.Add(Connection:="ODBC;DRIVER=SQL Server; SERVER=Servak; UID=sa; PWD=123; DATABASE=Northwind", Destination:=xcl.Range("A1"))
.CommandText = "SELECT * FROM Customers"
.Refresh BackgroundQuery:=False
End With
xcl.Visible = True
Но в vb.net этот код не пашет. Ругается на строку xcl.Workbooks.Add
говорит:
"An unhandled exception of type 'System.Runtime.InteropServices.COMException' occurred in excel_report_2.exe
Additional information: Old format or invalid type library."
А мне надо все это сделать в vb.net. Пожалуйста подскажите как быть ?
P.S. Я пробовал в references добавить и 5 и 11 ёксел. не помогает.