Iterating through Workbook Tables

Nothing special just want to put a culmination of information available out there into one useful code-snippet

1:  Dim wb As Workbook  
2:  Set wb = ActiveWorkbook  
3:  Dim ws As Worksheet  
4:  Dim lo As ListObject  
5:  Dim lc As ListColumn  
6:  Dim lr As ListRow  
7:  Dim frm As New frmListRanges  
8:  Dim txt As String  
9:    
10:  For Each ws In wb.Worksheets  
11:     For Each lo In ws.ListObjects  
12:        txt = ""  
13:        For Each lr In lo.ListRows  
14:           txt = "{ "  
15:           For Each lc In lo.ListColumns  
16:              txt = txt & " " & CStr(lo.DataBodyRange.Cells(lr.Index, lc.Index).Value) & ","  
17:           Next lc  
18:           Trim (txt)  
19:           If StrComp(Right(txt, 0), ",", vbTextCompare) Then  
20:              txt = Left(txt, Len(txt) - 1)  
21:           End If  
22:           txt = txt & " }"  
23:           frm.AddNamedRange ("WS: " & ws.Name & " - LO: " & lo.Name & " " & txt)  
24:        Next lr  
25:     Next lo  
26:  Next ws  
27:    
28:  frm.Show

Comments

Post a Comment

Popular posts from this blog

SysInternals - BgInfo for ALL Users

Image
I have seen various sites that have been pretty good at getting close to the point of getting Background Information created by the tool BgInfo but none of them have actually solved my specific problem. Solutions currently out there include: Placing into the "All Users" folder This did not work for me, as our implementation does not contain an "All Users" folder in the "Users" folder for profiles. Reg-Hacking and HKCU or HKLM entry This is the worst of all the bad choices available.  I am experienced with Registry Editing and I still would not want or find a need to do this. Placing into the "Default" folder This is good going forward but what about those 20+ user profiles that are already logged in.  FYI, if your server has 20+ user account profiles in the "Users" directory you have larger problems than I am willing to assist with in this posting. The solution that worked for me, will be described below in pain-staki
Read more

JSON/AJAX Helpers

Recently, had an implementation where I needed to implement ASP.Net Web API 2 and accompanied it with Javascript/JQuery AJAX communication.  In doing this i found myself making the same pattern calls with some varying value for certain properties for the AJAX data calls.  As such, i ended up building a few helper functions to simply the inclusion of these various minor quirks based on what was needed.  Below  you will find the various forms. 1: /********************************************************************* 2: @type - dataType, such as 'json', 'xml', 'script', 'jsonp' or 'html' 3: @contentType - string value, represents the HTML type of content 4: IE: 'application/json; charset=utf-8' 5: @url - API URL, such as 'api/tasks' should be constrainted to the 6: Web API Controller 7: @success - Function(data, status, xhr) handler, The logic to execute 8: on a 200 res
Read more

Acquiring List of controls - Classic JS

Recently ran into a scenario where I need to use the low-level JavaScript parser, instead of JQuery.  During this venture, I ran across a situation where it would be easier for me to select all the HTML Elements with an ID, assign it to a variable as JSON, and then operate on it from that point. So using my previous short-hand experience with JQuery, I started constructing a similar type of format to be used. *********** JQuery *************** // One line and your done, pretty much var cntrls = $('[id]') // Later on, you simply access the element from the variable var val = cntrls['someID'].value *********** JavaScript *********** // Not so one-liner; put in the DOM.Ready event for JS var cntrlIDs = {} var root = document.getElementById('rootID').querySelectorAll('*'); for (i = 0, n = root.length; i < n; ++i) { var el = root[i]; if (el.id) { cntrlIDs[el.id] = el; } } // Later
Read more