- Код: Выделить всё
Imports System.Data.Odbc
Public Class ExcelView
Inherits System.Windows.Forms.Form
Private ConnectionString As String = "Driver={Microsoft Excel Driver (*.xls)};DriverId=790;Dbq=" & Application.StartupPath & "\test.xls;"
Private Sub ExcelView_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Con As New OdbcConnection(ConnectionString)
Dim Adapter As New OdbcDataAdapter("SELECT * FROM [лист2$]", Con)
Dim Ds As New DataSet
Try
Con.Open()
Adapter.Fill(Ds, "2")
Catch Err As Exception
MessageBox.Show(Err.ToString())
Finally
Con.Close()
End Try
grid.DataSource = Ds.Tables("2")
End Sub
Если книга без пароля,все работает нормально.При запароленой книге дает ошибку.
Как вставит пароль?
При открытии через COM все понятно,а в даном случае не знаю