Browsing Archive: August, 2009

Code Listing - Sheet Compiler

Posted by President Canadainc on Thursday, August 13, 2009, In : Code Listing

Public Sub copyAllcsvs(strBookName As String)

Dim strCSVfile As String

'this is necessary since the code is recursive until there is only the original workbook

If Windows.Count = 1 Then GoTo Done

'this takes it to any workbook but the main, essentially the next workbook

Windows.Item(1).ActivateNext

'this ensures the workbook name is not lost

strCSVfile = ActiveWorkbook.Name

'the next two lines select all the sheets and copy them to sheetCompiler.xls (to the end)

Workbooks(strCSVfile...

Posted by President Canadainc on Thursday, August 13, 2009, In : Auditting

Phase 1