Как сохранить программно файл .xls на сервере FTP

Программирование на Visual Basic for Applications
abc
Обычный пользователь
Обычный пользователь
 
Сообщения: 85
Зарегистрирован: 09.07.2004 (Пт) 17:31
Откуда: Kiev

Как сохранить программно файл .xls на сервере FTP

Сообщение abc » 20.06.2007 (Ср) 18:02

Как сохранить программно файл .xls на сервере FTP (известны адрес, логин и пароль)?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 20.06.2007 (Ср) 18:08

Сохраняешь локально, пересылаешь на FTP, удаляешь локальный файл.
Lasciate ogni speranza, voi ch'entrate.

abc
Обычный пользователь
Обычный пользователь
 
Сообщения: 85
Зарегистрирован: 09.07.2004 (Пт) 17:31
Откуда: Kiev

Сообщение abc » 21.06.2007 (Чт) 11:31

А вот об этом "пересылаешь на FTP" можно подробней? Может есть ф-ция API?

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 21.06.2007 (Чт) 11:41

Функции ЕМНИП нет.
Но протокол FTP несложный.
Кроме того, есть готовые компоненты, в том числе и бесплатные. Например, Internet Transfer Control.
Lasciate ogni speranza, voi ch'entrate.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 21.06.2007 (Чт) 12:00

Есть такая функция!
FtpPutFile
Изображение

abc
Обычный пользователь
Обычный пользователь
 
Сообщения: 85
Зарегистрирован: 09.07.2004 (Пт) 17:31
Откуда: Kiev

Сообщение abc » 21.06.2007 (Чт) 17:17

Что-то я застрял.
На вот таком шаге:
hSession = InternetConnect(hINetSession, strPath, "21", strLogin, strPassword, INTERNET_SERVICE_FTP, 0, 0)

hSession = 0 , т.е. на сколько я понимаю конект не состоялся. В чем может быть засада?

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 21.06.2007 (Чт) 19:44

To retrieve extended error information, call GetLastError.
Изображение


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Google-бот и гости: 119

    TopList