26-11-19, 01:21 AM
عندي فورم عملته لاستيراد بيانات من الاكسل والكود صحيح 100% لكن لا اعلم الخطأ بسبب نسخة الاكسل ام نوع النظام باضع لكم الكود
النظام عندي 64 والاوفيس 64 ما ادري فين المشكله
التطبيق[attachment=23524]
كود :
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ofd.Filter = "Excel 2013|*.xlsm"
If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
grd.datasource = Nothing
grd.columns.clear()
Dim path As String = ofd.FileName
Dim Conn As New OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & path & " ; extended properties=excel 12.0;")
Dim ds As New DataSet
Dim da As New OleDbDataAdapter("select * from [SPEED$]", Conn)
da.Fill(ds, "[speed$]")
grd.DataSource = ds.Tables("SPEED$]")
Else
End If
End Sub
Private Sub ofd_FileOk(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ofd.FileOk
End Sub
End Class التطبيق[attachment=23524]