例えばエクセル

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 

私はセルAにURLリストを持っていると私はセルB

でファイルサイズを持つようにしたい私は、このためのVBAコードを試してみましたが、その働いていない。一つのことは、私はちょうどインターネットからこのコードを得て、私のものではないが、それは私を助けてくれなかった。ここにコードは

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

Excelの特定のURLにファイルサイズを取得することはできますか？上記の例を確認し、私は列Bに

Answer 1

の列A内のURLを持っており、ファイルサイズを取得したいこれは私が作ったコメントのための私の更なる説明です：

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)