Импорт данных в access 2007 из Excel через макрос - VBA

Формулировка задачи:

Доброе утро. нужно сделать импорт данных из Excel в access. сделал вот это:

                    Листинг программы
                
 
                        
                          
                    
Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
   .Title = "IWN Monitor access"
   .InitialFileName = "\\bykna001\FREDIRECT$\Lysikov\Desktop\Г«ГЁГ±ГІ ГЇГ®Г¤ГЎГ®Г°Г*\IWN Monitor
 access" 'default path ГЏГіГІГј ГЇГ® ГіГ¬Г®Г«Г·Г*Г*ГЁГѕ
   .AllowMultiSelect = False
   .Filters.Clear
   .Filters.Add "IWN Monitor access", "*.xlsx", 1
result = .Show
 
If result = 0 Then Exit Sub
FName = Trim(.SelectedItems.Item(1))
End With
 
DoCmd.TransferSpreadsheet aclImport, , "IWNMonitoraccess", FName, True
 
End Sub

но запрашивает файл который нужно импортировать через окно. т.е. макрос выполняется и выскакивает папка где находится файл и его нужно выбрать. а можно сделать что бы он автоматически подтягивал нужный файл.

Решение задачи: «Импорт данных в access 2007 из Excel через макрос»

textual
                            Листинг программы 
                        
 
                        
                          
                    
sub fff()
Fname = "\\bykna001\FREDIRECT$\Lysikov\Desktop\лист подбора\IWN Monitor access\НУЖНЫЙФАЙЛ.xlsx"
DoCmd.SetWarnings (WarningsOff)
DoCmd.TransferSpreadsheet aclImport, , "IWNMonitoraccess", FName, True
DoCmd.SetWarnings (WarningsOn)
end sub