29-11-19, 10:57 PM
من فظلكم اريد تعديل هذا الكود من اجل اوراق الاعمال تأخذ اي اسم من غيرsheet1
كود :
Dim ds As New DataSet
Dim da As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn)
da.Fill(ds, "[Sheet1$]")
grd.DataSource = ds.Tables("[Sheet1$]")
