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

Question

我有 jpg 网址：

我想得到：

1. jpg 尺寸

2. jpg 文件大小

像这样：

Answer 1

将此代码粘贴到 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 文件中的模块中，您可以通过 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"