Excel从jpg网址获取尺寸和文件大小

Question

我有jpg网址：

我想获得：

1. jpg尺寸

2. jpg文件大小

像这样：

Answer 1

将此代码粘贴到Excel文件的新模块中，然后运行Tester函数进行测试。

要进行测试，请用您自己的URL替换Tester函数中的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填充中的模块中，就可以通过Tester函数中所示的VBA使用它，也可以按以下方式使用它：

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

=FileSize(A1)

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

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

到下面的新内容：

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