[sofiane-phy]

من فظلكم اريد تعديل هذا الكود من اجل اوراق الاعمال تأخذ اي اسم من غيرsheet1

كود :

Dim ds As New DataSet
          Dim da As New OleDbDataAdapter("SELECT * FROM [Sheet1$]", conn)
          da.Fill(ds, "[Sheet1$]")
          grd.DataSource = ds.Tables("[Sheet1$]")