Lines Matching refs:logWb
653 Dim logWb As WorkBook variable
654 Set logWb = xl.Workbooks.Open(resultsFilePath)
657 Set wsDocProp = logWb.Sheets(RID_STR_COMMON_RESULTS_SHEET_NAME_DOCPROP)
662 endRow = GetWorkbookNameValueAsLong(logWb, CTOTAL_DOCS_ANALYZED) + mDocPropRowOffset
670 If Not logWb Is Nothing Then logWb.Close
671 Set logWb = Nothing
814 Dim logWb As WorkBook variable
817 Set logWb = xl.Workbooks.Add(Template:=resultsTemplate)
818 Localize_WorkBook logWb
820 Set logWb = xl.Workbooks.Open(storeToDir & "\" & resultsFile)
823 SetupAnalysisResultsVariables logWb, offsetDocPropRow, _
843 Set wsOverview = logWb.Sheets(COVERVIEW_SHEET_IDX)
844 Set wsPgStats = logWb.Sheets(CDOCLIST_SHEET_IDX)
854 Set wsCosts = logWb.Sheets(CISSUES_ANALYSED_SHEET)
859 Set wsIssues = logWb.Worksheets(CWORD_ISSUES_SHEET)
861 Set wsIssues = logWb.Worksheets(CEXCEL_ISSUES_SHEET)
863 Set wsIssues = logWb.Worksheets(CPOWERPOINT_ISSUES_SHEET)
867 Set wsIssueDetails = logWb.Sheets(CISSUE_DETAILS_SHEET)
868 Set wsRefDetails = logWb.Sheets(CREFERENCE_ISSUES_SHEET)
876 Set wsWordIssues = logWb.Worksheets(CWORD_ISSUES_SHEET)
877 Set wsExcelIssues = logWb.Worksheets(CEXCEL_ISSUES_SHEET)
878 Set wsPowerPointIssues = logWb.Worksheets(CPOWERPOINT_ISSUES_SHEET)
901 … ProcessIssuesAndWriteDocIssueDetails(logWb, wsIssueDetails, issueDetailsRow, aAnalysis, fileName)
904 aAnalysis.MacroCosts = getMacroIssueCosts(logWb, aAnalysis)
907 ProcessIssuesForDAW logWb, aAnalysis, fileName
938 SaveAnalysisResultsVariables logWb, issueDetailsRow - (1 + CROWOFFSET), _
941 WriteOverview logWb, docCounts, templateCounts, macroClasses, issueClasses
943 SetupPAWResultsSpreadsheet logWb, fontName, textSize
944 WriteIssueCounts logWb
946 WriteOverview logWb, docCounts, templateCounts, macroClasses, issueClasses
949 SetupDAWResultsSpreadsheet logWb, fontName, textSize
953 SetupPrintRanges logWb, row, issuesRow, issueDetailsRow, refDetailsRow
961 logWb.SaveAs fileName:=storeToDir & "\" & resultsFile
980 If Not logWb Is Nothing Then logWb.Close
981 Set logWb = Nothing
1012 Sub WriteIssueCounts(logWb As WorkBook)
1036 logWb.Names(str1).RefersToRange.Cells(1, 1) = _
1037 logWb.Names(str1).RefersToRange.Cells(1, 1).value + vItemArray(count)
1045 AddVariantToWorkbookNameValue logWb, str1, vPrepItemArray(count)
1054 SetWorkbookNameValueToLong logWb, str1, mUserFormTypesDict.count
1065 WriteUserFromControlTypesComment logWb, str1, Str
1069 WriteUniqueModuleCount logWb
1080 Sub WriteUniqueModuleCount(logWb As WorkBook)
1105 SetWorkbookNameValueToLong logWb, strLabel, uniqueModuleCount
1111 SetWorkbookNameValueToLong logWb, strLabel, uniqueLineCount
1123 Sub WriteUserFromControlTypesComment(logWb As WorkBook, name As String, comment As String)
1129 logWb.Names(name).RefersToRange.Cells(1, 1).AddComment
1132 logWb.Names(name).RefersToRange.Cells(1, 1).comment.Text Text:=comment
1135 logWb.Names(name).RefersToRange.Cells(1, 1).comment.Visible = False
1356 Sub ProcessIssuesForDAW(logWb As WorkBook, aAnalysis As DocumentAnalysis, fileName As String)
1369 issueClass = getDocIssueClassification(logWb, myIssue)
1385 Function ProcessIssuesAndWriteDocIssueDetails(logWb As WorkBook, wsIssueDetails As Worksheet, Detai…
1405 issueClass = getDocIssueClassification(logWb, myIssue)
1408 issueCost = getDocIssueCost(logWb, aAnalysis, myIssue)
1435 Function getDocIssueCost(logWb As WorkBook, aAnalysis As DocumentAnalysis, myIssue As IssueInfo) As…
1446 … ret = getIssueValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, issueKey, 1, CCOST_COL_OFFSET)
1457 Function getMacroIssueCosts(logWb As WorkBook, aAnalysis As DocumentAnalysis) As Long
1459 …getMacroIssueCosts = getVBAMacroIssueCost(logWb, aAnalysis) '+ getMacroExtRefIssueCost(logWb, aAna…
1465 Function getVBAMacroIssueCost(logWb As WorkBook, aAnalysis As DocumentAnalysis) As Long
1492 getValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, _
1499 getValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, _
1506 getValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, _
1512 …ret = ret + aAnalysis.MacroNumUserFormControlTypes * getValueFromXLSorDict(logWb, aAnalysis, mIssu…
1526 Function getMacroExtRefIssueCost(logWb As WorkBook, aAnalysis As DocumentAnalysis) As Long
1543 getValueFromXLSorDict(logWb, aAnalysis, mIssuesCostDict, _
1556 Function getIssueValueFromXLSorDict(logWb As WorkBook, aAnalysis As DocumentAnalysis, dict As Scrip…
1559 … getIssueValueFromXLSorDict = getValueFromXLSorDict(logWb, aAnalysis, dict, key, key, row, column)
1562 Function getValueFromXLSorDict(logWb As WorkBook, aAnalysis As DocumentAnalysis, dict As Scripting.…
1575 ret = logWb.Names(xlsKey).RefersToRange.Cells(row, column).value
1626 Function getDocIssueClassification(logWb As WorkBook, myIssue As IssueInfo) As EnumDocOverallIssueC…
1640 bRet = logWb.Names(issueKey).RefersToRange.Cells(1, 0).value
2034 Sub WriteOverview(logWb As WorkBook, DocCount As DocumentCount, templateCount As DocumentCount, _
2065 SetWorkbookNameValueToString logWb, COVERVIEW_TITLE_LABEL, GetTitle
2066 SetWorkbookNameValueToVariant logWb, "AnalysisDate", Now
2067 SetWorkbookNameValueToString logWb, "AnalysisVersion", _
2071 … AddLongToWorkbookNameValue logWb, CNUMBERDOC_ALL & getAppSpecificDocExt, DocCount.numDocsAnalyzed
2072 …AddLongToWorkbookNameValue logWb, CNUMBERDOC_ALL & getAppSpecificTemplateExt, templateCount.numDoc…
2075 AddLongToWorkbookNameValue logWb, appName & "_" & COV_ISSUECLASS_COMPLEX, issueClasses.complex
2076 AddLongToWorkbookNameValue logWb, appName & "_" & COV_ISSUECLASS_MINOR, issueClasses.Minor
2077 AddLongToWorkbookNameValue logWb, appName & "_" & COV_ISSUECLASS_NONE, issueClasses.None
2080 AddLongToWorkbookNameValue logWb, appName & "_" & COV_MACROCLASS_COMPLEX, macroClasses.complex
2081 AddLongToWorkbookNameValue logWb, appName & "_" & COV_MACROCLASS_MEDIUM, macroClasses.Medium
2082 AddLongToWorkbookNameValue logWb, appName & "_" & COV_MACROCLASS_SIMPLE, macroClasses.Simple
2083 AddLongToWorkbookNameValue logWb, appName & "_" & COV_MACROCLASS_NONE, macroClasses.None
2089 SetWorkbookNameValueToLong logWb, COV_MODDATES_LESS3MONTHS, modDates.lessThanThreemonths
2090 SetWorkbookNameValueToLong logWb, COV_MODDATES_3TO6MONTHS, modDates.threeToSixmonths
2091 SetWorkbookNameValueToLong logWb, COV_MODDATES_6TO12MONTHS, modDates.sixToTwelvemonths
2092 SetWorkbookNameValueToLong logWb, COV_MODDATES_MORE12MONTHS, modDates.greaterThanOneYear
2097 AddLongToWorkbookNameValue logWb, appName & "_" & COV_ISSUECOUNT_COMPLEX, _
2099 AddLongToWorkbookNameValue logWb, appName & "_" & COV_ISSUECOUNT_MINOR, _
2103 AddLongToWorkbookNameValue logWb, appName & "_" & COV_DOC_MIGRATION_COSTS, _
2107 AddLongToWorkbookNameValue logWb, COV_DOC_PREPARABLE_COSTS, _
2111 AddLongToWorkbookNameValue logWb, appName & "_" & COV_MACRO_MIGRATION_COSTS, _
2116 AddLongToWorkbookNameValue logWb, appName & "_" & "TotalDocsAnalysedWithIssues", _
2127 Sub SetupDAWResultsSpreadsheet(logWb As WorkBook, fontName As String, fontSize As Long)
2132 bSetupRun = CBool(GetWorkbookNameValueAsLong(logWb, COV_DAW_SETUP_SHEETS_RUN_LBL))
2137 …SetupSheetTextBox logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MOD_DATES_COMMENT_TXB…
2140 …SetupSheetTextBox logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MOD_DATES_LEGEND_TXB,…
2142 … SetupSheetTextBox logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MACRO_COMMENT_TXB, _
2145 SetupSheetTextBox logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MACRO_LEGEND_TXB, _
2149 SetWorkbookNameValueToString logWb, COV_HIGH_LEVEL_ANALYSIS_LBL, _
2154 …SetupSheetTextBox logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_ANALYSIS_COMMENT_TXB,…
2157 …SetupSheetTextBox logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_ANALYSIS_LEGEND_DAW_T…
2161 …SetupSheetChartTitles logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MOD_DATES_CHART, _
2163 SetupSheetChartTitles logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MACRO_CHART, _
2165 … SetupSheetChartTitles logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_ANALYSIS_CHART, _
2169 logWb.Sheets(RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW).Range("A1").Select
2172 SetWorkbookNameValueToBoolean logWb, COV_DAW_SETUP_SHEETS_RUN_LBL, bSetupRun
2181 Sub SetupPAWResultsSpreadsheet(logWb As WorkBook, fontName As String, fontSize As Long)
2186 bSetupRun = CBool(GetWorkbookNameValueAsLong(logWb, COV_PAW_SETUP_SHEETS_RUN_LBL))
2191 logWb.Names(COV_COSTS_PREPISSUE_COUNT_COL_LBL).RefersToRange.EntireColumn.Hidden = False
2194 …SetupSheetTextBox logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MOD_DATES_LEGEND_TXB,…
2196 SetupSheetTextBox logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MACRO_LEGEND_TXB, _
2198 SetWorkbookNameValueToString logWb, COV_HIGH_LEVEL_ANALYSIS_LBL, _
2200 …SetupSheetTextBox logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_ANALYSIS_LEGEND_PAW_T…
2204 …SetupSheetChartTitles logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MOD_DATES_CHART, _
2206 SetupSheetChartTitles logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_MACRO_CHART, _
2208 … SetupSheetChartTitles logWb, RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW, COV_DOC_ANALYSIS_CHART, _
2212 logWb.Sheets(RID_STR_COMMON_RESULTS_SHEET_NAME_OVERVIEW).Range("A1").Select
2215 SetWorkbookNameValueToBoolean logWb, COV_PAW_SETUP_SHEETS_RUN_LBL, bSetupRun
2225 Sub SetupPrintRanges(logWb As WorkBook, docPropRow As Long, appIssuesRow As Long, issueDetailsRow A…
2234 …logWb.Worksheets(RID_STR_COMMON_RESULTS_SHEET_NAME_DOCPROP).PageSetup.PrintArea = "$A1:$U" & (docP…
2235 …logWb.Worksheets(RID_STR_COMMON_RESULTS_SHEET_NAME_DOCISSUE_DETAILS).PageSetup.PrintArea = "$A1:$J…
2236 …logWb.Worksheets(RID_STR_COMMON_RESULTS_SHEET_NAME_DOCREF_DETAILS).PageSetup.PrintArea = "$A1:$G" …
2238 … logWb.Worksheets(RID_STR_COMMON_RESULTS_SHEET_NAME_DOCISSUES_WORD).PageSetup.PrintArea = _
2241 … logWb.Worksheets(RID_STR_COMMON_RESULTS_SHEET_NAME_DOCISSUES_EXCEL).PageSetup.PrintArea = _
2244 … logWb.Worksheets(RID_STR_COMMON_RESULTS_SHEET_NAME_DOCISSUES_POWERPOINT).PageSetup.PrintArea = _
2248 …logWb.Worksheets(RID_STR_COMMON_RESULTS_SHEET_NAME_DOCPROP).PageSetup.PrintArea = "$A1:$U" & (docP…
2259 Sub SetupSheetChartTitles(logWb As WorkBook, namedWorksheet As String, namedChart As String, _
2266 With logWb.Sheets(namedWorksheet).ChartObjects(namedChart).Chart
2284 Sub SetupSheetTextBox(logWb As WorkBook, namedWorksheet As String, _
2298 logWb.Sheets(namedWorksheet).Activate
2299 logWb.Sheets(namedWorksheet).Shapes(textBoxName).Select
2303 logWb.Application.Selection.Text = ""
2305 logWb.Application.Selection.Characters.Text = textBoxTitle & Chr(10)
2307 With logWb.Application.Selection
2315 With logWb.Application.Selection.Characters(start:=1, Length:=Len(textBoxTitle)).Font
2320 With logWb.Application.Selection.Characters(start:=Len(textBoxTitle) + 1, _
2340 Function GetWorkbookNameValueAsLong(logWb As WorkBook, name As String) As Long
2345 GetWorkbookNameValueAsLong = logWb.Names(name).RefersToRange.Cells(1, 1).value
2469 Sub SetWorkbookNameValueToBoolean(logWb As WorkBook, name As String, bVal As Boolean)
2474 logWb.Names(name).RefersToRange.Cells(1, 1) = bVal
2484 Sub SetWorkbookNameValueToString(logWb As WorkBook, name As String, val As String)
2489 logWb.Names(name).RefersToRange.Cells(1, 1) = val
2499 Sub SetWorkbookNameValueToLong(logWb As WorkBook, name As String, val As Long)
2504 logWb.Names(name).RefersToRange.Cells(1, 1) = val
2514 Sub SetWorkbookNameValueToVariant(logWb As WorkBook, name As String, val As Variant)
2519 logWb.Names(name).RefersToRange.Cells(1, 1) = val
2529 Sub AddLongToWorkbookNameValue(logWb As WorkBook, name As String, val As Long)
2534 …logWb.Names(name).RefersToRange.Cells(1, 1) = logWb.Names(name).RefersToRange.Cells(1, 1).value + …
2543 Sub AddVariantToWorkbookNameValue(logWb As WorkBook, name As String, varVal As Variant)
2548 …logWb.Names(name).RefersToRange.Cells(1, 1) = logWb.Names(name).RefersToRange.Cells(1, 1).value + …
2558 Sub SaveAnalysisResultsVariables(logWb As WorkBook, offsetDocIssueDetailsRow As Long, _
2565 SetWorkbookNameValueToLong logWb, "TotalIssuesAnalysed", offsetDocIssueDetailsRow
2566 SetWorkbookNameValueToLong logWb, "TotalRefsAnalysed", offsetDocRefDetailsRow
2576 Sub SetupAnalysisResultsVariables(logWb As WorkBook, _
2583 offsetDocPropRow = GetWorkbookNameValueAsLong(logWb, CTOTAL_DOCS_ANALYZED)
2584 offsetDocIssueDetailsRow = GetWorkbookNameValueAsLong(logWb, "TotalIssuesAnalysed")
2585 offsetDocRefDetailsRow = GetWorkbookNameValueAsLong(logWb, "TotalRefsAnalysed")
2586 …offsetDocIssuesRow = GetWorkbookNameValueAsLong(logWb, getAppSpecificApplicationName & "_" & "Tota…