افزودن اطلاعات از فایل اکسل به اکسس

ساخت وبلاگ

آخرین مطالب

امکانات وب

افزودن اطلاعات از فایل اکسل به اکسس

سلام به همه دوستان عزیز
من با استفاده از کد زیر اطلاعات رو از فایل اکسل به اکسس انتقال میدم . ولی یک ایراد داره اونم اینه که به تعداد رکورد هایی که در حلقه for هست به همون تعداد رکورد خالی در جدول اکسس من اضافه می کنه (مثلا در کد زیر تعداد 4 رکورد خالی به جدول من یعنی Table1 اضافه میشه )ممنون میشم از دوستان اگه کد زیر رو ببینن و بهم بگن این مشکل رو چطوری رفع کنم .

Dim ExApp As New Excel.Application
Dim ExWB As Excel.Workbook
Dim ExWS As Excel.Worksheet
Call GetFileName
If IsNull(StrFullName) Or StrFullName = "" Then Exit Sub
Set ExWB = GetObject(StrFullName)
Set ExWS = ExWB.Worksheets(1)
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("Tabel1")
For i = 2 To 4
rs.AddNew
rs!R = ExWS.Cells(i, 2)
rs!name = ExWS.Cells(i, 3)
rs!famili = ExWS.Cells(i, 4)
rs!kodmli = ExWS.Cells(i, 5)

rs.Update
Next
Me.Requery
MsgBox "The Information Was Received Form The Excel File"
rs.Close
Set rs = Nothing
Set ExWS = Nothing
Set ExApp = Nothing

تمپوs...
ما را در سایت تمپوs دنبال می کنید

برچسب : نویسنده : خنج tempos بازدید : 18 تاريخ : يکشنبه 29 بهمن 1402 ساعت: 3:54

آرشیو مطالب

پيوندهای روزانه

لینک دوستان

خبرنامه