下面代码在EXCEL2010的电脑上一切正常,但在2007版本上就不行了,请问老师如何修改,谢谢!
Dim dlg As new OpenFileDialog
dlg.Filter = "Excel文件|*.xlsx"
If dlg.ShowDialog = DialogResult.OK Then
If Connections.Contains("test") Then
If DataTables.Contains("临时表") Then DataTables.Unload("临时表")
Connections.Delete("test")
End If
Connections.Add("test", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dlg.FileName & ";Extended Properties='Excel 8.0;HDR=yes'")
Dim tns As String = ""
For Each tn As String In Connections("test").GetTableNames
tns &= tn & "|"
Next
e.Form.Controls("ComboBox1").ComboList = tns.TrimEnd("|")
End If