افزودن اطلاعات از فایل اکسل به اکسس
سلام به همه دوستان عزیز
من با استفاده از کد زیر اطلاعات رو از فایل اکسل به اکسس انتقال میدم . ولی یک ایراد داره اونم اینه که به تعداد رکورد هایی که در حلقه 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
پاسخ با نقل قول
نوشته شده توسط Nader700
