Страницы: 1
RSS
Сохранение CSV файлов через VBA
 
Добрый день.
Использую следующий код для скачивания файла с биржи (https://spimex.com/old/indexes/service_functions_oil.php?request=csv&index=eri&market=s)
Файл качается, проблем нет, но пока я не открою файл и не сохраню его (ответив на вопрос про cvs) не могу с ним работать из сторонних файлов. Выдает ошибку невозможности обновления связей. Как это можно исправить? Открыть файл кодом и сохранить его? Качаю файл каждый день.

Код
Private Declare PtrSafe 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 DownloadIndex()
лист7.Activate
Dim a
a = Date
filesrc = Cells(3, 86)
dlpath = Cells(3, 85)
Filename = Cells(3, 87)
URLDownloadToFile 0, filesrc, dlpath & Filename, 0, 0
Cells(3, 88) = "файл скачан " & a
End Sub
Изменено: Валерий Кишин - 12.08.2021 13:27:47
 
а сохранить сразу в файл с расширением csv не подойдет?
Код
Sub DownloadIndex()
  лист7.Activate
  Dim a
  a = Date
  filesrc = Cells(3, 86)
  dlpath = Cells(3, 85)
  Filename = Cells(3, 87) & CStr(a) & ".csv"
  URLDownloadToFile 0, filesrc, dlpath & Filename, 0, 0
  Cells(3, 88) = "файл скачан " & dlpath & Filename
End Sub
 
Но это же просто добавит имя файла, а не изменит его формат и локаль данных внутри
Страницы: 1
Наверх