Question

我想导入这个json文件：

{＆＃34; status＆＃34;：＆＃34; ok＆＃34;，＆＃34; results_time＆＃34;：＆＃34; 0.6989 sec。＆＃34;，＆＃34; results_count＆＃34 ;：1，＆＃34;结果＆＃34;：[{＆＃34; date＆＃34;：＆＃34; 2017-12-01＆＃34;，＆＃34; site_url＆＃34;：＆＃34; digitment.com.hk＆＃34;，＆＃34; site_title＆＃34;：＆＃34; seo company hong kong |搜索引擎优化服务亚洲＆＃34;，＆＃34; site_description＆＃34;：＆＃34;帮助您的业务在第一页的帮助下成长，这是香港最有经验的seo＆amp; amp;数字营销公司。今天询问！＆＃34;，＆＃34;观众＆＃34;：{＆＃34;访问＆＃34;：2471，＆＃34; time_on_site_avg＆＃34;：＆＃34; 00：01：24＆＃34; ，＆＃34; page_views_avg＆＃34;：2.262725673935643，＆＃34; bounce_rate＆＃34;：54.94}，＆＃34;流量＆＃34;：{＆＃34;价值＆＃34;：2471，＆＃34;百分比＆＃34;：100，＆＃34;国家＆＃34;：[{＆＃34;国家＆＃34;：＆＃34;香港＆＃34;，＆＃34;价值＆＃34;：1850，＆＃34 ;％＆＃34;：74.87}，{＆＃34;国家＆＃34;：＆＃34;印度＆＃34;，＆＃34;价值＆＃34;：252，＆＃34;百分比＆＃34;：10.24} ，{＆＃34; country＆＃34;：＆＃34; Taiwan＆＃34;，＆＃34; value＆＃34;：115，＆＃34; percent＆＃34;：4.66}，{＆＃34; country＆＃ 34;：＆＃34;瑞典＆＃34;，＆＃34;价值＆＃34;：107，＆＃34;百分比＆＃34;：4.35}，{＆＃34;国家＆＃34;：＆＃34;马来西亚＆＃34;，＆＃34;价值＆＃34;：80，＆＃34;百分比＆＃34;：3.24}，{＆＃34;国家＆＃34;：＆＃34;其他＆＃34;，＆＃34;价值＆＃34;：6523，＆＃34;百分比＆＃34;：2.64}]，＆＃34;来源＆＃34;：{＆＃34;直接＆＃34;：{＆＃34;价值＆＃34;：586 ，＆＃34;百分比＆＃34;：23.74}，＆＃34; search_organic＆＃34;：{＆＃34;价值＆＃34;：1024，＆＃34;百分比＆＃34;：41.44，＆＃34; top_keywords＆＃34;：[{＆＃34; key单词＆＃34;：＆＃34;第一页hk＆＃34;，＆＃34;值＆＃34;：430，＆＃34;百分比＆＃34;：42.05}，{＆＃34;关键字＆＃34;：＆＃34;谷歌\ u8cfc \ u7269＆＃34;，＆＃34;价值＆＃34;：205，＆＃34;百分比＆＃34;：20.08}，{＆＃34;关键字＆＃34;：＆＃34; seo＆＃34;，＆＃34;价值＆＃34;：195，＆＃34;百分比＆＃34;：19.06}，{＆＃34;关键字＆＃34;：＆＃34;第一页＆＃34;，＆＃34;价值＆＃34;：71，＆＃34;百分比＆＃34;：7.01}，{＆＃34;关键字＆＃34;：＆＃34; \ u9999 \ u6e2fseo \ u516c \ u53f8＆＃34;，＆＃34;价值＆＃34;：71，＆＃34;百分比＆＃34;：7.01}]}，＆＃34; search_ad＆＃34;：{＆＃34;价值＆＃34;：793，＆＃34;百分比＆＃34;： 32.09，＆＃34; top_keywords＆＃34;：[{＆＃34; keyword＆＃34;：＆＃34; facebook \ u5ee3 \ u544a \ u6536 \ u8cbb＆＃34;，＆＃34; value＆＃34;：279，＆＃34;百分比＆＃34;：35.29}，{＆＃34;关键字＆＃34;：＆＃34; seo＆＃34;，＆＃34;价值＆＃34;：279，＆＃34;百分比＆＃34; ：35.29}，{＆＃34;关键字＆＃34;：＆＃34; google adwords＆＃34;，＆＃34;价值＆＃34;：46，＆＃34;百分比＆＃34;：5.88}，{＆＃ 34;关键字＆＃34;：＆＃34; facebook \ u4ed8 \ u9322 \ u5ee3 \ u544a＆＃34;，＆＃34;价值＆＃34;：46，＆＃34;百分比＆＃34;：5.88}，{＆＃ 34;关键字＆＃34;：＆＃34; facebook \ u5 ee3 \ u544a＆＃34;，＆＃34;价值＆＃34;：46，＆＃34;百分比＆＃34;：5.88}]}，＆＃34;推介＆＃34;：{＆＃34;价值＆＃34; ：0，＆＃34;百分比＆＃34;：0，＆＃34; top_referrals＆＃34;：[]}，＆＃34; referral_ad＆＃34;：{＆＃34;值＆＃34;：36，＆＃ 34;百分比＆＃34;：1.46，＆＃34; top_referrals＆＃34;：[{＆＃34;网站＆＃34;：＆＃34; hk.entertainment.appledaily.com＆＃34;，＆＃34;价值＆＃ 34;：36，＆＃34;百分比＆＃34;：100}]}，＆＃34;社交＆＃34;：{＆＃34;价值＆＃34;：29，＆＃34;百分比＆＃34;：1.18 ，＆＃34; top_socials＆＃34;：[{＆＃34;网站＆＃34;：＆＃34; Facebook＆＃34;，＆＃34;价值＆＃34;：29，＆＃34;百分比＆＃34;： 100}]}，＆＃34; appstore＆＃34;：{＆＃34;价值＆＃34;：0，＆＃34;百分比＆＃34;：0，＆＃34; top_apps＆＃34;：[]}，＆＃34; mail＆＃34;：{＆＃34; value＆＃34;：0，＆＃34;％＆＃34;：0}}，＆＃34;估计＆＃34;：{＆＃34; 2017- 07-01＆＃34;：7634，＆＃34; 2017-08-01＆＃34;：27912，＆＃34; 2017-09-01＆＃34;：52102，＆＃34; 2017-10-01＆＃34 ;：2449，＆＃34; 2017-11-01＆＃34;：1964，＆＃34; 2017-12-01＆＃34;：2471}}}]}

Dim Item As Dictionary
Dim Item2 As Dictionary
Dim Item3 As Dictionary
Dim jsonObject As Object
Set JsonTS = FSO.OpenTextFile("dict.competitor", ForReading)
jsonText = JsonTS.ReadAll
JsonTS.Close
Set jsonObject = ParseJson(jsonText)

For Each Item In jsonObject("results")
    Sheets(1).Cells(2, 1).Value = Item("date")
    Sheets(1).Cells(2, 2).Value = Item("site_url")
    Sheets(1).Cells(2, 3).Value = Item("site_title")
    Sheets(1).Cells(2, 4).Value = Item("site_description")
    Sheets(1).Cells(5, 2).Value = Item("audience")("visits")
    Sheets(1).Cells(6, 2).Value = Item("audience")("time_on_site_avg")
    Sheets(1).Cells(7, 2).Value = Item("audience")("page_views_avg")
    Sheets(1).Cells(8, 2).Value = Item("audience")("bounce_rate")

    aa = 12
    For Each Item2 In Item("traffic")("countries")
            Sheets(1).Cells(aa, 3).Value = Item2("country")
            Sheets(1).Cells(aa, 4).Value = Item2("value")
            Sheets(1).Cells(aa, 5).Value = Item2("percent")
            aa = aa + 1

    Next

    For Each Item3 In Item("traffic")("sources")
             MsgBox ("OK")
    Next

Next

导入项目时出错（＆＃34;流量＆＃34;）（＆＃34;来源＆＃34;）。

如何正确导入此嵌套格式？感谢。

Answer 1

您可以查看此链接豁免https://support.office.com/en-us/article/Split-text-into-different-columns-with-the-Convert-Text-to-Columns-Wizard-30B14928-5550-41F5-97CA-7A3E9C363ED7
它使用名为Delimiter的函数步骤1）单击数据＆gt;文本到列 step2）启动Convert Text to Columns Wizard。点击定界＆gt;下一步。
step3）检查Space，清除其余的框，或者检查逗号和空格，如果你的文本被拆分的话（Smith，John，名字之间用逗号和空格）。您可以在数据预览窗口中查看数据预览。

希望有所帮助

Excel VBA导入json文件

1 个答案: