Как загрузить данные из файла excel с веб-сервера

Я хотел бы получить данные из файла excel, который находится на интернет-сервере. Теперь мой код выглядит так:

Sub test() Dim oExcel As Excel.Application ' open the webpage here Dim oWB As Workbook Set oExcel = New Excel.Application Set oWB = oExcel.Workbooks.Open("localhost/test/test.xlsx") Range("$A$1").Value = oWB End Sub 

Но это не работает. Как я могу это решить?

Попробуй так.

 Sub DownloadFileWithVBA() Dim myURL As String 'Right-click on the link named 'Sample Address File' 'Click 'Copy Link Location' 'Paste the link below myURL = "http://databases.about.com/library/samples/address.xls" Dim WinHttpReq As Object Set WinHttpReq = CreateObject("Microsoft.XMLHTTP") WinHttpReq.Open "GET", myURL, False WinHttpReq.Send myURL = WinHttpReq.ResponseBody Set oStream = CreateObject("ADODB.Stream") oStream.Open oStream.Type = 1 oStream.Write WinHttpReq.ResponseBody oStream.SaveToFile ("C:\Users\Excel\Desktop\address.xls") oStream.Close End Sub 

Это тоже поможет вам …

 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 Private Sub pMain() Dim sURL As String Dim sDestination As String Dim bSuccess As Boolean Dim lRow As Long Dim ws As Excel.Worksheet Dim strSavePath As String Dim URL As String, ext As String Dim buf, ret As Long 'Change to suit Set ws = ThisWorkbook.Worksheets("Sheet1") With ws For lRow = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row sURL = .Cells(lRow, "A") sDestination = .Cells(lRow, "B") buf = Split(sURL, ".") ext = buf(UBound(buf)) pos = InStrRev(sURL, "/", -1) file = Mid(sURL, pos + 1, 99) strSavePath = sDestination & file ret = URLDownloadToFile(0, sURL, strSavePath, 0, 0) If ret = 0 Then .Cells(lRow, "C") = "File download successfully!" Else .Cells(lRow, "C") = "Couldn't download the file!" End If DoEvents Next lRow End With End Sub 

Во втором скрипте ваша настройка должна быть такой (изображение).

введите описание изображения здесь

Interesting Posts

VBA: диапазон копирования. ошибка времени выполнения 9 – индекс вне диапазона

Используйте C # для дублирования диаграммы в Excel

Агрегация числовых значений в столбце на основе общего значения: Excel VBA

Microsoft Excel заменяет имена своими идентификаторами

Использование макросов в Excel для гиперссылки большого количества данных и работы в рабочей книге

Надстройка VSTO против производительности VBA

Повторите идентичный файл Excel MATCH или выполните один раз и обратитесь к результату?

Как отобразить значение, которое находится в vlookup

Ссылка на таблицу слов от excel VBA?

Ссылка на ячейку с другого листа с формулой, которая имеет «+» после '='

Случайные ошибки VBA

Удаление диапазона столбцов в Excel VBA

VBA: копирование столбцов excel: лучшая практика для хранения ссылок на ячейки?

как конкатенировать текст в теле письма с помощью vba, когда нам нужно использовать условие IF THEN между ними?

Запретить импорт дубликатов записей из листа Excel в C #

Давайте будем гением компьютера.