Replies

Patt and John,

THANKS! ! ! Yes, you are able to “Add” multiple tables into the same XML file. Very sweet. I seem to always look for and find the hard way of doing things. That is why this is such a great place!

Thanks to both of you.

Ken

John,

I have read the kewl File info, and have started playing with the code. However, I need to dim the intOutFile. What type of variable should it be?

thanks!

Ken

I use the ExportXML command in VBA to create the two files. Is there a way to find a specific line in a text file using the File Input/Output you mention? If so, I could create the large xml file of data using the ExportXML, and then just insert the necessary 6 lines below into that file. But that assumes I can move around within the text file.

Code:

20110912
D_F110912
8630
v2.3

I will read the File I/O link and see what shakes.

Thanks!
Ken

Bender,

thanks. will try to get it to run in VB.NET, which I am brand new to.

Ken

Boyd,
THANKS ! ! What an excellent tool! I will give it a shot. It looks really well done.

Ken

Thanks for the information. I will research the third party libraries and see what works.
Thanks!

Rory,

Thanks for your help.  I don’t know what I would do without help from the experts on the boards.

I will post when I figure it out the final disposition.  

Ken

Actually, this is an Access database that creates the spreadsheet, then via VBA creates the pivot table.  So initially, there is only the tab with the data, and the pivot table gets created to an added sheet/tab.

Rory,

Thanks for asking.  The values for Final Row and FinalCol are 85 and 28 respectively.

Ken

Wendell,

Thanks for the note.  I am just trying to “clean up” some inconsistent naming conventions in a some Access tables prior to upsizing the tables to SQL Server.  I will be creating queries, forms, reports and SQL views once moved to SQL Server.

Thanks for continuing to serve us neophytes by sharing your knowledge.

Ken 

Awesome Andrew!  I am going to use the loop through the fields approach. 

THANKS!

Ken

Thanks!  Using your suggestion I came up with:

Dim strPath As String

strPath = Application.CurrentDb.Name
If UCase(Right(strPath, 3)) = “MDB” Then
     MsgBox “This is an MDB.”
     Else
     If UCase(Right(strPath, 3)) = “MDE” Then 
         MsgBox “This is an MDE.”
     Else
          MsgBox “Unknown Database Format”
     End If
End If

And it accomplished my goal.

Thanks again!

Ken

Wendell,

Thanks for the followup.  Yes, there is VBA Code.   I have 7 references in the VBA project, and all appear to be there.  For the sake of expediency I added a module in VB to update the field using the ‘Left([Field4],3) & Mid([Field4],5,2) & Right([Field4],4)’ and looping through the recordset. 

Very strange.  FYI I am using Access 2003 SP3.

Thanks again.

Ken

Wendell,

Thanks for the followup.  Yes, there is VBA Code.   I have 7 references in the VBA project, and all appear to be there.  For the sake of expediency I added a module in VB to update the field using the ‘Left([Field4],3) & Mid([Field4],5,2) & Right([Field4],4)’ and looping through the recordset. 

Very strange.  FYI I am using Access 2003 SP3.

Thanks again.

Ken

Wendell,

Thanks for the followup.  Yes, there is VBA Code.   I have 7 references in the VBA project, and all appear to be there.  For the sake of expediency I added a module in VB to update the field using the ‘Left([Field4],3) & Mid([Field4],5,2) & Right([Field4],4)’ and looping through the recordset. 

Very strange.  FYI I am using Access 2003 SP3.

Thanks again.

Ken