8,735
社区成员
发帖
与我相关
我的任务
分享
Dim aa As String
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=D:\程序\ESA_OPR_NEW\ESA_WEB_MER\File_MerReport\" & strMerchNo & "\" & DateTemp2 & "\" & fiTemp.Name & ";" & "Extended Properties=Excel 8.0;"
Dim conn As New Data.OleDb.OleDbConnection(strConn)
conn.Open()
Dim strExcel As String = ""
Dim myCommand As Data.OleDb.OleDbDataAdapter = Nothing
Dim ds As Data.DataSet = Nothing
strExcel = "select * from [sheet1$]"
myCommand = New Data.OleDb.OleDbDataAdapter(strExcel, strConn)
ds = New Data.DataSet()
aa = myCommand.Fill(ds, "[sss]")