Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Эксель в экселе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Эксель в экселе
anger47 Дата: Суббота, 15.12.2012, 00:47 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Подскажите пожалуйста можно ли вопше создать макрос, что бы при действии которого эксель загружал скажем в ту же самую папку где находится сам=) файл екселя с сайта? и если да то как?
П.С. название загружаемого файла всегда одинаковое
 
Ответить
СообщениеПодскажите пожалуйста можно ли вопше создать макрос, что бы при действии которого эксель загружал скажем в ту же самую папку где находится сам=) файл екселя с сайта? и если да то как?
П.С. название загружаемого файла всегда одинаковое

Автор - anger47
Дата добавления - 15.12.2012 в 00:47
anger47 Дата: Суббота, 15.12.2012, 01:37 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Просмотры есть, ответов нет cry Что не так, может вопрос не коректно поставил? Пишите...жду
 
Ответить
СообщениеПросмотры есть, ответов нет cry Что не так, может вопрос не коректно поставил? Пишите...жду

Автор - anger47
Дата добавления - 15.12.2012 в 01:37
Serge_007 Дата: Суббота, 15.12.2012, 03:36 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Quote (anger47)
можно ли вопше создать макрос

Можно


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Quote (anger47)
можно ли вопше создать макрос

Можно

Автор - Serge_007
Дата добавления - 15.12.2012 в 03:36
Dragokas Дата: Суббота, 15.12.2012, 17:46 | Сообщение № 4
Группа: Проверенные
Ранг: Новичок
Сообщений: 14
Репутация: 25 ±
Замечаний: 0% ±

2003
Quote (anger47)
и если да то как?


[vba]
Code
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
     
Sub DownloadHTTP()
      Dim ret As Long
      Dim HTTPfile As String, LocalFile As String
        
      HTTPfile = "http://Ваш сайт/Ваше имя файла"
      LocalFile = "Путь к файлу на Вашем компьютере"
        
      ret = URLDownloadToFile(0, HTTPfile, LocalFile, 0, 0)
      MsgBox IIf(ret = 0, "Ошибка!", "Файл успешно скачан.")
End Sub
[/vba]

Вот код по-интереснее: Chip Pearson's modDownloadFile


Сообщение отредактировал Dragokas - Суббота, 15.12.2012, 17:46
 
Ответить
Сообщение
Quote (anger47)
и если да то как?


[vba]
Code
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
     
Sub DownloadHTTP()
      Dim ret As Long
      Dim HTTPfile As String, LocalFile As String
        
      HTTPfile = "http://Ваш сайт/Ваше имя файла"
      LocalFile = "Путь к файлу на Вашем компьютере"
        
      ret = URLDownloadToFile(0, HTTPfile, LocalFile, 0, 0)
      MsgBox IIf(ret = 0, "Ошибка!", "Файл успешно скачан.")
End Sub
[/vba]

Вот код по-интереснее: Chip Pearson's modDownloadFile

Автор - Dragokas
Дата добавления - 15.12.2012 в 17:46
anger47 Дата: Суббота, 15.12.2012, 19:42 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 192
Репутация: 6 ±
Замечаний: 0% ±

Dragokas, привет, а подскажы он только для 86(32)-битных систем работает?
 
Ответить
СообщениеDragokas, привет, а подскажы он только для 86(32)-битных систем работает?

Автор - anger47
Дата добавления - 15.12.2012 в 19:42
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!