آخه مشکل اینجاست که هر روز آدرس فایل اکسلی که قراره داده ها از اون خونده بشه متفاوته
من خودم مشکل اول رو حل کردم. فایلش رو میذارم اگه بدرد کسی بخوره استفاده کنه
ولی مشکل دوم (Dialog Box) رو نتونستم حل کنم.
یه سوال دیگه اینکه اگه بخوایم داده سلولهای مثلا A2:A8 رو از اکسل وارد یکی از ستون های اکسس بکنیم از چه کدی باید استفاده کرد؟
Sub ADD()
Dim myRec As DAO.Recordset
Dim xl As Excel.Application
Dim xlsht As Excel.Worksheet
Dim xlWrkBk As Excel.Workbook
Dim ExcelWorkbook As Object
Set xl = CreateObject("Excel.Application")
xl.Visible = True
Set ExcelWorkbook = xl.Workbooks.Open("C:\Users\Master Slim\Desktop\import excell to access\test\q.xls", fulse)
Set xlWrkBk = GetObject("C:\Users\Master Slim\Desktop\import excell to access\test\q.xls")Set xlsht = xlWrkBk.Worksheets(1)
Set myRec = CurrentDb.OpenRecordset("Customer", dbOpenDynaset)
myRec.AddNew
myRec.Fields("customer") = xlsht.Cells(5,"A")
myRec.Fields("Test2") = xlsht.Cells(9, "F")
myRec.Fields("Test3") = xlsht.Cells(11, "F")
myRec.Update
xl.Visible = fulse
xlWrkBk.Windows(1).Visible = False
End Sub