Fetch размер файла в Excel

Question

Например:

Cell A       | Cell B 
================================== 
http://m---.com/myfile.txt  | 4kbs 
-------------------------------------------- 
http://m---.com/myfile.txt  | 10kbs 
-------------------------------------------- 
http://m---.com/myfile.doc  | 104kbs 
---------------------------------------------- 
http://m---.com/myfile.jpg  | 102kbs 

Я просто списки URL в соте A, и я хочу, чтобы иметь размер файла в соте B.

Я попытался VBA код для этого, но его не работает. Еще одно, я просто получил этот код из Интернета, а его не мой, но это не помогло мне. Вот код:

print file path Cells(i + 1, 1) = objFile.Path 'print size Cells(i + 1, 2) = objFile.Size 

Возможно ли получить размер файла по определенному URL-адресу в excel? Проверьте приведенный выше пример, у меня есть URL-адрес в столбце A и хочу получать размер файла в столбце B.

Answer 1

Это мое дальнейшее объяснение для комментария я сделал:

Function URLFileSize(urlLink As String) As String 
    Dim xmlObj As Object 
    Set xmlObj = CreateObject("MSXML2.XMLHTTP") 

    xmlObj.Open "HEAD", urlLink, False 
    xmlObj.Send 
    If xmlObj.Status = 200 Then 
     URLFileSize = xmlObj.getResponseHeader("Content-Length") 
    Else: URLFileSize = -1 
    End If 

    Set xmlObj = Nothing 
End Function 

Чтобы использовать эту функцию в ячейка в ячейке B2 помещает =URLFileSize(A2) и отображает байты в ячейке B2.

Для использования в VBA, позвоните на него, как и любой другой функции: RandomVariable = URLFileSize(fullUrlString)