evo i koda:
Private Sub Command3_Click()
Dim FiletoImport As String
Dim dbs As Database
Set dbs = CurrentDb
FiletoImport = "c:/IN-IT/Kupci_DM.xls"
If Len(Dir(FiletoImport)) = 0 Then
MsgBox FiletoImport & " not found", vbExclamation, Application.Name
Exit Sub
End If
DoCmd.TransferSpreadsheet transferType:=acImport, TableName:="T_DM", filename:=FiletoImport, HasFieldNames:=True
Exit Sub
End Sub
INTRUDER