Re: $$Excel-Macros$$ Need new Workbook create using Macros
Dear Kapil, Please see the attached. This will create workbooks, paste filtered data and save them as per the name column (Col G). *Keep in mind the following:* a) The new excel files will be created in the same folder* where you have saved this file*. So, when you download this, save it in a folder where you can locate it. b) If destination files are already in that folder (means if you have run the macro once), *the code will NOT overwrite them*. You will have to *remove the files manually* before you re-run the macro, else there will be errors. Hope this helps. Abhishek On Mon, Apr 21, 2014 at 8:48 PM, kapil Gupta kgupt2...@gmail.com wrote: Hi, Kindly solve this query. 1. I have attached one sheet all data in sheet according by name 2 need create new workbook using macros according by name wise.. Means Name is A then should be Create workbook A and other is B then create other workbook Name is B. and data also Assign in name sheet. I have attached the example Regards, Kapil -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. ramesh Work as per Name.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
$$Excel-Macros$$ Convert JSON to VBA array
Hello Experts, I need your help, I need to convert Json(output return from webservice) to Array. following is json output [[A,string,0,NULL],[B,string,0,NULL],[C,string,0,NULL],[D,string,0,NULL],[E,string,0,isemail],[F,string,0,ismobile],[G,string,0,NULL],[H,string,0,NULL],[I,string,0,isgender],[J,string,0,NULL],[K,string,0,NULL],[L,string,0,NULL],[M,string,0,NULL],[N,string,0,NULL],[O,string,0,NULL],[P,string,0,NULL],[Q,string,0,NULL],[R,string,0,NULL],[S,string,0,NULL],[T,string,0,NULL],[U,string,0,NULL],[V,string,0,NULL],[W,string,0,NULL],[X,string,0,NULL],[Y,string,0,NULL],[Z,string,0,NULL] ] -- Thanks and Regards, Rp. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
RE: $$Excel-Macros$$ Need new Workbook create using Macros
Pfa,…first click on button and then select where u want to save file. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of kapil Gupta Sent: Monday, April 21, 2014 8:48 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Need new Workbook create using Macros Hi, Kindly solve this query. 1. I have attached one sheet all data in sheet according by name 2 need create new workbook using macros according by name wise.. Means Name is A then should be Create workbook A and other is B then create other workbook Name is B. and data also Assign in name sheet. I have attached the example Regards, Kapil -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. ramesh Work as per Name.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: $$Excel-Macros$$ Need new Workbook create using Macros
Hi Gupta, Please find the attachment. Thanks Regards, Ganesh N On Tue, Apr 22, 2014 at 11:43 AM, Ravinder ravinderexcelgr...@gmail.comwrote: Pfa,…first click on button and then select where u want to save file. *From:* excel-macros@googlegroups.com [mailto: excel-macros@googlegroups.com] *On Behalf Of *kapil Gupta *Sent:* Monday, April 21, 2014 8:48 PM *To:* excel-macros@googlegroups.com *Subject:* $$Excel-Macros$$ Need new Workbook create using Macros Hi, Kindly solve this query. 1. I have attached one sheet all data in sheet according by name 2 need create new workbook using macros according by name wise.. Means Name is A then should be Create workbook A and other is B then create other workbook Name is B. and data also Assign in name sheet. I have attached the example Regards, Kapil -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. ramesh Work as per Name.xlsm Description: application/vnd.ms-excel.sheet.macroenabled.12
Re: $$Excel-Macros$$ Need new Workbook create using Macros
Hi Ravinder sir, Can you please explain about the collections and below line of code how it works ? Becoz im not familiar with collections For i = 2 To ws.Range(g1).End(xlDown).Row col.Add ws.Range(g i), CStr(ws.Range(g i)) Thanks Regards, Ganesh N On Tue, Apr 22, 2014 at 11:52 AM, Ganesh N ganeshg...@gmail.com wrote: Hi Gupta, Please find the attachment. Thanks Regards, Ganesh N On Tue, Apr 22, 2014 at 11:43 AM, Ravinder ravinderexcelgr...@gmail.comwrote: Pfa,…first click on button and then select where u want to save file. *From:* excel-macros@googlegroups.com [mailto: excel-macros@googlegroups.com] *On Behalf Of *kapil Gupta *Sent:* Monday, April 21, 2014 8:48 PM *To:* excel-macros@googlegroups.com *Subject:* $$Excel-Macros$$ Need new Workbook create using Macros Hi, Kindly solve this query. 1. I have attached one sheet all data in sheet according by name 2 need create new workbook using macros according by name wise.. Means Name is A then should be Create workbook A and other is B then create other workbook Name is B. and data also Assign in name sheet. I have attached the example Regards, Kapil -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
RE: $$Excel-Macros$$ Need new Workbook create using Macros
Actually collection it’s just like an array you can store values in collection object and there is a feature to give name of store value (position) and it takes only unique names (name of element should not be duplicate otherwise it will hit error. See below Sub colexample() Dim coll as new collection For i=1 to 5 Coll.add value,keyname End sub Above procedure will put values 1 to 5 in collection with its name like {1,”1”,2,”2”,3,”3”,4,”4”,5,”5”} First is value and second its name. Note:=Name will be always Unique and character From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of Ganesh N Sent: Tuesday, April 22, 2014 12:02 PM To: excel-macros@googlegroups.com Subject: Re: $$Excel-Macros$$ Need new Workbook create using Macros Hi Ravinder sir, Can you please explain about the collections and below line of code how it works ? Becoz im not familiar with collections For i = 2 To ws.Range(g1).End(xlDown).Row col.Add ws.Range(g i), CStr(ws.Range(g i)) Thanks Regards, Ganesh N On Tue, Apr 22, 2014 at 11:52 AM, Ganesh N ganeshg...@gmail.com wrote: Hi Gupta, Please find the attachment. Thanks Regards, Ganesh N On Tue, Apr 22, 2014 at 11:43 AM, Ravinder ravinderexcelgr...@gmail.com wrote: Pfa,…first click on button and then select where u want to save file. From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com] On Behalf Of kapil Gupta Sent: Monday, April 21, 2014 8:48 PM To: excel-macros@googlegroups.com Subject: $$Excel-Macros$$ Need new Workbook create using Macros Hi, Kindly solve this query. 1. I have attached one sheet all data in sheet according by name 2 need create new workbook using macros according by name wise.. Means Name is A then should be Create workbook A and other is B then create other workbook Name is B. and data also Assign in name sheet. I have attached the example Regards, Kapil -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4)
Re: $$Excel-Macros$$ Re: DATE Conversion - Gregorian to Hijri
Hi Mahmoud, I wonder if you would let me have your Gregorian to Hijri *Shamsi*convertor as well. Also, Please help me how to convert Hijri Shamsi to Gregorian. Thank you in advance; Mahdi, On Friday, August 30, 2013 8:25:36 PM UTC+4:30, mahmoud aqajari wrote: Hi Ahmad Iam Mahmoud,Ihave a converter gregorian to hijri shamsi.if you need this tell me. On Wed, Aug 14, 2013 at 2:15 AM, hansel jose hanse...@gmail.comjavascript: wrote: Pls try with this file . It will convert Hijri date to Gregorian date format. Hansel On Tuesday, September 25, 2012 1:58:02 PM UTC+4, kothakota wrote: Dear All, Please find attach the Raw Data sheet from which I need to convert a Gregorian Date to a Hijri Date and pull out the Day, Month, Year from the Hijri Date. Any help on this will be appreciated. Thanks, -- Ahmed Bawazir *احمد باوزير* -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros...@googlegroups.com javascript:. To post to this group, send email to excel-...@googlegroups.comjavascript: . Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/groups/opt_out. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ Convert JSON to VBA array
I would probably split the array and do something like: Sub json_2_Array() Dim Array1, Array2, sArray Dim inx1, inx2, i Dim jSon jSon = [[A,string,0,NULL],[B,string,0,NULL],[C,string,0,NULL],[D,string,0,NULL],[E,string,0,isemail],[F,string,0,ismobile],[G,string,0,NULL],[H,string,0,NULL],[I,string,0,isgender],[J,string,0,NULL],[K,string,0,NULL],[L,string,0,NULL],[M,string,0,NULL],[N,string,0,NULL],[O,string,0,NULL],[P,string,0,NULL],[Q,string,0,NULL],[R,string,0,NULL],[S,string,0,NULL],[T,string,0,NULL],[U,string,0,NULL],[V,string,0,NULL],[W,string,0,NULL],[X,string,0,NULL],[Y,string,0,NULL],[Z,string,0,NULL]] Array1 = Split(jSon, [) ReDim sArray(UBound(Array1), 3) For inx1 = 0 To UBound(Array1) Array2 = Split(Replace(Replace(Array1(inx1), ],, ), ], ), ,) For inx2 = 0 To UBound(Array2) sArray(inx1, inx2) = Replace(Array2(inx2), , ) Next inx2 Next inx1 Debug.Assert False End Sub Paul - “Do all the good you can, By all the means you can, In all the ways you can, In all the places you can, At all the times you can, To all the people you can, As long as ever you can.” - John Wesley - From: Rupesh Patil patil.rupesh1...@gmail.com To: excel-macros@googlegroups.com Sent: Tuesday, April 22, 2014 2:06 AM Subject: $$Excel-Macros$$ Convert JSON to VBA array Hello Experts, I need your help, I need to convert Json(output return from webservice) to Array. following is json output [[A,string,0,NULL],[B,string,0,NULL],[C,string,0,NULL],[D,string,0,NULL],[E,string,0,isemail],[F,string,0,ismobile],[G,string,0,NULL],[H,string,0,NULL],[I,string,0,isgender],[J,string,0,NULL],[K,string,0,NULL],[L,string,0,NULL],[M,string,0,NULL],[N,string,0,NULL],[O,string,0,NULL],[P,string,0,NULL],[Q,string,0,NULL],[R,string,0,NULL],[S,string,0,NULL],[T,string,0,NULL],[U,string,0,NULL],[V,string,0,NULL],[W,string,0,NULL],[X,string,0,NULL],[Y,string,0,NULL],[Z,string,0,NULL]] -- Thanks and Regards, Rp. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout.
Re: $$Excel-Macros$$ Convert JSON to VBA array
*thanks Paul, really appreciate * On Tue, Apr 22, 2014 at 4:59 PM, Paul Schreiner schreiner_p...@att.netwrote: I would probably split the array and do something like: Sub json_2_Array() Dim Array1, Array2, sArray Dim inx1, inx2, i Dim jSon jSon = [[A,string,0,NULL],[B,string,0,NULL],[C,string,0,NULL],[D,string,0,NULL],[E,string,0,isemail],[F,string,0,ismobile],[G,string,0,NULL],[H,string,0,NULL],[I,string,0,isgender],[J,string,0,NULL],[K,string,0,NULL],[L,string,0,NULL],[M,string,0,NULL],[N,string,0,NULL],[O,string,0,NULL],[P,string,0,NULL],[Q,string,0,NULL],[R,string,0,NULL],[S,string,0,NULL],[T,string,0,NULL],[U,string,0,NULL],[V,string,0,NULL],[W,string,0,NULL],[X,string,0,NULL],[Y,string,0,NULL],[Z,string,0,NULL]] Array1 = Split(jSon, [) ReDim sArray(UBound(Array1), 3) For inx1 = 0 To UBound(Array1) Array2 = Split(Replace(Replace(Array1(inx1), ],, ), ], ), ,) For inx2 = 0 To UBound(Array2) sArray(inx1, inx2) = Replace(Array2(inx2), , ) Next inx2 Next inx1 Debug.Assert False End Sub *Paul* - *“Do all the good you can,By all the means you can,In all the ways you can,In all the places you can,At all the times you can,To all the people you can,As long as ever you can.” - John Wesley* - *From:* Rupesh Patil patil.rupesh1...@gmail.com *To:* excel-macros@googlegroups.com *Sent:* Tuesday, April 22, 2014 2:06 AM *Subject:* $$Excel-Macros$$ Convert JSON to VBA array Hello Experts, I need your help, I need to convert Json(output return from webservice) to Array. following is json output [[A,string,0,NULL],[B,string,0,NULL],[C,string,0,NULL],[D,string,0,NULL],[E,string,0,isemail],[F,string,0,ismobile],[G,string,0,NULL],[H,string,0,NULL],[I,string,0,isgender],[J,string,0,NULL],[K,string,0,NULL],[L,string,0,NULL],[M,string,0,NULL],[N,string,0,NULL],[O,string,0,NULL],[P,string,0,NULL],[Q,string,0,NULL],[R,string,0,NULL],[S,string,0,NULL],[T,string,0,NULL],[U,string,0,NULL],[V,string,0,NULL],[W,string,0,NULL],[X,string,0,NULL],[Y,string,0,NULL],[Z,string,0,NULL] ] -- Thanks and Regards, Rp. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get quick attention or may not be answered. 2) Don't post a question in the thread of another member. 3) Don't post questions regarding breaking or bypassing any security measure. 4) Acknowledge the responses you receive, good or bad. 5) Jobs posting is not allowed. 6) Sharing copyrighted material and their links is not allowed. NOTE : Don't ever post confidential data in a workbook. Forum owners and members are not responsible for any loss. --- You received this message because you are subscribed to the Google Groups MS EXCEL AND VBA MACROS group. To unsubscribe from this group and stop receiving emails from it, send an email to excel-macros+unsubscr...@googlegroups.com. To post to this group, send email to excel-macros@googlegroups.com. Visit this group at http://groups.google.com/group/excel-macros. For more options, visit https://groups.google.com/d/optout. -- Thanks and Regards, Rp. -- Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s =TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES 1) Use concise, accurate thread titles.