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

Linked Server....

Well today, I started the fun filled adventure of managing data from/to a LinkedServer. During this learning curve, I found plenty of information about how to query from and instert into a Linked server but most of them utilized the OpenQuery  TSQL Statement to operate. One failure of the concepts is to use the inline statement to access the Linked Server. In my situation, i was linking to a MySQL database offsite.  Below you will find the MSSQL statement patterns to used when utilizing query statements against the Linked Server. Select: 1: Select {cols} 2: From {LinkedServer}...{table} 3: [Conditions] Insert: 1: Insert Into {LinkedServer}...{table} [cols,...] 2: Values ([cols,...]) There are more commands you can use but the point is that the developer/dba is utilizing only the 'server' and 'table' portions of the source information.  This being, as described by Microsoft, as ' {server}.{database}.{schema}.{table} ' is simply ' ...
Read more

TSQL - String Concatenation

On current project, I ran into a scenario where I needed to concatenate a series of rows into a single string value.  Nothing major, just concatenate them with a delimiter and return the result.  As all of us Microsoft SQL developer's know and deal with is the lack of a SQL supported function that is able to assist us in this "minor" feature. As this is my knowledge dump for techniques and other methods used for the various platforms, here we go: Construct: The first step is to identify what information you want, the basic's of query design.   SELECT Email FROM Contacts Group By Email Group by is conditional, depending on your situation and how you organize your referential integrity. Stage Next, lets build our environment, not the SProc just the supporting actors in the process. declare @email varchar(max) = '' SELECT @email += Email + ', ' FROM Contacts Group By Email This simply concatenates each of ...
Read more