Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » _Ilshat
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
VBA - Excel (VBA) не копирует файл с Андроид на ПК через FTP содинение
 
#
03.01.2015 22:48:41
Второй вариант я еще не пробовал.
 
Перейти    
VBA - Excel (VBA) не копирует файл с Андроид на ПК через FTP содинение
 
#
03.01.2015 22:46:10
Спасибо за ответ Игорь. Я и не надеялся на workbooks.open. Попытка открыть через него дает следующее (даже с убранным паролем):
 
Еще информация:
Попытка его прямого открытия мышкой запускает explorer, но и тот предлагает его сохранить гденибудь еще, а открыть разумеется не может. Вообще найденный код в теме создает файл на ПК, но весит он 0 кБ (пустышка) и допускает открытие excel-ем с сообщением о проблемах с расширением.
Еще вход на сетевое расположение показывает такой адрес: C:\Users\Advisor\AppData\Roaming\Microsoft\Windows\Network Shortcuts\192.168.24.108
Вроде так и должно быть. Долгий поиск по инэту не дал понятного мне ответа. Неужели только эмуляция кнопок клавиатуры?  
 
Перейти    
VBA - Excel (VBA) не копирует файл с Андроид на ПК через FTP содинение
 
#
03.01.2015 20:59:34
Всех с наступившим!
Нашел нижеприведенный код который прекрасно копирует из ПК на Андроид, но не в обратном порядке:
Код
Sub Копируем_из_FTP()
'Нужно включить в проект ссылку:
'Microsoft Shell Controls And Automation
'C: WINNTsystem32shell32.dll
    Dim objShell  As Shell
    Dim objFolder As folder
    Set objShell = New Shell
    'копируем в
    Set objFolder = objShell.Namespace("D:\excel2\base\"
    If (Not objFolder Is Nothing) Then
    'копируем из
        objFolder.CopyHere ("ftp://excel:xxxxxxxx@192.168.24.108:55555/base.xls"
    End If
    Set objFolder = Nothing
    Set objShell = Nothing
End Sub
Пожалуйста подскажите кто нибудь! Что в нем не так? Или есть какая другая альтернатива? Ноутбук с Windows 8.1, excel 2007, wi-fi соединение с Андроидом через утилиту Connectify, ftp утилита на Андроиде - FTP server ultimate. Через ftp ноут вручную полностью может копировать, удалять, переименовывать файлы на Андроид, тут все стабильно работает.
Изменено: _Ilshat - 08.01.2015 02:42:10
 
Перейти    
Как открыть файл на сервере без указания его расширения?
 
#
23.07.2012 20:11:05
Ну и простота! Браво RAN! Спасибо всем участникам. Тема закрыта.
 
Перейти    
Как открыть файл на сервере без указания его расширения?
 
#
23.07.2012 14:17:26
Согласен. Незачем. Это пережиток старого:  
Workbooks.OpenText Filename:="\\Serveranec\Автоучет\Автоучет"  
Но все же... Как его открыть на сервере не оговаривая его расширения?
 
Перейти    
Как открыть файл на сервере без указания его расширения?
 
#
23.07.2012 10:21:28
Добрый день.  
Работа. Сервер. Файл Автоучет.xlsm (19 мб) хочу заменить на Автоучет.xlsb. Постепенно планирую менять макросы, работающие с этим файлом, у множества пользователей. С первым же поймал проблему.    
При тестировании дома это строка работает:  
   Workbooks.OpenText Filename:="C:\Автоучет\Автоучет"  
На работе нет (пишет не удается найти... проверьте путь):  
   Workbooks.OpenText Filename:="\\Serveranec\Автоучет\Автоучет"  
Файл Автоучет лежит в папке Автоучет. Подскажите в чем загвоздка?
 
Перейти    
Страницы: 1
Наверх