How to Convert Excel Data to JSON Using VBA

[enricorm]

Thanks Eric, your code developed in VBA was very useful, with small changes I was able to adapt it to my needs (SQL Server). Thank you with all my heart. Greetings from Rome . 💪🏻💻👍🏻

[cryptomaniac]

Dang, mayn. What happened? 2 vid, and this one is from 2017?! I'mma subscribe, just in case you keep em comin. Figures that the only vid I've come across with what I looked for was from someone not even trippin off makin more vids.

[mariodinoia]

Hi Eric

For the GetValuesRange Function Try This

Function GetValuesRange(Sheet as String) As Range
GetValuesRange =
End Function

[lotsbg]

This works great, however I have a 450 row and 3 columns to export to json, and it uses more than the 32676 characters allowed in each cell. Anyway to have it export in a text file or something instead?

[kasab]

Thank you Eric. This tutorial has been very helpful for my interview. I’m very grateful.

[Pseudo___]

yeah but now do some more complexity, linked tables/lists, arrays of objects in objects in objects, or dont quote numerics or booleans and further syntax changes to simplify possible user input in the table(ie merges/ prefix/suffix/ ect)

[padynz]

Very lucid explanation, Eric. Really appreciate the content and thanks for providing the code.

[ramakantjoshi]

Excellent Eric. I appreciate your teaching skill while coding. God Bless you.

[rachanaa]

This is excellent detailed explanation...thanks!

[SevenCinematics]

I can't open the .xlsm file. Tried it on two different computers, it gives me the following error:
Excel cannot open the file 'Excellent JSON.xlsm' because the file or file extension is not valid. Verify that the file has not been corrupted and that the file extension matches the format of the file. Do you have any idea what is wrong?

[johnpeake]

Thanks Eric...I like your code and thanks for sharing it. I just wanted to let you know that I changed the getValuesRange function because I have a cleaner way to get this same range. It is a little hard coded in terms on columns which for my work is fine but I thought that I would share it with your. Thanks:


Function getValuesRange2(sheet As String, StartingCell As String) As Range
' Row variables
Dim rngStart As Range
Dim rngWholeRange As Range

With ThisWorkbook.Sheets(sheet)
Set rngStart = .Range(StartingCell)
Set getValuesRange2 = .Range(StartingCell, .Range(StartingCell).End(xlDown).Cells(1, 9))
End With

End Function

[stefanogattoCH]

Very good! Very clear! Very simply explained! Thank you! What about reading data from a JSON string and store it in a Range?

[johndoe-ijxf]

I have an excel with more than 300 row and it is parsing half of it, can someone help me?

[tarunprakashsingh]

do you have any examples in case i have to create a nested json. { xxxx:xxx, "yyy":[ { "aaa": "aaa", "bbb":"bbb"}], "nnn":"nnn"} somthing like this.... really in need for something like this asap

[kuwaitkarate]

Thank you Eric, you saved me :), what if i have more than 1 sheet in same workbook how can i get all sheets in one button and in same cell ?

[mississippitoxicity]

thanks a lot eric but im getting an overflow error.
In my case i have 153.972 rows and 40 columns and all are numbers instead of names besides the first row.
How can i fix this? much appreciated...

[patrickdanielmanalo]

Is there a row and column limit in this? Because I tried it but not able to convert everything to .json (ps. I have like more than a thousand rows and just 6 columns)

[snehabalakrishnan]

Im getting 1004 error ..can u share the code as such?

[prernasingh]

Hey Eric, Thanks, this tutorial was very helpful Can you also post a video of doing a reverse action? I want to convert the JSON data to excel and cannot find a good tutorial for it. Thanks

[Monphyow]

If there is integer, how to add integer column without using " " . Thank you.