Google Photos API - 有没有办法提取评论答案

【问题标题】：Google Photos API - Is there a way to extract commentsGoogle Photos API - 有没有办法提取评论
【发布时间】：2021-01-31 01:44:44
【问题描述】：

我正在寻找一种方法来提取谷歌照片 cmets。有没有通过API的官方方式？有其他选择吗？

谢谢 Z

【问题讨论】：

标签： node.js google-api google-photos google-photos-api

【解决方案1】：

以下方法将从 Google 相册中提取 cmets（和其他有用信息）。这适用于运行 Excel for Mac 16.55（365 订阅）的 M1 MacAir

转至http://takeout.google.com
仅选择 Google 照片部分中的相册
将所有生成的 .json 文件和 Excel 工作簿放在位于 /Users/[yourUserName]/Library/Group Containers/UBF8T346G9.Office/Docs 的文件夹中，您将 [yourUserName] 替换为您的用户帐户名
在 Excel 工作簿中运行下面的 Excel VBA 宏

子提取GooglePhotoInfo()

Dim s As String, path As String, ext As String

将 tempWk 作为工作簿，将 tempR 作为范围

将 sh 作为工作表，r 作为范围，t 作为字符串

ext = "json"

设置 sh = ThisWorkbook.ActiveSheet

设置 r = sh.Range("A1")

r.Offset(0, 0) = "文件名"

r.Offset(0, 1) = "描述"

r.Offset(0, 2) = "图片浏览量"

r.Offset(0, 3) = "拍照"

r.Offset(0, 4) = "url"

设置 r = sh.Range("A2")

s = Dir(ThisWorkbook.path & "/*." & ext)

虽然 s ""

path = ThisWorkbook.path & "/" & s

Workbooks.OpenText path, , , xlDelimited

Set tempWk = ActiveWorkbook

Set tempR = tempWk.ActiveSheet.Range("A1")

t = tempR.Offset(1, 0): r.Offset(0, 0) = Mid(t, 13, Len(t) - 14) 'title

t = tempR.Offset(2, 0): r.Offset(0, 1) = Mid(t, 19, Len(t) - 20) 'description

t = tempR.Offset(3, 0): r.Offset(0, 2) = Mid(t, 18, Len(t) - 19) 'imageViews

t = tempR.Offset(10, 0): r.Offset(0, 3) = Mid(t, 19, Len(t) - 19) 'photoTaken

t = tempR.Offset(26, 0): r.Offset(0, 4) = Mid(t, 11, Len(t) - 12) 'url

Set r = r.Offset(1, 0)

tempWk.Close False

s = Dir()

温德

*注意：上面的代码格式化很奇怪，因为我无法让代码格式化功能与直接从 Mac 版 VBA 编辑器复制的代码一起使用。

【讨论】：