Excel mit OLEDB lesen

27/10/2009 - 22:22 von Peter Gast | Report spam
Hallo,
ich habe ein kleine Routine geschrieben, um die richtige Excelversion in
meinen Connectionstring zu packen. Obwohl Office2007 auf dem Rechner
installiert ist, wird aber Excel 8.0 (Office2003?) zurückgeliefert und
demzufolge keine *.xlsx-Dateien gelesen. Ist hier was falsch oder geht das
auch einfacher?

Private Sub CreateConnectionString()
For version As SByte = 16 To 8 Step -1
Try
ConnString = "Provider=Microsoft.Jet.OLEDB.4.0" & _
";Extended Properties=""Excel " +
version.ToString + ".0" + _
";HDR=Yes""" + _
";Data Source=FileName"
Using conn As OleDbConnection = New
OleDbConnection(ConnString)
conn.Open()
conn.Close()
End Using
Exit Sub
Catch ex As Exception
End Try
Next
End Sub


ich brauch dann nur noch den Dateinamen zu ersetzen:
...
Using conn As OleDbConnection = New OleDbConnection( _
ConnString.Replace("FileName",
Me.Filename))
...

Gruß Peter
 

Lesen sie die antworten

#1 Senol Balaban
27/10/2009 - 22:41 | Warnen spam
Hallo Peter

"Peter Gast" schrieb im Newsbeitrag
news:4ae764c8$0$15681$

ConnString = "Provider=Microsoft.Jet.OLEDB.4.0" & _



für *.xlsx sollte

Provider=Microsoft.ACE.OLEDB.12.0;

sein

MFG

Balaban Senol

Ähnliche fragen