如何在excel中获取文件大小？

我在一个单元格中有大量数据，下一个单元格中有文档的URL。我想获取文档的大小。在Excel中有可能吗？

例如：

--------------------------------------------
| 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

将此代码粘贴到Excel文件的新模块中并运行该Tester功能以对其进行测试。

要进行测试，请使用Tester您自己的URL 替换函数中的URL以进行测试。

Sub Tester()
MsgBox FileSize("https://www.google.com/images/logo.png")
End Sub

Function FileSize(sURL As String)
Dim oXHTTP As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
oXHTTP.Open "HEAD", sURL, False
oXHTTP.send
If oXHTTP.Status = 200 Then
FileSize = oXHTTP.getResponseHeader("Content-Length")
Else
FileSize = -1
End If
End Function

将其粘贴到Excel fille中的模块中后，您可以通过VBA使用它，如Tester函数中所示，或者您可以按如下方式使用它：

如果列A包含所有URL，并且您希望在列中显示文件大小，请B在单元格中键入此内容B1并将其向下拖动：

=FileSize(A1)

以上将给出文件大小（以字节为单位）。如果要以千字节显示文件大小四舍五入到2位小数并且在数字旁边显示“KB”，则可以更新以下代码行：

FileSize = oXHTTP.getResponseHeader("Content-Length")

到下面的新的：

FileSize = CStr(Round(oXHTTP.getResponseHeader("Content-Length") / 1024, 2)) + " KB"