Google Photos API -是否有方法提取评论

Question

我正在寻找一种提取谷歌照片评论的方法。通过API有什么官方的方式吗?替代品吗?

谢谢Z

Answer 1

下面的方法将从Google Photos相册中提取评论(和其他有用的信息)。这在M1 MacAir上运行Excel for Mac 16.55(365订阅)

1. 转到http://takeout.google.com
2. 只选择google Photos部分中的相册
3. 将所有生成的。json文件和Excel工作簿放在/Users/[yourUserName]/Library/Group Containers/UBF8T346G9文件夹中。将[yourUserName]替换为用户名的Office/Docs
4. 在Excel工作簿
中运行下面的Excel VBA宏

子extractGooglePhotoInfo ()

Dim As String, path As String, ext As String

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

ext = "json">

Set sh = ThisWorkbook。ActiveSheet

Set r = sh.Range("A1")

r。Offset(0,0) = "文件名">

r。Offset(0,1) = "description;

r。Offset(0,2) = "image views">

r。Offset(0,3) = "photo took ">

r。Offset(0,4) = "url">

Set r = sh.Range("A2")

s = Dir(ThisWorkbook.)路径,"/* !",ext)

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编辑器复制的代码工作。