求助，VBA提取出来的中文是乱码，请老师帮忙看看

天宇130

求助，VBA提取出来的中文是乱码，请老师帮忙看看

Yalishanda30

编码问题吧

gwjkkkkk

应该编码问题，发个文本上来看看

天宇130

gwjkkkkk 发表于 2023-3-15 15:59
应该编码问题，发个文本上来看看

jQuery11230018089261244591537_1678845867970({"rc":0,"rt":6,"svr":182481211,"lt":1,"full":1,"dlmkts":"","data":{"total":86,"diff":[{"f12":"BK0425","f13":90,"f14":"宸ョ▼寤鸿��","f62":2193465088.0},{"f12":"BK1040","f13":90,"f14":"涓�鑽�","f62":621129856.0},{"f12":"BK0475","f13":90,"f14":"閾惰��","f62":455360688.0},{"f12":"BK0457","f13":90,"f14":"鐢电綉璁惧��","f62":436180880.0},{"f12":"BK0473","f13":90,"f14":"璇佸埜","f62":302879760.0},{"f12":"BK0424","f13":90,"f14":"姘存偿寤烘潗","f62":229855392.0},{"f12":"BK0450","f13":90,"f14":"鑸�杩愭腐鍙�","f62":183654080.0},{"f12":"BK1038","f13":90,"f14":"鍏夊�﹀厜鐢靛�?,"f62":181102560.0},{"f12":"BK0422","f13":90,"f14":"鐗╂祦琛屼笟","f62":137449584.0},{"f12":"BK0456","f13":90,"f14":"瀹剁數琛屼笟","f62":134979280.0},{"f12":"BK0738","f13":90,"f14":"澶氬厓閲戣瀺","f62":127622208.0},{"f12":"BK1017","f13":90,"f14":"閲囨帢琛屼笟","f62":117527985.0},{"f12":"BK0479","f13":90,"f14":"閽㈤搧琛屼笟","f62":97413648.0},{"f12":"BK0451","f13":90,"f14":"鎴垮湴浜у紑鍙?,"f62":93717648.0},{"f12":"BK1034","f13":90,"f14":"鐢垫簮璁惧��","f62":81797077.0},{"f12":"BK0421","f13":90,"f14":"閾佽矾鍏�璺�","f62":46991573.0},{"f12":"BK0429","f13":90,"f14":"浜よ繍璁惧��","f62":43813536.0},{"f12":"BK0437","f13":90,"f14":"鐓ょ偔琛屼笟","f62":39505472.0},{"f12":"BK0440","f13":90,"f14":"瀹剁敤杞诲伐","f62":31970402.0},{"f12":"BK0428","f13":90,"f14":"鐢靛姏琛屼笟","f62":30950944.0},{"f12":"BK1037","f13":90,"f14":"娑堣垂鐢靛瓙","f62":30622944.0},{"f12":"BK0733","f13":90,"f14":"鍖呰�呮潗鏂�","f62":26151652.0},{"f12":"BK0436","f13":90,"f14":"绾虹粐鏈嶈��","f62":15647242.0},{"f12":"BK1016","f13":90,"f14":"姹借溅鏈嶅姟","f62":14022267.0},{"f12":"BK1018","f13":90,"f14":"姗¤兌鍒跺搧","f62":8745927.0},{"f12":"BK1042","f13":90,"f14":"鍖昏嵂鍟嗕笟","f62":3261199.0},{"f12":"BK0725","f13":90,"f14":"瑁呬慨瑁呴グ","f62":1645515.0},{"f12":"BK0476","f13":90,"f14":"瑁呬慨寤烘潗","f62":1403083.0},{"f12":"BK0471","f13":90,"f14":"鍖栫氦琛屼笟","f62":-4593000.0},{"f12":"BK0734","f13":90,"f14":"鐝犲疂棣栭グ","f62":-12825269.0},{"f12":"BK0474","f13":90,"f14":"淇濋櫓","f62":-20082784.0},{"f12":"BK0484","f13":90,"f14":"璐告槗琛屼笟","f62":-22443794.0},{"f12":"BK1045","f13":90,"f14":"鎴垮湴浜ф湇鍔?,"f62":-22893600.0},{"f12":"BK0732","f13":90,"f14":"璐甸噾灞?,"f62":-34145984.0},{"f12":"BK0420","f13":90,"f14":"鑸�绌烘満鍦�","f62":-38193193.0},{"f12":"BK0481","f13":90,"f14":"姹借溅闆堕儴浠?,"f62":-38967392.0},{"f12":"BK1028","f13":90,"f14":"鐕冩皵","f62":-38999617.0},{"f12":"BK0546","f13":90,"f14":"鐜荤拑鐜荤氦","f62":-39186384.0},{"f12":"BK0726","f13":90,"f14":"宸ョ▼鍜ㄨ�㈡湇鍔�","f62":-44821954.0},{"f12":"BK0729","f13":90,"f14":"鑸硅埗鍒堕

天宇130

gwjkkkkk 发表于 2023-3-15 15:59
应该编码问题，发个文本上来看看

这个是网上原始的

wanao2008

希望能够帮助到你：

1. Sub byWanao()
   
2.     Dim hy As String
   
3.     hy = "https://push2.eastmoney.com/api/qt/clist/get?cb=jQuery11230018089261244591537_1678845867970&pn=1&pz=500&po=1&np=1&fields=f12%2Cf13%2Cf14%2Cf62&fid=f62&fs=m%3A90%2Bt%3A2&ut=b2884a393a59ad64002292a3e90d46a5&_=1678845867971"
   
4. 
   
5.     With CreateObject("MSXML2.XMLHTTP")
   
6.         .Open "GET", hy, False
   
7.         .Send
   
8.         Range("A5") = .responsetext
   
9.     End With
   
10. End Sub

复制代码

gwjkkkkk

你这个应该是网抓吧。。。
参考
https://club.excelhome.net/forum ... amp;_dsign=6cadc556

wanghan519

试了一圈，大概是网站返回的是utf-8，excel当成gbk显示
而querytables真是没找到在哪设置编码，论坛里最常见的是用httprequest抓，用adodb stream转编码，用htmlfile解析json

总之，就是excel需要utf-8转gbk

天宇130

wanao2008 发表于 2023-3-15 20:12
希望能够帮助到你：

问题已解决，谢谢老师！

天宇130

wanghan519 发表于 2023-3-16 04:37
试了一圈，大概是网站返回的是utf-8，excel当成gbk显示
而querytables真是没找到在哪设置编码，论坛里最常 ...

谢谢老师！