Dim strCon_exl As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & TextBox1.Text & "; Extended Properties='Excel 8.0;IMEX=1'"
在原语句没有IMEX=1的情况下,加上它。注意加单引号。
Dim strCon_exl As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & TextBox1.Text & "; Extended Properties='Excel 8.0;IMEX=1'"
在原语句没有IMEX=1的情况下,加上它。注意加单引号。