Hi,
ich schreibe ein Programm für die Arbeit das u.A. Werte aus mehreren DataGridViews in ein einziges Excel-File speichert. Natürlich soll es auch die Werte aus dem File wieder laden können. Ersteres klappt, nur der Import nicht. Ich Google schon den 2. Tag und finde nichts passendes, auch weil VBA 2010 neu für mich ist. Als OOP kenne ich nur Java, habe damit aber andere Sachen gemacht. Hatte auch erst gedacht dass es nur mit Access geht oder SQL.
Ich habe mehrere Codes aus dem Netz geholt und versucht nachzuvollziehen und zu modifizieren. Der einzige, der halbwegs funktioniert ist unten stehender. Allerdings kommt "Argument Exception nicht behandelt" in Zeile 21.
Was muss ich machen damit das läuft?
ich schreibe ein Programm für die Arbeit das u.A. Werte aus mehreren DataGridViews in ein einziges Excel-File speichert. Natürlich soll es auch die Werte aus dem File wieder laden können. Ersteres klappt, nur der Import nicht. Ich Google schon den 2. Tag und finde nichts passendes, auch weil VBA 2010 neu für mich ist. Als OOP kenne ich nur Java, habe damit aber andere Sachen gemacht. Hatte auch erst gedacht dass es nur mit Access geht oder SQL.
Ich habe mehrere Codes aus dem Netz geholt und versucht nachzuvollziehen und zu modifizieren. Der einzige, der halbwegs funktioniert ist unten stehender. Allerdings kommt "Argument Exception nicht behandelt" in Zeile 21.
Was muss ich machen damit das läuft?
Visual Basic-Quellcode
- Private Sub btn_import_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_import.Click
- OpenFileDialog.InitialDirectory = savePath 'Pfadangabe des Speicherorts
- OpenFileDialog.Filter = "All Files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|CSV Files (*.csv)|*.csv|XLS Files (*.xls)|*xls"
- 'Filter nach excel-files
- If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
- Dim fileinfo As New FileInfo(OpenFileDialog.FileName)
- Dim FileName As String = OpenFileDialog.FileName
- Excel = fileinfo.FullName
- 'Stelle Verbindung her
- connection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + Excel + ";Extended Properties=Excel 12.0;")
- 'Öffne Leitung
- connection.Open()
- dataadapter = New OleDbDataAdapter("Select * From [Tabelle1$]", connection)
- DataTable = New DataTable
- dataadapter.Fill(DataTable, "[Tabelle1$]")
- DataGridView1.DataSource = DataTable
- DataGridView1.DataMember = "[Tabelle1$]"
- 'Schließe Leitung
- connection.Close()
- End If
- End Sub