Hallo Forum
Ich lese derzeit mit folgendem Code eine Excel-liste in ein DGV ein. Funktionierst soweit super.
Aber das diese Tool auch von meinen Kollegen genommen werden soll bzw. wird, ist immer wieder das Problem aufgetauscht, dass MIRCOSOFT.ACE.OLEDB.12.0 Provider nicht auch dem lokalen Computer registriert ist.
Mein Frage: Kann ich eventl. die Excel anders einlesen ? Ich brauche nur das DGV und muss nicht DB gebunden sein zur weiteren Verwendung oder kann ich in die Setup.exe das bereits mit einpacken damit es bei der Installation gleich mit Installiert wird.
Ich lese derzeit mit folgendem Code eine Excel-liste in ein DGV ein. Funktionierst soweit super.
Aber das diese Tool auch von meinen Kollegen genommen werden soll bzw. wird, ist immer wieder das Problem aufgetauscht, dass MIRCOSOFT.ACE.OLEDB.12.0 Provider nicht auch dem lokalen Computer registriert ist.
Mein Frage: Kann ich eventl. die Excel anders einlesen ? Ich brauche nur das DGV und muss nicht DB gebunden sein zur weiteren Verwendung oder kann ich in die Setup.exe das bereits mit einpacken damit es bei der Installation gleich mit Installiert wird.
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Sheetauswahlbtn.Click 'Excel über Sheet abfrage in DGW einlesen
- Try
- Dim Filename As String = Pfadfinderlabel1.Text.ToString
- Dim fi As New IO.FileInfo(Filename)
- Dim sheetName As String = ComboBox1.SelectedItem.ToString
- excel = fi.FullName
- con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0;")
- dta = New OleDbDataAdapter("select * from [" & sheetName & "$]", con)
- dts = New DataSet
- dta.Fill(dts, "[" & sheetName & "$]")
- DGVSKliste.DataSource = dts
- DGVSKliste.DataMember = "[" & sheetName & "$]"
- con.Close()
- Btnloadstromkreis.BackColor = Color.Green
- SKlistepfad.Text = OpenFileDialog.SafeFileName
- ' End If
- If btnloadkonfig.BackColor = Color.Green AndAlso Btnloadstromkreis.BackColor = Color.Green Then
- Kovertbtn.Enabled = True
- End If
- SKliststyle()
- Catch ex As Exception
- MsgBox(ex.Message)
- con.Close()
- Exit Sub
- End Try
- End Sub