решил проблему тем, что беру файлы из шары человека, а не с фтп, но интересно было бы иметь возможность брать файлы с фтп

В строке формул 1000 символов с легкостью помещается, попробуйте растянуть её

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

Hugo, при указание ссылки на Set TheFolder = FSO.GetFolder(strPath) ошибка Path not faund, как макрос точно можно использовать?

EducatedFool, выдает ошибку на шаге folder$ = Replace(BaseFolder & FtpFolder$, "//", "/")  
 
Я правильно задаю значения фтп?  
 
Private Sub Class_Initialize()  
   ' из реестра - значения по-умолчанию  
   Me.Host = GetSetting(Application.Name, "FTP", "Host", "ftp://10.10.4.3")  
   Me.Login = GetSetting(Application.Name, "FTP", "Login", "anonymous")  
   Me.Password = GetSetting(Application.Name, "FTP", "Password", "guest")  
   Me.BaseFolder = GetSetting(Application.Name, "FTP", "BaseFolder", "/public/")  
   Me.BaseURL = GetSetting(Application.Name, "FTP", "BaseURL", "ftp://10.10.4.3/public/")  
End Sub

Идея в том, чтобы автоматически открывался ексель смотрел папку на фтп и брал нужный файл (суть в том что название файла строится на имени файла даты и времени выгрузки с секундами, и секунды всегда разные), поэтому сложность возникла только с выбором файла...  
я это представляю как цикл просмотра файлов в папке по маске(имяФайла_Date_2130), но как это сделать пока не понимаю

Добрый день, подскажите как можно импортировать с фтп файл с неизветным окончанием названия файла.  
Dim strPath, strDt, strFile as String  
strPath = "ftp://10.10.4.3/public/"  
strDt = InputBox("Введите дату проверки в формате YYYYMMDD", , 20120627)  
strFile = strPath & "file1.txt_" & strDt & "_2130" & "%%"  
 
и последние цифры "%%" могут быть не известны, кто нибудь знает как сделать?