Всех с наступившим!
Нашел нижеприведенный код который прекрасно копирует из ПК на Андроид, но не в обратном порядке:
Пожалуйста подскажите кто нибудь! Что в нем не так? Или есть какая другая альтернатива? Ноутбук с Windows 8.1, excel 2007, wi-fi соединение с Андроидом через утилиту Connectify, ftp утилита на Андроиде - FTP server ultimate. Через ftp ноут вручную полностью может копировать, удалять, переименовывать файлы на Андроид, тут все стабильно работает.
Нашел нижеприведенный код который прекрасно копирует из ПК на Андроид, но не в обратном порядке:
| Код |
|---|
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 |
Изменено: - 08.01.2015 02:42:10
