, 20 2014 . 13:20
+
!
.
Excel, :
A030300000
1050200000
1010200000
mdb "A030300000" Null.
:
DoCmd.TransferSpreadsheet _
TransferType:=acImport, _
SpreadsheetType:=acSpreadsheetTypeExcel9, _
TableName:="temp", _
FileName:="" & s & "", _
HasFieldNames:=False
CurrentDb.Execute ("Insert into temp([F4]) select CStr([F4]) from [Ëèñò1$] IN '" & s & "' [Excel 8.0;HDR=NO;IMEX=1]")
Set db = OpenDatabase("" & s & "", False, True, "Excel 8.0; HDR=NO; IMEX=1;")
Set rs = db.OpenRecordset("1$")
....
!p4 = str(Nz(rs(3), ""))
, ?
!
http://www.sql.ru/forum/1095650/import-dannyh-iz-excel