Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
open excel file for data import into an access database 1
- Thread starter ef61778
- Start date
-
1
- #2
snehakevin
Technical User
I think this piece of code will give you an idea to read from excel into access table....
Dim a As Object
Dim w As Object
Dim WSN As Object
dim filename as string
'define all the fields accordingly
filename = "c:\xxxxxx.xls"
Set a = CreateObject("Excel.Application"
Set w = a.Workbooks.Add(filename)
Set WSN = w.Worksheets(1)
WSN.Activate
set rs = db.openrecordset("select * from accesstable"
for x = 1 to lastlineof the worksheet
rs.addnew
rs.field1 = activesheet.cells(x,1)
rs.field2 = activesheet.cells(x,2)
........ all fields
next x
hope it helps
Dim a As Object
Dim w As Object
Dim WSN As Object
dim filename as string
'define all the fields accordingly
filename = "c:\xxxxxx.xls"
Set a = CreateObject("Excel.Application"
Set w = a.Workbooks.Add(filename)
Set WSN = w.Worksheets(1)
WSN.Activate
set rs = db.openrecordset("select * from accesstable"
for x = 1 to lastlineof the worksheet
rs.addnew
rs.field1 = activesheet.cells(x,1)
rs.field2 = activesheet.cells(x,2)
........ all fields
next x
hope it helps
- Status
