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

Question

我有jpg url:

我想得到：

jpg 尺寸
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 使用它，如测试程序功能所示，或者您可以按如下方式使用它：

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

=FileSize(A1)

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

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

下面是新的：

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

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

Excel get dimensions and filesize from jpg url

url

hyperlink

jpeg

filesize

dimensions