Tag: json

从最后一个JSON对象获取值

在VBA中,我使用下面的JSON转换器https://github.com/VBA-tools/VBA-JSONparsing简单的JSON响应。 不过,我有一个JSON响应,有多个对象,我希望我的代码总是在最后一个(即更新的)对象的值。 这是我的JSON: [ { "masterDataID": 26941, "testRunID": 66929 }, { "masterDataID": 26941, "testRunID": 67485 }, { "masterDataID": 26941, "testRunID": 67926 } ] 正如你所看到的,对象没有明显的名字,所以我不得不用数字来表示它们。 这是我的代码: Public Sub GETID() Dim http As Object, JSON As Object, i As Integer Dim URL As String URL = Range("B3") Set http = CreateObject("MSXML2.XMLHTTP") http.Open "GET", URL, False http.send Set […]

错误parsingjson excel vba

我从这里使用jsonConverter.bas文件https://github.com/VBA-tools/VBA-JSON 。 当parsingjson文件时,大部分文件都被成功的parsing了,但是有一个文件返回Error Parsing JSON 。 这里是json文件,如果有人感兴趣: http ://s000.tinyupload.com/index.php?file_id=45560953732509718973 parsingJSON时出错:{“star”期待'{'或'[' 随着JsonConverter.bas文件我使用下面的子: Option Explicit Dim myPath As String, myFile As String Dim myExtension As String Dim FldrPicker As FileDialog Dim fD As Long, fColD As Long Dim cet Sub getDataFromJSON() Application.ScreenUpdating = False: Application.EnableEvents = False: Application.Calculation = xlCalculationManual Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With FldrPicker .Title […]

Google Spreadsheet转换为JSON格式

Excel文件 这是一个链接 假设我有Google Spreadsheet (Google Doc)。 我怎么能提取这些元素,并把它放在一个JSON格式? 我想获得 { test1: { element1: price1, element2: price2, element3: price3, }, test2: { anotherele1: anotherprice1, anotherele2: anotherprice2, anotherele3: anotherprice3, }, test3: { aaa: 111, bbb: 345, ccc: 678, }, } 实际上,我希望我的代码能够检测到这种types的结构,在这种JSON结构下重新格式化它。 我怎么能用我迄今为止所做的工作在JavaScript做这样的事情? var SPREADSHEET_URL = "https://drive.google.com/file/d/1EYUQ-6zXfK2_kxMMbgjlOW0KXJRc-ejD/view"; var spreadsheet = SpreadsheetApp.openByUrl(SPREADSHEET_URL); var sheet = spreadsheet.getSheetByName('Sheet 1'); var data = […]

将excelinput转换成json

我想在Excel中提取一个带有以下input的json文件。 要做到这一点,我有一个代码如下(在VBA中): Public Sub ExceltoJson() Dim rng As Range, items As New Collection, myitem As New Dictionary, i As Integer, cell Set rng = Range("A1:A3") i = 0 For Each cell In rng Debug.Print (cell.Value) myitem("CurrentPromo") = cell.Offset(1, 0).Value myitem("StartDateCP") = cell.Offset(2, 0).Value myitem("EndDateCP") = cell.Offset(3, 0).Value Set myitem = Nothing i = i + […]

如何从xls文件生成xml或json映射,然后从该映射生成html表(结构)?

我需要读取一个xls文件并从中生成一个映射。 我的xls文件是结构化和格式化的(例如:像一个报告)。 映射可以是任何forms,如JSON或xml 。 从映射我的意思是所有细胞的信息(他们正在存储什么types的信息)。 一旦生成映射,那么我必须从生成的映射创build一个html结构说表。 请提出一些build议。 我可以使用任何Excel Java API。

JSON到CSV:如何在最终的Excel表中添加filter(列)?

首先,如果我的描述对你来说不够准确,我表示歉意,我是一个新手,我不知道有关编程的事情,所以不要犹豫告诉我,如果你需要更详细的信息,但我会尝试尽可能精确。 所以我已经下载了一堆鸣叫感谢Twitter的API和terminal(通过Twurl)。 所有的推文都在一个.json文件中(我用TextWrangler打开,我在Mac上),而且当我将.json文件导出到一个.csv文件,以便更容易地处理和分析数据时感谢Excel(或者至less是LibreOffice的Excel版本),我没有所需要的所有参数,我缺less.json文件中每个Tweet信息的“bio”部分。 换句话说,在我的决赛桌上,我有一个推特ID的列,一个是推特作者,一个是推特本身的文字,等等。但是我没有列的生物微博作者,而这个信息显示在.json文件本身。 所以我的问题是:是否有一个代码或任何东西,使我有一个更多的列显示一些更多的信息存在于我最后的.csv表中的基本.json文件? 再次,这可能不明确,所以不要犹豫,告诉我,如果你需要我突出一个具体点。 感谢任何见解,我真的需要帮助,这是一个研究项目,我需要继续为我的博士,所以任何帮助将不只是欢迎! 编辑:作为一个例子,这里是我的原始.json文件中的一条推文的数据示例: { "created_at": "Mon Apr 28 09:00:40 +0000 2014", "id": 460705144846712800, "id_str": "460705144846712832", "text": "Work can suck a dick today", "source": "<a href=\"http://twitter.com/download/iphone\" rel=\"nofollow\">Twitter for iPhone</a>", "truncated": false, "in_reply_to_status_id": null, "in_reply_to_status_id_str": null, "in_reply_to_user_id": null, "in_reply_to_user_id_str": null, "in_reply_to_screen_name": null, "user": { "id": 253350311, "id_str": "253350311", "name": "JEEEZUS", "screen_name": "Maxi_Flex", […]

Excel VBA提取值JSON URL

在Excel中 我试图提取这个值“45.33887499999999” 通过此Googleurl“ https://maps.googleapis.com/maps/api/geocode/json?address=bojon ” (例如Google URL + “= bojon”或+ “= VENICE%20BEACH%20CA”) 用这个VBA代码: Public Function LATITUDE(coord As String) Dim firstVal As String firstVal = "https://maps.googleapis.com/maps/api/geocode/json?address=" Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP") URL = firstVal & Replace(coord, " ", "+") objHTTP.Open "GET", URL, False objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send ("") If InStr(objHTTP.responseText, """location"" […]

发送JSON对象作为POST请求

我试图从Excel中的VBA应用程序发送JSON对象。 下面的代码正确地发送请求,但是我不知道如何使用正文中的JSON对象进行请求。 Sub Post() Set objHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") URL = "http://localhost:3000/test" objHTTP.Open "POST", URL, False objHTTP.setRequestHeader "Content-type", "application/x-www-form- urlencoded" objHTTP.setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)" objHTTP.send ("test=6") End Sub 如果我尝试发送“{test:6,test2:7}”并在服务器上logging请求正文,我得到{'{parts:6,test:7}':'}}

如何从嵌套/交错的Excel对象获取值 – 来自json的数据

我已经尝试了许多JSON加载项的Excel,但我没有运气parsing下面的JSON数据。 最后我设法使用下面的代码 Sub jsonDecode() Dim jsonDecode As Variant jsonText = Worksheets("Sheet3").Range("A1").Value Set sc = CreateObject("ScriptControl"): sc.Language = "JScript" Set jsonDecode = sc.Eval("(" + jsonText + ")") End Sub 创build一个交错的对象,但不能访问下面的图像中的值。 我已经尝试了以下 msgbox(jsonDecode.location.id) msgbox(tostring(jsonDecode.location.id)) msgbox(jsonDecode(location(id))) 任何帮助将非常感激的代码获取标记为A和B在下面的图像中的值:)如果我的术语有点歪曲,请原谅我 干杯!! Excel本地窗口中数组树的图像 JSON文本是 {“location”:{“id”:2456,“name”:“Tuggerah”,“region”:“中央海岸”,“州”,“NSW”,“邮编”:“2259”,“timeZone”澳大利亚/悉尼 “ ”LAT“: – 33.30701, ”LNG“:151.4159, ”TYPEID“:1}, ”预测“:{ ”天气“:{ ”天“:[{ ”date时间“:” 2016-09- 13 00:00:00“,”条目“:[{”dateTime“:”2016-09-13 00:00:00“,”precisCode“:”阵雨“,”precis“:”晚雨“ “precisOverlayCode”: “”, “夜”:假, […]

多个jsons到csv

我有多个文件,每个文件包含多个高度嵌套的json 行 。 一个这样的文件的两个第一行看起来像: { "u":"28", "evv":{ "w":{ "1":400, "2":{ "i":[{ "l":14, "c":"7", "p":"4" } ] } } } } { "u":"29", "evv":{ "w":{ "3":400, "2":{ "i":[{ "c":14, "y":"7", "z":"4" } ] } } } } 他们实际上是行,我只是这样写在这里更多的可见性。 我的问题如下: 有没有办法将所有这些文件转换为一个(或多个,即每个文件一个)csv / excel …? 有什么简单的方法,不需要写几十或数百行Python,特定于我的文件,将所有这些文件转换为一个(或多个,即每个文件一个)csv / excel …? 一个例子是使用外部库,脚本…处理这个特定的任务,不pipe字段的名称。 陷阱是一些元素不会出现在每一行中。 例如,对于“i”键,在第一个json中有3个字段(l,c,p),在第二个字段(c,y,z)中有3个字段。 理想情况下,csv应该包含尽可能多的列(例如evv.w.2.il,evv.w.2.ic,evv.w.2.ip,evv.w.2.iy,evv.w. 2.iz)每csv行有(很多)空值的风险。 本例中可能的csv输出将包含以下列: u, evv.w.1, evv.w.3, […]