我正在使用这个函数在一个数据表或数据视图中上传一个excel文件,我的问题是,一开始程序是瞬间执行的,但现在浪费了几秒钟运行命令xlsConn.Close(),任何想法为什么如果在一开始它立即运行,现在是慢吗?另外,如果我删除该命令(xlsConn.Close()),我会有任何问题吗?我已经看到我在尝试打开上传的excel文件时遇到了一些问题,它只给了我阅读权限。
Function ReadExcelFile(ByVal InputFile As String, ByVal DataSheet As String)
InputFile = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & InputFile & ";Extended Properties=Excel 12.0"
DataSheet = "select * from [" & DataSheet & "$]"
Dim da As New OleDbDataAdapter
Dim dt As New DataTable
Dim cmd As New OleDbCommand
Dim xlsConn As OleDbConnection
xlsConn = New OleDbConnection(InputFile)
Try
xlsConn.Open()
cmd.Connection = xlsConn
cmd.CommandType = CommandType.Text
cmd.CommandText = (DataSheet)
da.SelectCommand = cmd
da.Fill(dt)
Catch
MsgBox(ErrorToString)
Finally
xlsConn.Close()
xlsConn = Nothing
End Try
Return dt
End Function