## MEMORANDUM

TO: Steam Electric Rulemaking Record

FROM: Elizabeth Sabol, ERG Deb Bartram, ERG

DATE: April 19, 2013

SUBJECT: Steam Electric Technical Questionna ire Database – Extraction Program

In 2010, EPA distributed the Questionnaire for the Steam Electric Power Generating Effluent Guidelines (Steam Electric Survey) to steam electric power plants to collec t technical, economic, and financial information related to wastewater generation and treatmen t under the authority of Section 308 of the Clean Water Act (CWA).

EPA’s contractor, Eastern Resear ch Group (ERG), developed the survey in an MS Excel format to distribute and collect the requested data from industry. Af ter receiving responses from the industry, ERG transferred the data electronically to the Steam Electri c Technical Database (technical database) using a Visual Basic (VBA) program that automatically opened each survey response file and transferred th e responses to the technical database. For more detailed information on the data extraction program s ee Sections 1.0 and 5.0 of EPA’s memorandum, Steam Electric Technical Questionnaire Database – Development, Content, and Use (DCN SE03876).

Appendix 1 contains the extraction code used to transfer the data . The top of each page contains the module name and page number of the code for that module (e.g., AppSystemDrivers – 1, which is the first page of th e code for the module entitled AppSystemDrivers). ERG developed 14 modules to open MS Excel files, extract the in formation, identify any potential errors with extraction, and create a user in terface to run the extraction pr ogram. An additional 87 modules were created to extract the mapped responses specif ic to each tab of information in the MS Excel Steam Electric Survey. These modules were named after the tab names in the survey files (e.g., “Tab_PartA_Section1_1”, “T ab_PartB_Comments”).

### Appendix 1

Steam Electric Technical Question naire Database Extraction CodeForm_frmMain - 1

Option Compare Database

Private Sub cmdRunTransfer_Click() On Error GoTo Err_cmdRunTransfer_Click MenuButtonClicked = BtnOne Call MainDriver

Exit_cmdRunTransfer_Click: Exit Sub

Err_cmdRunTransfer_Click: MsgBox Err.Description Resume Exit_cmdRunTransfer_Click

DoCmd.Close "frmMain"

End Sub

Private Sub Command6_Click() On Error GoTo Err_cmdRunTransfer_Click MenuButtonClicked = BtnTwo Call MainDriver

Exit_cmdRunTransfer_Click: Exit Sub

Err_cmdRunTransfer_Click: MsgBox Err.Description Resume Exit_cmdRunTransfer_Click

DoCmd.Close "frmMain"

End Sub

Private Sub Command7_Click() On Error GoTo Err_cmdRunTransfer_Click MenuButtonClicked = BtnThree Call MainDriver

Exit_cmdRunTransfer_Click: Exit Sub

Err_cmdRunTransfer_Click: MsgBox Err.Description Resume Exit_cmdRunTransfer_Click

DoCmd.Close "frmMain"

End SubAppSystemDrivers - 1

Option Compare Database Option Explicit Public Sub MainDriver() Dim GotHousekeeping As Boolean Dim GotSurveys As Boolean

On Error GoTo ErrHandler:

RunTimeErrorFlag = False PlantErrorFlag = False

GotHousekeeping = GetFileInfo ' Get your file info for processing the transfer of xls data to access ' initalizes global file fields if data is present

If GotHousekeeping Then ' located data for the global file fields in the housekeeping table

' open the survey review and get the information ' for the surveys that are ready for extraction

GotSurveys = GetSurveysToProcess If GotSurveys Then

' open up an instance of excel so we can read in the workbooks and process Call OpenExcel

' perform the extraction using the project specific modules coded up for this survey Call TransferDataDriver

' Close Surveys table Call CloseSurveysTable

' Close Excel Application Call CloseExcelWorkbook

' do any cleanup that the project would like to have done now Call PostProcessingCleanup

' Inform user extraction has been completed If RunTimeErrorFlag = False And PlantErrorFlag = False Then

MsgBox "Transfer of 'Ready for Extraction Surveys' Complete", vbInformation + vbOKOnly, "Tran s fer Completed"

'inform user if there were any errors ElseIf RunTimeErrorFlag = True Or PlantErrorFlag = True Then MsgBox "One or more plants had processing errors. Please check the Error_Log table.", vbInfo r mation + vbOKOnly End If End If

End If

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub BuildWhereClause() ' This procedure sets up the where part of the SQL so that the tables in the ' database can be gone through and the specific Survey can be removed

On Error GoTo ErrHandler:

' build whereclause for deletion processing DeletionWhereClause = " Where [" & PrimaryKeyField & "] = " If PrimaryKeyFieldType = "C" Then DeletionWhereClause = DeletionWhereClause & "'" & PrimaryKeyFieldValue & "'"AppSystemDrivers - 2

Else DeletionWhereClause = DeletionWhereClause & PrimaryKeyFieldValue End If

exit_Sub: Exit Sub

ErrHandler: TblName = "System" FldName = "Deletion Error SQL" ErrorDesc = "Error occurred in building SQL for Deletion." Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") RunTimeErrorFlag = True Resume exit_Sub End Sub Public Sub TransferDataDriver()

On Error GoTo ErrHandler:

Do While Not SurveyRS.EOF

PlantErrorFlag = False

' assign primarykeyfield value Call GetPrimaryKeyfieldValue

' build whereclause for deletion processing which occurs during re-run of extraction for a ' specific survey Call BuildWhereClause

' process through all the tables looking cleaning out the survey data tables Call DeletePreviousDataForID

Call ProjectSpecificTransferDataDriver

' Mark the Survey as processed in the Survey Review Table Call UpdateTransferDate

SurveyRS.MoveNext Loop

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End Sub Public Sub GetPrimaryKeyfieldValue()

' This procedure gets the surveys id and version number from the Survey Review Table Dim PrimaryKeyLen As Integer

On Error GoTo ErrHandler:

PrimaryKeyFieldValue = SurveyRS.Fields(PrimaryKeyField).Value

PrimaryKeyLen = Len(PrimaryKeyFieldValue)

Select Case PrimaryKeyLen Case 1 PrimaryKeyFieldValueZeros = "0000" & PrimaryKeyFieldValue Case 2 PrimaryKeyFieldValueZeros = "000" & PrimaryKeyFieldValue Case 3 PrimaryKeyFieldValueZeros = "00" & PrimaryKeyFieldValue Case 4 PrimaryKeyFieldValueZeros = "0" & PrimaryKeyFieldValue Case 5AppSystemDrivers - 3

PrimaryKeyFieldValueZeros = PrimaryKeyFieldValue End Select If Len(SurveyRS!Version) > 0 Then VersionNumber = SurveyRS!Version Else VersionNumber = "" End If Exit_Function: Exit Sub

ErrHandler: TblName = "System" FldName = "Version Number Error" ErrorDesc = " Version number is not populated in Survey Review." Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") RunTimeErrorFlag = True Resume Exit_Function End Sub Public Sub UpdateTransferDate()

If PlantErrorFlag = False Then

If MenuButtonClicked = BtnTwo Then SurveyRS.Edit SurveyRS!ready_g = Null SurveyRS!extract_date_g = Now SurveyRS!extract_error_g = False SurveyRS.Update

Else SurveyRS.Edit SurveyRS!READY_MAIN = Null SurveyRS!EXTRACT_DATE_MAIN = Now SurveyRS!extract_error = False SurveyRS.Update End If Else RunTimeErrorFlag = True If MenuButtonClicked = BtnTwo Then SurveyRS.Edit SurveyRS!extract_error_g = True SurveyRS.Update

Else SurveyRS.Edit SurveyRS!extract_error = True SurveyRS.Update End If

End If

End SubDiskOperationsProcessing - 1

Option Compare Database Option Explicit Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean 'Purpose: Return True if the file exists, even if it is hidden. 'Arguments: strFile: File name to look for. Current directory searched if no path included. ' bFindFolders. If strFile is a folder, FileExists() returns False unless this argument is True. 'Note: Does not look inside subdirectories for the file.

Dim lngAttributes As Long

'Include read-only files, hidden files, system files. lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)

If bFindFolders Then lngAttributes = (lngAttributes Or vbDirectory) 'Include folders as well. Else 'Strip any trailing slash, so Dir does not look inside the folder. Do While Right$(strFile, 1) = "\" strFile = Left$(strFile, Len(strFile) - 1) Loop End If

'If Dir() returns something, the file exists. On Error Resume Next FileExists = (Len(Dir(strFile, lngAttributes)) > 0) End Function

Function FolderExists(strPath As String) As Boolean On Error Resume Next FolderExists = ((GetAttr(strPath) And vbDirectory) = vbDirectory) End Function

Function TrailingSlash(varIn As Variant) As String If Len(varIn) > 0 Then If Right(varIn, 1) = "\" Then TrailingSlash = varIn Else TrailingSlash = varIn & "\" End If End If End FunctionErrorLog - 1

Option Compare Database Option Explicit

Public Function ErrorLogUpdate(TblName As String, FldName As String, ErrorDesc As String, ExcelValue A s String)

Dim TempDB As DAO.Database Dim OutRs As DAO.Recordset

Set TempDB = CurrentDb Set OutRs = TempDB.OpenRecordset("Error_Log", dbOpenDynaset) 'open the Error table OutRs.AddNew OutRs.Fields("Plant_ID") = PrimaryKeyFieldValue OutRs.Fields("TableName") = TblName OutRs.Fields("FieldName") = FldName OutRs.Fields("Problem") = ErrorDesc If ExcelValue <> "Does not matter" Then OutRs.Fields("ExcelValue") = ExcelValue End If OutRs.Update

OutRs.Close Set TempDB = Nothing TblName = "" FldName = "" ErrorDesc = "" ExcelValue = ""

Exit_Function: Exit Function

ErrHandler: MsgBox Err.Description Resume Exit_Function

End FunctionFileProcessingUtilities - 1

Option Compare Database Option Explicit Public Function CheckNonData(CellValue As String)

NonData = False

Select Case CellValue

Case "No Answer" NonData = True Case "Select" NonData = True Case "None" NonData = True Case "0" NonData = True Case "No Other Additive1" NonData = True Case "No Other Additive2" NonData = True Case "No other1" NonData = True Case "No other2" NonData = True Case "No other3" NonData = True Case "No other 1" NonData = True Case "No other 2" NonData = True Case "Chem_No Other" NonData = True Case "No Other_woChem" NonData = True Case "No_Chem_No Other" NonData = True Case "No other measure" NonData = True Case "No other liner" NonData = True Case "No other cap" NonData = True Case "12:00:00 AM" NonData = True Case "NA" NonData = True Case "False" NonData = True

End Select

End Function

Public Function GetFileInfo() As Boolean

' This procedure gets the path and filename for the file we are to process

Dim TempDB As DAO.Database Dim InRS As DAO.Recordset 'Dim OutRS As DAO.Recordset

On Error GoTo ErrHandler:

' Initialize the global file fields XLSFileName = "" XLSFilePath = "" PrimaryKeyField = "" PrimaryKeyFieldType = "" PrimaryKeyFieldValue = "" PrimaryKeyFieldValueZeros = ""FileProcessingUtilities - 2

' setup recordset for reading in the File processing information Set TempDB = CurrentDb() Set InRS = TempDB.OpenRecordset("Housekeeping", dbOpenDynaset)

If InRS.RecordCount > 0 Then InRS.MoveFirst ' Assign file information to the appropriate global variables ' XLSFilePath = CurrentProject.Path & "\" ' right now xls file same place as db XLSFilePath = InRS!XLSFilePath PrimaryKeyField = InRS!PrimaryKeyField PrimaryKeyFieldType = InRS!PrimaryKeyFieldType GetFileInfo = True

Else GetFileInfo = False

MsgBox "The file information was not found in the HouseKeeping Table." _ & vbCrLf & "Please update the table. " & vbCrLf & vbCrLf & "Processing with stop.", vbCritical, _ "Error locating File Information - Update Housekeeping Table" End If TempDB.Close 'OutRS.Close

Exit_Function: Exit Function

ErrHandler: 'MsgBox Err.Description RunTimeErrorFlag = True

Resume Exit_Function End Function Public Function GetSurveysToProcess() As Boolean

' This procedure gets the surveys from the survey tracking table

On Error GoTo ErrHandler:

' setup recordset for reading in the Survey processing information Set SurveyDB = CurrentDb() 'LSC change 9/13/10 ' determine which Survey Pull to use based on which button was ' clicked on the main menu

If MenuButtonClicked = BtnOne Or _ MenuButtonClicked = BtnThree Then

SurveySQL = "SELECT Plant_ID, Version, READY_MAIN, EXTRACT_DATE_MAIN, EXTRACT_ERROR, [PART A KICK

OUT] " & _ "FROM [SURVEY REVIEW] " & _ "WHERE READY_MAIN = TRUE " & _ " ORDER BY Plant_ID;"

End If

If MenuButtonClicked = BtnTwo Then

SurveySQL = "SELECT Plant_ID, Version, READY_G, EXTRACT_DATE_G, EXTRACT_ERROR_G " & _ "FROM [SURVEY REVIEW] " & _ "WHERE READY_G = true;" End If

Set SurveyRS = SurveyDB.OpenRecordset(SurveySQL, dbOpenDynaset)

If SurveyRS.RecordCount > 0 ThenFileProcessingUtilities - 3

SurveyRS.MoveFirst GetSurveysToProcess = True Else GetSurveysToProcess = False If MenuButtonClicked = BtnTwo Then MsgBox "The Survey Review Table has no surveys with Part A-H processed and Part G marked as read y to process ." _ & vbCrLf & "Please update the table and rerun. " & vbCrLf & vbCrLf & "Processing with stop.", vb C ritical, _ "No Surveys Ready to Process for Part G" Else MsgBox "The Survey Review Table has no surveys marked as ready to process." _ & vbCrLf & "Please update the table and rerun. " & vbCrLf & vbCrLf & "Processing with stop.", vb C ritical, _ "No Surveys Ready to Process" End If

End If

Exit_Function: Exit Function

ErrHandler: MsgBox Err.Description Resume Exit_Function End Function Public Sub DeletePreviousDataForID() ' This procedure go through all the tables in the database and delete any ' of the records that have the keyfield information we are about to process

On Error GoTo ErrHandler:

Dim TempDB As DAO.Database Dim i As Integer Dim TblName As String

Set TempDB = CurrentDb

For i = 0 To TempDB.TableDefs.Count - 1 TblName = TempDB.TableDefs(i).Name If TableToClean(TblName) Then DoCmd.SetWarnings (False) DoCmd.RunSQL "Delete * from " & TblName & DeletionWhereClause & ";" DoCmd.SetWarnings (True) End If Next i

exit_Sub: Exit Sub

ErrHandler: 'MsgBox Err.Description RunTimeErrorFlag = True Resume exit_Sub

End Sub

Public Sub OpenExcelSheet(xlsTabName As String) '*************** Subroutine: OpenSheet ******* '* This program will create a access table using an imported xls file

'*

'*

'*************************************************************************

Dim TempDB As Database 'Dim OutRS As DAO.Recordset Dim msgResponse As Variant

On Error GoTo ErrHandler:FileProcessingUtilities - 4

appExcel.Sheets(xlsTabName).Select

exit_Sub: Exit Sub

ErrHandler: If Err.Number = "9" Then msgResponse = MsgBox("Tab specified in spreadsheet could not be found." & vbCrLf _ & "Import process will be canceled", vbCritical, "Spreadsheet Tab Missing") Else MsgBox Err.Description End If

Resume exit_Sub

End Sub

Public Sub CloseExcelWorkbook() On Error GoTo ErrHandler:

' Now Close Excel appExcel.Quit Set appExcel = Nothing

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub OpenTable(mdbTableName As String) '*************** Subroutine: OpenTable ******* '* This program will open the Access table associated with the sheet '* currently being processed

'*

'*************************************************************************

Dim TempDB As Database Dim msgResponse As Variant

On Error GoTo ErrHandler:

' open up the output file Set OutDB = CurrentDb() Set OutRs = OutDB.OpenRecordset(mdbTableName, dbOpenDynaset) ' open up output table data file

exit_Sub: Exit Sub

ErrHandler: If Err.Number = "9" Then msgResponse = MsgBox("Tab specified in spreadsheet could not be found." & vbCrLf _ & "Import process will be canceled", vbCritical, "Spreadsheet Tab Missing")

Else MsgBox Err.Description End If

Resume exit_Sub

End Sub Public Sub CloseTable() On Error GoTo ErrHandler:

' Now Close the access table OutRs.Close Set OutRs = NothingFileProcessingUtilities - 5

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub CloseSurveysTable() On Error GoTo ErrHandler:

' Now Close the access table SurveyRS.Close Set SurveyRS = Nothing

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Function TableToClean(TblName As String) As Boolean Dim i As Integer Dim TempDB As DAO.Database Dim tempTD As TableDef

Dim tempFld As Field

On Error GoTo ErrHandler:

TableToClean = False

' check to see if the table is not an access system table and not an application system table If Left(UCase(TblName), 12) <> "HOUSEKEEPING" _ And Left(UCase(TblName), 4) <> "MSYS" _ And Left(UCase(TblName), 13) <> "SURVEY REVIEW" Then

' Check to see if the table you're looking at has a field named ' the same as the primary key field

Set TempDB = CurrentDb Set tempTD = TempDB.TableDefs(TblName)

' look at each field in the table For Each tempFld In tempTD.Fields ' look at each property for each field searching for the Name property For i = 0 To tempFld.Properties.Count - 1 Select Case UCase(tempFld.Properties(i).Name) Case "NAME" If UCase(tempFld.Properties(i).Value) = UCase(PrimaryKeyField) Then ' check to see if it's a table that is extracted behind button #2

If InTablesForButton2(tempTD.Name) Then ' table name is in table TablesForButton2 ' check to see if we're processing from button 2 or another button If MenuButtonClicked = BtnTwo Then ' we are processing off button 2 so clean out the table TableToClean = True Else ' we're not processing off button 2 so don't clean out the table

TableToClean = False End If Exit For Else ' table isn't in the TablesForButton2 list ' check to see if we're processing from button 2 or another buttonFileProcessingUtilities - 6

If MenuButtonClicked = BtnTwo Then ' we are processing off button 2 so don't clean out the table TableToClean = False Else ' we're not processing off button 2 so clean out the table TableToClean = True End If Exit For End If End If End Select If TableToClean = True Then Exit For End If Next i Next

End If

Set TempDB = Nothing

Exit_Function: Exit Function

ErrHandler: MsgBox Err.Description Resume Exit_Function

End Function Sub Copy_XLSData_to_Table()

Dim i As Integer ' The Current Row in the xls sheet Dim FieldNameValue As String Dim LastRecord As Boolean Dim HaveData As Boolean Dim CellValue As String Dim CurrCell As String Dim j As Integer Dim k As Integer Dim TempDB As DAO.Database Dim tempTD As TableDef Dim tempTD2 As TableDef Dim tempFld As Field Dim tempFldName As String Dim tempFldType As String Dim tempFldLen As Integer Dim tempCellLen As Integer 'Dim OutRS2 As DAO.Recordset Dim tempNumPieces As Double Dim NumPieces As Integer Dim BigField As String Dim KeyFieldSQL As String Dim KeyFieldRS As DAO.Recordset Dim KeyField As Boolean

On Error GoTo ErrHandler: Dim msgResponse As Variant i = DataBegins HaveData = False LastRecord = False ' process through the spreadsheet copying data over until we have no more to copy OutRs.AddNew 'If OutRs.Name = "Landfill_General" Then ' MsgBox OutRs.Name 'End If Do While Not LastRecord ' get the fieldname CurrCell = FieldColumn & i appExcel.Range(CurrCell).Select FieldNameValue = Trim(appExcel.activecell.Value) ' save the fieldnameFileProcessingUtilities - 7

CurrCell = AnswerColumn & i appExcel.Range(CurrCell).Select

' Check to see if the field you're looking at is numeric Set TempDB = CurrentDb Set tempTD = TempDB.TableDefs(OutRs.Name) Set tempFld = tempTD.Fields(FieldNameValue) tempFldName = tempFld.Name tempCellLen = Len(appExcel.activecell.Value) ' look at the field to determine the Type property ' CurrentDb.TableDefs("tblEmployee").Fields(intCounter).Type tempFldType = tempTD.Fields(FieldNameValue).Type tempFldLen = tempTD.Fields(FieldNameValue).Size ' For j = 0 To tempFld.Properties.Count - 1 ' Select Case UCase(tempFld.Properties(j).Name) ' Case "TYPE" ' tempFldType = tempFld.Properties(j).Value Select Case tempFldType Case dbBoolean '1 tempFldType = "Boolean" Case dbByte '2 tempFldType = "Number" Case dbInteger '3 tempFldType = "Number" Case dbLong '4 tempFldType = "Number" Case dbCurrency '5 tempFldType = "Number" Case dbSingle '6 tempFldType = "Number" Case dbDouble '7 tempFldType = "Number" Case dbDate '8 tempFldType = "Date" Case dbBinary '9 tempFldType = "Number" Case dbText '10 tempFldType = "Text" Case dbLongBinary '11 tempFldType = "Number" Case dbMemo '12 tempFldType = "Memo" End Select ' Case "SIZE" ' tempFldLen = tempFld.Properties(j).Value ' End Select ' Next j

'check to see if this is a key field Set tempTD2 = TempDB.TableDefs("Key_Fields_List") KeyFieldSQL = "SELECT Key_Fields_List.TableName, Key_Fields_List.KeyField" & _ " FROM Key_Fields_List WHERE " & _ "(TableName = '" & OutRs.Name & "' AND KeyField = '" & tempFld.Name & "');"

Set KeyFieldRS = TempDB.OpenRecordset(KeyFieldSQL)

If KeyFieldRS.RecordCount > 0 Then KeyFieldRS.MoveLast KeyFieldRS.MoveFirst KeyField = True Else KeyField = False End If

' check to see if cell is populated AND it is not a key field ' if populated AND it is NOT a key field, then we have data to write ' jhk 09/29/2010 added "Select" below If OutRs.Name = "Tbl_I_UltimateParent_FirmInfo" Then ' MsgBox "jodi" End IfFileProcessingUtilities - 8

CellValue = appExcel.activecell.Value

CheckNonData (CellValue)

If IsNull(appExcel.activecell.Value) = False And NonData = False And KeyField = False And _ Left(tempFldName, 4) <> "cbi_" Then 'LSC added 9/30/10 to ignore cbi fields HaveData = True End If

'process text, numeric and other field types If tempFldType = "Text" Then If tempCellLen > 255 Then 'cell is more than 255 characters If tempFldType <> "Memo" Then 'field is not long enough TblName = OutRs.Name FldName = tempFld.Name ErrorDesc = "Field needs to be memo to accommodate cell entry" ExcelValue = Left(CellValue, 255) Call ErrorLogUpdate(TblName, FldName, ErrorDesc, ExcelValue) PlantErrorFlag = True Else ' cell contents need to be pieced For j = 1 To tempCellLen BigField = BigField & Mid(appExcel.activecell.Value, j, 1) Next j OutRs.Fields(Trim(FieldNameValue)) = BigField End If ElseIf tempCellLen > tempFldLen Then 'cell length is longer than field length, add to error t a ble TblName = OutRs.Name FldName = tempFld.Name ErrorDesc = "Cell entry is longer than the field length." ExcelValue = CellValue Call ErrorLogUpdate(TblName, FldName, ErrorDesc, ExcelValue) PlantErrorFlag = True ElseIf appExcel.activecell.Value = Null Or appExcel.activecell.Value = "" Or _ appExcel.activecell.Value = "No Answer" And appExcel.activecell.Value = "None" And _ appExcel.activecell.Value = "Select" Then 'LSC added 9/30/10 OutRs.Fields(Trim(FieldNameValue)) = "-999" Else OutRs.Fields(Trim(FieldNameValue)) = appExcel.activecell.Value End If ElseIf tempFldType = "Number" Then If appExcel.activecell.Value = Null Or appExcel.activecell.Value = "" Or _ appExcel.activecell.Value = "No Answer" And appExcel.activecell.Value = "None" And _ appExcel.activecell.Value = "Select" Then 'LSC added 9/30/10 OutRs.Fields(Trim(FieldNameValue)) = -999 ElseIf IsNumeric(appExcel.activecell.Value) = False Then 'trying to write text to number 'save to the error table TblName = OutRs.Name FldName = tempFld.Name ErrorDesc = "The cell contents are text, but the field is numeric." ExcelValue = CellValue Call ErrorLogUpdate(TblName, FldName, ErrorDesc, ExcelValue) PlantErrorFlag = True OutRs.Fields(Trim(FieldNameValue)) = "-777" Else 'write the number OutRs.Fields(Trim(FieldNameValue)) = appExcel.activecell.Value End If Else 'write the data - any data that is not text or number OutRs.Fields(Trim(FieldNameValue)) = appExcel.activecell.Value End If

Set TempDB = Nothing

i = i + 1 If i > DataEnds Then LastRecord = True End If LoopFileProcessingUtilities - 9

' now go write out the record into the access table If HaveData = True Then ' need to check and see if we have a comments table and do ' special processing for that.

If InStr(UCase(OutRs.Name), "COMMENT") > 0 Then CommentsTableCom_num OutRs End If OutRs.Update End If

exit_Sub: Exit Sub

ErrHandler: If Err.Number = 3265 Then ' 3265- Item not found in this collection (typo in table structure) TblName = OutRs.Name FldName = FieldNameValue ErrorDesc = "The Excel field name and Access field name do not match." Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") PlantErrorFlag = True 'MsgBox Err.Description & vbCrLf & "TableName: " & OutRS.Name & vbCrLf & "FieldName: " & FieldNam e Value ElseIf Err.Number = 3421 Then ' 3421 - Data type conversion error TblName = OutRs.Name FldName = FieldNameValue ErrorDesc = "The Excel field type and Access field type do not match." Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") PlantErrorFlag = True 'MsgBox Err.Description & vbCrLf & "TableName: " & OutRS.Name & vbCrLf & "FieldName: " & FieldNam e Value Else ' 13 - Type Mismatch error TblName = OutRs.Name FldName = FieldNameValue ErrorDesc = Err.Description & " Mapping reference lost. Correct reference and rerun." Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") PlantErrorFlag = True 'MsgBox Err.Description End If

GoTo exit_Sub

End Sub Public Sub OpenExcel() On Error GoTo ErrHandler:

' define connection for linking to Excel Spreadsheets 'Dim appexcel As Object Set appExcel = CreateObject("Excel.Application") appExcel.displayalerts = False

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Function OpenExcelWorkBook() As Boolean

On Error GoTo ErrHandler: OpenExcelWorkBook = True

'Open Workbook containing the Data ' need to fix this so that we try Part space letter and if notfound ' try partletter before erroring it out jhk - 9/29/2010FileProcessingUtilities - 10

' Parameters Filename, UpdateLinks, ReadOnly appExcel.workbooks.Open XLSFilePath & XLSFileName, ReadOnly:=True appExcel.calculation = xlCalculationAutomatic

exit_Sub: Exit Function

ErrHandler: If Err.Number = 1004 Then

' MsgBox "error Open" OpenExcelWorkBook = False TblName = "System" FldName = "Excel file path" ErrorDesc = XLSFilePath & XLSFileName & " could not be found." Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") PlantErrorFlag = True Else OpenExcelWorkBook = False TblName = "System" FldName = "Excel Workbook" ErrorDesc = "Error #" & Err.Number & " - " & Err.Description Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") PlantErrorFlag = True End If Resume exit_Sub

End Function Public Function InTablesForButton2(mdbTableName As String) As Boolean

'*************** Subroutine: OpenTable ******* '* This program will open the TablesForButton2 table and check to see if '* the name exists in the table

'*

'*

'*************************************************************************

Dim TempDB As DAO.Database Dim tempRS As Recordset Dim srchString As String

Dim msgResponse As Variant

On Error GoTo ErrHandler: InTablesForButton2 = False

' open up the output file Set TempDB = CurrentDb() Set tempRS = TempDB.OpenRecordset("TablesForButton2", dbOpenDynaset) ' open up output table data file srchString = "TableNameButton2 = '" & mdbTableName & "'"

If tempRS.RecordCount > 0 Then tempRS.MoveFirst tempRS.FindFirst srchString If tempRS.NoMatch Then InTablesForButton2 = False Else InTablesForButton2 = True End If End If tempRS.Close Set tempRS = Nothing Set TempDB = Nothing

Exit_Function: Exit Function

ErrHandler:FileProcessingUtilities - 11

MsgBox Err.Description Resume Exit_Function

End FunctionGlobals and Constants - 1

Option Compare Database Option Explicit ' define global fields for file processing Global XLSFileName As String ' the name of the file currently being extracted Global XLSFilePath As String ' the path of the XLS files to be extracted Global XLSPart As String ' the part of the survey to be extracted

' define Global Fields for populating database ' access table related fields Global OutDB As DAO.Database Global OutRs As DAO.Recordset Global PrimaryKeyField As String ' used for deletion of previous extraction Global PrimaryKeyFieldType As String ' used for deletion of previous extraction Global PrimaryKeyFieldValue As String ' used for deletion of previous extraction Global PrimaryKeyFieldValueZeros As String 'used for location of surveys on network Global DeletionWhereClause As String ' used for deletion of previous extraction Global SurveyDB As DAO.Database Global SurveyRS As DAO.Recordset ' used to identify which surveys for extraction Global SurveySQL As String ' the sql to select the surveys to extract

' xls sheet related fields Global appExcel As Object Global Const xlCalculationAutomatic = -4105 'sets the calculation property found under 'Tools, Option, Calculations tab in Excel to Automatic Global Const xlCalculationManual = -4135 'sets the calculation property found under 'Tools, Option, Calculations tab in Excel to Manual Global AnswerColumn As String ' used for xls sheet processing Global FieldColumn As String ' used for xls sheet processing Global DataBegins As Integer ' used for xls sheet processing Global DataEnds As Integer ' used for xls sheet processing Global shtName As String 'added new - comment needed Global mdbTableName As String 'name of table being written to

' define Global fields for tracking table Global VersionNumber As String

' Error_Log related fields Global RunTimeErrorFlag As Boolean 'set flag to know if error finding files Global PlantErrorFlag As Boolean 'set flag to know if error occured for the Plant Global TblName As String 'for writing table name to Error_Log Global FldName As String 'for writing field name to Error_Log Global ErrorDesc As String 'for writing the error encountered to Error_Log Global ExcelValue As String 'for writing value of the Excel cell to Error_Log

' define Global Fields for Run-time option Global MenuButtonClicked As String Global Const BtnOne = "1" Global Const BtnTwo = "2" Global Const BtnThree = "3"

Global NonData As Boolean 'set flag to know if data is on the NonData listPostProcessingCode - 1

Option Compare Database Option Explicit Public Sub PostProcessingCleanup() ' This procedure go through all the tables in the database and does ' Post processing Cleanup to the dataset

On Error GoTo ErrHandler:

Dim TempDB As DAO.Database Dim i As Integer Dim TblName As String

Set TempDB = CurrentDb

For i = 0 To TempDB.TableDefs.Count - 1 TblName = TempDB.TableDefs(i).Name If DataTableToExamine(TblName) Then ' routines to clean up the data tables come here

ResetMinus999 TblName ' look for 0 and change to -999 'ResetMinus555 TblName ' look for -555 and change to 0

End If Next i

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description RunTimeErrorFlag = True Resume exit_Sub

End Sub Public Function DataTableToExamine(TblName As String) As Boolean ' this procedure looks at the current table and determines if it is a ' data table or system tables (application and Access)

Dim i As Integer Dim TempDB As DAO.Database Dim tempTD As TableDef

Dim tempFld As Field

On Error GoTo ErrHandler:

DataTableToExamine = False

' check to see if the table is not an access system table and not an application system table If Left(UCase(TblName), 12) <> "HOUSEKEEPING" _ And Left(UCase(TblName), 4) <> "MSYS" _ And Left(UCase(TblName), 13) <> "SURVEY REVIEW" Then

' Check to see if the table you're looking at has a field named ' the same as the primary key field

Set TempDB = CurrentDb Set tempTD = TempDB.TableDefs(TblName)

' look at each field in the table For Each tempFld In tempTD.Fields ' look at each property for each field searching for the Name property For i = 0 To tempFld.Properties.Count - 1 Select Case UCase(tempFld.Properties(i).Name) Case "NAME" If UCase(tempFld.Properties(i).Value) = UCase(PrimaryKeyField) Then DataTableToExamine = True Exit For End IfPostProcessingCode - 2

End Select

Next i If DataTableToExamine = True Then Exit For End If Next

End If

Set TempDB = Nothing

Exit_Function: Exit Function

ErrHandler: 'MsgBox Err.Description Resume Exit_Function

End Function

' Commented out be EAS 12/27 to avoid all zeroes turning to -555. 'Public Sub ResetMinus555(inTblName As String) ' this procedure looks at the current table and determines if it is a ' data table or system tables (application and Access)

'Dim i As Integer 'Dim tempFld As Field 'Dim TempDB As DAO.Database 'Dim tempTD As TableDef 'Dim tempRS As Recordset 'Dim FieldName As String 'Dim tempFldType As String

'On Error GoTo ErrHandler:

'Set TempDB = CurrentDb 'Set tempTD = TempDB.TableDefs(inTblName) 'Set tempRS = TempDB.OpenRecordset(inTblName) 'If tempRS.RecordCount > 0 Then 'tempRS.MoveFirst 'Do While Not tempRS.EOF

' look at each field in the table 'For Each tempFld In tempTD.Fields

' look at each property for each field searching for the Name property

' FieldName = tempFld.Name 'tempFldType = tempTD.Fields(FieldName).Type 'Select Case tempFldType 'Case dbBoolean '1 'tempFldType = "Boolean" 'Case dbByte '2 ' tempFldType = "Number" 'Case dbInteger '3 ' tempFldType = "Number" 'Case dbLong '4 ' tempFldType = "Number" ' Case dbCurrency '5 'tempFldType = "Number" 'Case dbSingle '6 ' tempFldType = "Number" ' Case dbDouble '7 ' tempFldType = "Number" ' Case dbDate '8 ' tempFldType = "Date" ' Case dbBinary '9 ' tempFldType = "Number"PostProcessingCode - 3

' Case dbText '10 ' tempFldType = "Text" ' Case dbLongBinary '11 ' tempFldType = "Number" ' Case dbMemo '12 ' tempFldType = "Memo" ' End Select

'If tempFldType = "Number" Then ' 'If tempRS.Fields(tempFld.Name).Value = -555 Then 'tempRS.Edit 'tempRS.Fields(tempFld.Name).Value = 0 'tempRS.Update

' End If 'End If 'If tempFldType = "Text" Or tempFldType = "Memo" Then ' 'If tempRS.Fields(tempFld.Name).Value = "-555" Then ' tempRS.Edit 'tempRS.Fields(tempFld.Name).Value = "0" ' tempRS.Update ' End If ' End If

'Next

'tempRS.MoveNext 'Loop 'End If ' tempRS.Close ' Set tempRS = Nothing ' Set tempTD = Nothing 'Set TempDB = Nothing

'exit_Sub: 'Exit Sub

'ErrHandler: 'MsgBox Err.Description 'Resume exit_Sub

'End Sub

Public Sub ResetMinus999(inTblName As String) ' this procedure looks at the current table and determines if it is a ' data table or system tables (application and Access)

Dim i As Integer Dim tempFld As Field Dim TempDB As DAO.Database Dim tempTD As TableDef Dim tempRS As Recordset Dim FieldName As String Dim tempFldType As String

On Error GoTo ErrHandler:

Set TempDB = CurrentDb Set tempTD = TempDB.TableDefs(inTblName) Set tempRS = TempDB.OpenRecordset(inTblName) If tempRS.RecordCount > 0 Then tempRS.MoveFirst Do While Not tempRS.EOF

' look at each field in the table For Each tempFld In tempTD.FieldsPostProcessingCode - 4

' look at each property for each field searching for the Name property

FieldName = tempFld.Name tempFldType = tempTD.Fields(FieldName).Type Select Case tempFldType Case dbBoolean '1 tempFldType = "Boolean" Case dbByte '2 tempFldType = "Number" Case dbInteger '3 tempFldType = "Number" Case dbLong '4 tempFldType = "Number" Case dbCurrency '5 tempFldType = "Number" Case dbSingle '6 tempFldType = "Number" Case dbDouble '7 tempFldType = "Number" Case dbDate '8 tempFldType = "Date" Case dbBinary '9 tempFldType = "Number" Case dbText '10 tempFldType = "Text" Case dbLongBinary '11 tempFldType = "Number" Case dbMemo '12 tempFldType = "Memo" End Select ' commented out for ABT delivery 10/4/2010 ' commented back in for ERG 12/9/10 If tempFldType = "Number" Then ' If tempRS.Fields(tempFld.Name).Value = 0 Then tempRS.Edit tempRS.Fields(tempFld.Name).Value = -999 tempRS.Update

End If End If

If tempFldType = "Text" Or tempFldType = "Memo" Then ' If tempRS.Fields(tempFld.Name).Value = "0" Then tempRS.Edit tempRS.Fields(tempFld.Name).Value = "-999" tempRS.Update End If End If

Next

tempRS.MoveNext Loop End If tempRS.Close Set tempRS = Nothing Set tempTD = Nothing Set TempDB = Nothing

exit_Sub: Exit Sub

ErrHandler: 'MsgBox Err.Description Resume exit_Sub

End SubPostProcessingCode - 5ProjectSpecificCommentsProcessing - 1

Option Compare Database Option Explicit

Public Sub CommentsTableCom_num(OutRs As DAO.Recordset)

Dim i As Byte Dim QuestNumberSQL As String Dim TempDB As Database Dim CommentRS As DAO.Recordset Dim CommentSQL As String

On Error GoTo ErrHandler i = 0

' check to see if the field com_num has a value in it If OutRs.Fields("Com_num") > 0 Then ' has a value from the input spreadsheet Exit Sub Else ' we need to look up what the last number was used for ' this particular ID and question number ' set up the sql for the appropriate question number field to use Select Case XLSPart

Case "A" CommentSQL = " Comment_quest_nmbr = '" & OutRs.Fields("Comment_quest_nmbr") & "' "

Case "B" CommentSQL = " Comment_quest_nmbr = '" & OutRs.Fields("Comment_quest_nmbr") & "' "

Case "C" CommentSQL = " Ash_Comment_nmbr = '" & OutRs.Fields("Ash_Comment_nmbr") & "' "

Case "D" CommentSQL = " Pond_wwt_Comment_nmbr = '" & OutRs.Fields("Pond_wwt_Comment_nmbr") & "' "

Case "E" CommentSQL = " Comment_quest_nmbr = '" & OutRs.Fields("Comment_quest_nmbr") & "' "

Case "F" CommentSQL = " mgmt_prac_comment_nmbr = '" & OutRs.Fields("Mgmt_Prac_comment_nmbr") & "' "

Case "G" CommentSQL = " Comment_quest_nmbr = '" & OutRs.Fields("Comment_quest_nmbr") & "' "

Case "H" CommentSQL = " Comment_quest_nmbr = '" & OutRs.Fields("Comment_quest_nmbr") & "' "

Case "I" CommentSQL = " QuestionNo = '" & OutRs.Fields("QuestionNo") & "' "

Case Else MsgBox "Part " & XLSPart & " does not exist. Contact Application Support" PlantErrorFlag = True Exit Sub End Select

CommentSQL = "SELECT com_num from " & OutRs.Name & _ " Where " & PrimaryKeyField & " = " & PrimaryKeyFieldValue & _ " AND " & CommentSQL & _ " ORDER BY com_num DESC;"

' open up the table Set TempDB = CurrentDb() Set CommentRS = TempDB.OpenRecordset(CommentSQL)

' see if there is data in the table If CommentRS.RecordCount > 0 Then CommentRS.MoveLast CommentRS.MoveFirstProjectSpecificCommentsProcessing - 2

' get the last number used i = CommentRS!com_num End If OutRs.Fields("com_num") = i + 1 CommentRS.Close Set CommentRS = Nothing Set TempDB = Nothing End If Exit Sub

ErrHandler: MsgBox Err.Description Exit Sub

End SubProjectSpecificFileName - 1

Option Compare Database Option Explicit

Public Sub GetXLSFilename()

Dim TempXLSFileName As String On Error GoTo ErrHandler:

' for this project,

' for part I, all files will be stored in the same directory so we don't need ' to code in the plant_ID subdirectory ' xlspath = P:\Steam Electric\Rulemaking\Survey\Extraction\ ' xlsfilename = \<keyfielvalue>_<xlspart>.xls If MenuButtonClicked = BtnThree Then If Right(XLSFilePath, 1) <> "\" Then TempXLSFileName = "\" Else TempXLSFileName = "" End If

XLSFileName = TempXLSFileName & PrimaryKeyFieldValueZeros & "_Part " & XLSPart & ".xls.xls" If FileExists(XLSFilePath & XLSFileName) = False Then ' file didn't exist so check to see if it's without a space between part and letter XLSFileName = TempXLSFileName & PrimaryKeyFieldValueZeros & "_Part" & XLSPart & ".xls.xls" If FileExists(XLSFilePath & XLSFileName) = False Then ' file didn't exist so check to see if its with a space between part and letter and just o ne .xls XLSFileName = TempXLSFileName & PrimaryKeyFieldValueZeros & "_Part " & XLSPart & ".xls" If FileExists(XLSFilePath & XLSFileName) = False Then ' file didn't exist so check to see if it's without a space between part and letter and j u st one .xls XLSFileName = TempXLSFileName & PrimaryKeyFieldValueZeros & "_Part" & XLSPart & ".xls " End If End If End If

Else ' other buttons were clicked on so we have the format of ' xlspath = P:\Steam Electric\Rulemaking\Survey\Extraction\ ' xlsfilename = \<keyfieldvalue>\<keyfielvalue>_<xlspart>.xls If Right(XLSFilePath, 1) <> "\" Then TempXLSFileName = "\" Else TempXLSFileName = "" End If

XLSFileName = TempXLSFileName & PrimaryKeyFieldValueZeros & "\" & PrimaryKeyFieldValueZeros & "

_ Part " & XLSPart & ".xls.xls" If FileExists(XLSFilePath & XLSFileName) = False Then ' file didn't exist so check to see if it's without a space between part and letter XLSFileName = TempXLSFileName & PrimaryKeyFieldValueZeros & "\" & PrimaryKeyFieldValueZeros & "_Part" & XLSPart & ".xls.xls" If FileExists(XLSFilePath & XLSFileName) = False Then ' file didn't exist so check to see if its with a space between part and letter and just o ne .xls XLSFileName = TempXLSFileName & PrimaryKeyFieldValueZeros & "\" & PrimaryKeyFieldValueZer o s & "_Part " & XLSPart & ".xls" If FileExists(XLSFilePath & XLSFileName) = False Then ' file didn't exist so check to see if it's without a space between part and letter and j u st one .xls XLSFileName = TempXLSFileName & PrimaryKeyFieldValueZeros & "\" & PrimaryKeyFieldValu e Zeros & "_Part" & XLSPart & ".xls" End If End If End If End If exit_Sub: Exit SubProjectSpecificFileName - 2

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubProjectSpecificGlobals and Constants - 1

Option Compare Database Option Explicit ' define global fields for file processing 'Global ProcessingPartG As String ' Processing Part G of the surveyProjectSpecificPartG - 1

Option Compare Database Option Explicit Public Sub MainDriverPartG() Dim GotHousekeeping As Boolean Dim GotSurveys As Boolean

On Error GoTo ErrHandler:

RunTimeErrorFlag = False PlantErrorFlag = False

GotHousekeeping = GetFileInfo ' Get your file info for processing the transfer of xls data to access ' initalizes global file fields if data is present

If GotHousekeeping Then ' located data for the global file fields in the housekeeping table

' open the survey review and get the information ' for the surveys that are ready for extraction GotSurveys = GetSurveysToProcess If GotSurveys Then

' open up an instance of excel so we can read in the workbooks and process Call OpenExcel

' perform the extraction using the project specific modules coded up for this survey Call TransferDataDriverPartG

' Close Surveys table Call CloseSurveysTable

' Inform user extraction has been completed If RunTimeErrorFlag = False And PlantErrorFlag = False Then

MsgBox "Transfer of 'Ready for Extraction Surveys' Complete", vbInformation + vbOKOnly, "Tran s fer Completed"

'inform user if there were any errors ElseIf RunTimeErrorFlag = True Or PlantErrorFlag = True Then MsgBox "One or more plants had processing errors. Please check the Error_Log table.", vbInfo r mation + vbOKOnly End If End If

End If

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub TransferDataDriverPartG()

On Error GoTo ErrHandler:

Do While Not SurveyRS.EOF

PlantErrorFlag = False

' assign primarykeyfield value Call GetPrimaryKeyfieldValue

' build whereclause for deletion processing which occurs during re-run of extraction for a ' specific survey Call BuildWhereClause

' process through all the tables looking cleaning out the survey data tables Call DeletePreviousDataForIDPartGProjectSpecificPartG - 2

Call ProjectSpecificTransferDataDriver

' Mark the Survey as processed in the Survey Review Table Call UpdateTransferDate

SurveyRS.MoveNext Loop

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End Sub Public Sub DeletePreviousDataForIDPartG() ' This procedure go through all the tables listed in TABLESFORG and deletes the previous data out ' of them for the records that have the keyfield information we are about to process

On Error GoTo ErrHandler:

Dim TempDB As DAO.Database Dim TableGs As Recordset Dim i As Integer Dim TblName As String

Set TempDB = CurrentDb Set TableGs = TempDB.OpenRecordset("TABLESFORG") If TableGs.RecordCount > 0 Then TableGs.MoveFirst Do While Not TableGs.EOF TblName = TableGs.Fields("Tablename_g") DoCmd.SetWarnings (False) DoCmd.RunSQL "Delete * from " & TblName & DeletionWhereClause & ";" DoCmd.SetWarnings (True) TableGs.MoveNext Loop End If

exit_Sub: Exit Sub

ErrHandler: 'MsgBox Err.Description RunTimeErrorFlag = True Resume exit_Sub

End SubProjectSpecificTransferDriver - 1

Option Compare Database Option Explicit Public Sub ProjectSpecificTransferDataDriver() ' this module will be custom written for the specific needs of the data entry effort ' Based on Version, we will pull in specifc parts of the survey

On Error GoTo ErrHandler:

If MenuButtonClicked = BtnOne Then

Select Case SurveyRS!Version Case "Version 1" Call Version1Parts

Case "Version 2" Call Version2Parts

Case "Version 3" Call Version3Parts

Case "Version 4" Call Version4Parts End Select ElseIf MenuButtonClicked = BtnTwo Then ' process Part G XLSPart = "G" Call ProcessVersionParts ElseIf MenuButtonClicked = BtnThree Then ' process Part I XLSPart = "I" Call ProcessVersionParts End If exit_Sub: Exit Sub

ErrHandler: 'MsgBox Err.Description TblName = "System" FldName = "Version Number Error" ErrorDesc = SurveyRS!Version & " does not exist." Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") PlantErrorFlag = True

Resume exit_Sub End Sub

Public Sub ProcessVersionParts() ' this module will be custom written for the specific needs of the data entry effort

On Error GoTo ErrHandler:

' set up the filename so we can open the workbook Call GetXLSFilename

' open up the excel workbook that we need to extract from

If OpenExcelWorkBook = True Then

Select Case XLSPart Case "A" ProcessPartA

Case "B" ProcessPartB

Case "C" ProcessPartC

Case "D" ProcessPartDProjectSpecificTransferDriver - 2

Case "E" ProcessPartE

Case "F" ProcessPartF

Case "G" ProcessPartG

Case "H" ProcessPartH

Case "I" ProcessPartI

Case Else 'MsgBox "Part " & XLSPart & "does not exist. Contact Application Support" TblName = "System" FldName = "Part " & XLSPart & " Error" ErrorDesc = "Part " & XLSPart & " does not exist." Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") PlantErrorFlag = True Exit Sub End Select End If

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End Sub Public Sub ProcessPartA() On Error GoTo ErrHandler:

Dim csht As Integer Dim tabName As String Dim ProcessNum As String Dim Process As String

For csht = 1 To appExcel.Sheets.Count 'worksheet or sheets shtName = appExcel.Sheets(csht).Name If InStr(shtName, "Table of") > 0 Then 'table of contents 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Instructions") > 0 Then 'instructions 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Drop") > 0 Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf Right(shtName, 4) = "Copy" Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf appExcel.Sheets(csht).Visible = 0 Then 'this will take care of the Part E Section # Copy sheets 'tabName = shtName 'ProcessNum = 0 'do nothinig ElseIf Left(shtName, 14) = "Part A Section" Then 'If InStr(shtName, " Copy ") > 0 Then 'tabtype = left of "_copy_" 'check for Section 1, 2, 3 etc and do appropriate process 'tabName = shtName ProcessNum = Trim(Mid(shtName, InStr(shtName, "Section") + 8, 3))ProjectSpecificTransferDriver - 3

If Right(ProcessNum, 1) = "C" Then ProcessNum = Left(ProcessNum, 1) End If Select Case ProcessNum Case 1.1 ProcessTab_PartA_Section1_1 Case 1.2 ProcessTab_PartA_Section1_2 Case 2.1 ProcessTab_PartA_Section2_1 Case 2.2 ProcessTab_PartA_Section2_2 Case 3 ProcessTab_PartA_Section3 Case 4 ProcessTab_PartA_Section4 'Case 5 ' ProcessTab_Parta_Section5 Case 6 ProcessTab_PartA_Section6 Case 7 ProcessTab_PartA_Section7 Case 8 ProcessTab_PartA_Section8 Case 9 ProcessTab_PartA_Section9 Case 10 ProcessTab_PartA_Section10 Case 11 ProcessTab_PartA_Section11 Case 12 ProcessTab_PartA_Section12 Case 13 ProcessTab_PartA_Section13

End Select

ElseIf shtName = "Part A Comments" Then ProcessTab_PartA_Comments End If Next csht

exit_Sub: Exit Sub

ErrHandler: TblName = "System" FldName = "Part A Section " & ProcessNum ErrorDesc = Err.Description Call ErrorLogUpdate(TblName, FldName, ErrorDesc, "Does not matter") PlantErrorFlag = True

Resume exit_Sub

End Sub Public Sub ProcessPartB() On Error GoTo ErrHandler:

Dim csht As Integer 'Dim shtName As String Dim tabName As String Dim ProcessNum As String Dim Process As String 'Dim inputRS As Recordset 'Dim outputDB As DAO.Database 'Dim outputRS As DAO.Recordset

'Set outputDB = CurrentDb() 'Set outputRS = outputDB.OpenRecordset("ProcesstoRun", dbOpenDynaset)ProjectSpecificTransferDriver - 4

For csht = 1 To appExcel.Sheets.Count 'worksheet or sheets ' MsgBox appexcel.Sheets(csht).Name shtName = appExcel.Sheets(csht).Name If InStr(shtName, "Table of") > 0 Then 'table of contents 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Instructions") > 0 Then 'instructions 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Drop") > 0 Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf Right(shtName, 4) = "Copy" Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf appExcel.Sheets(csht).Visible = 0 Then 'this will take care of the Part E Section # Copy sheets 'tabName = shtName 'ProcessNum = 0 'do nothinig ElseIf Left(shtName, 14) = "Part B Section" Then 'If InStr(shtName, " Copy ") > 0 Then 'tabtype = left of "_copy_" 'check for Section 1, 2, 3 etc and do appropriate process 'tabName = shtName ProcessNum = Trim(Mid(shtName, InStr(shtName, "Section") + 8, 3)) If Right(ProcessNum, 1) = "C" Then ProcessNum = Left(ProcessNum, 1) End If Select Case ProcessNum Case 1 ProcessTab_PartB_Section1 Case 2 ProcessTab_PartB_Section2 Case 3 ProcessTab_PartB_Section3 Case 4 ProcessTab_PartB_Section4 Case "4 T" ProcessTab_PartB_Section4Tables Case 5 ProcessTab_PartB_Section5 Case 6 ProcessTab_PartB_Section6 Case "6 T" ProcessTab_PartB_Section6Tables Case 7 ProcessTab_PartB_Section7 Case 8 ProcessTab_PartB_Section8 Case "8 T" ProcessTab_PartB_Section8Tables

End Select 'ElseIf InStr(shtName, "Copy") = 0 Then ' tabName = shtName ' ProcessNum = "E" & Right(shtName, 1) 'End If ElseIf shtName = "Part B Comments" Then ProcessTab_PartB_Comments End If Next csht

exit_Sub: Exit Sub

Call CloseTableProjectSpecificTransferDriver - 5

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub ProcessPartC() On Error GoTo ErrHandler:

Dim csht As Integer 'Dim shtName As String Dim tabName As String Dim ProcessNum As String Dim Process As String 'Dim inputRS As Recordset 'Dim outputDB As DAO.Database 'Dim outputRS As DAO.Recordset

'Set outputDB = CurrentDb() 'Set outputRS = outputDB.OpenRecordset("ProcesstoRun", dbOpenDynaset)

For csht = 1 To appExcel.Sheets.Count 'worksheet or sheets ' MsgBox appexcel.Sheets(csht).Name shtName = appExcel.Sheets(csht).Name If InStr(shtName, "Table of") > 0 Then 'table of contents 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Instructions") > 0 Then 'instructions 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Drop") > 0 Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf Right(shtName, 4) = "Copy" Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf appExcel.Sheets(csht).Visible = 0 Then 'this will take care of the Part E Section # Copy sheets 'tabName = shtName 'ProcessNum = 0 'do nothinig ElseIf Left(shtName, 14) = "Part C Section" Then 'If InStr(shtName, " Copy ") > 0 Then 'tabtype = left of "_copy_" 'check for Section 1, 2, 3 etc and do appropriate process 'tabName = shtName ProcessNum = Trim(Mid(shtName, InStr(shtName, "Section") + 8, 3)) ProcessNum = Trim(Mid(shtName, InStr(shtName, "Section") + 8, 3)) If Right(ProcessNum, 1) = "C" Then ProcessNum = Left(ProcessNum, 1) End If Select Case ProcessNum Case 1 ProcessTab_PartC_Section1 Case 2.1 ProcessTab_PartC_Section2_1 Case 2.2 ProcessTab_PartC_Section2_2 Case 2.3 ProcessTab_PartC_Section2_3 Case 2.4 ProcessTab_PartC_Section2_4 Case 2.5 ProcessTab_PartC_Section2_5 Case 3.1 ProcessTab_PartC_Section3_1ProjectSpecificTransferDriver - 6

Case 3.2 ProcessTab_PartC_Section3_2 Case 3.3 ProcessTab_PartC_Section3_3 Case 3.4 ProcessTab_PartC_Section3_4 Case 3.5 ProcessTab_PartC_Section3_5 Case 4 ProcessTab_PartC_Section4 Case 5 ProcessTab_PartC_Section5 End Select 'ElseIf InStr(shtName, "Copy") = 0 Then ' tabName = shtName ' ProcessNum = "E" & Right(shtName, 1) 'End If ElseIf shtName = "Part C Comments" Then ProcessTab_PartC_Comments End If Next csht

exit_Sub: Exit Sub

Call CloseTable

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub ProcessPartD() On Error GoTo ErrHandler:

Dim csht As Integer 'Dim shtName As String Dim tabName As String Dim ProcessNum As String Dim Process As String 'Dim inputRS As Recordset 'Dim outputDB As DAO.Database 'Dim outputRS As DAO.Recordset

'Set outputDB = CurrentDb() 'Set outputRS = outputDB.OpenRecordset("ProcesstoRun", dbOpenDynaset)

For csht = 1 To appExcel.Sheets.Count 'worksheet or sheets ' MsgBox appexcel.Sheets(csht).Name shtName = appExcel.Sheets(csht).Name If InStr(shtName, "Table") > 0 Then 'table of contents 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Instructions") > 0 Then 'instructions 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Drop") > 0 Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf Right(shtName, 4) = "Copy" Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf appExcel.Sheets(csht).Visible = 0 Then 'this will take care of the Part E Section # Copy sheets 'tabName = shtName 'ProcessNum = 0 'do nothinigProjectSpecificTransferDriver - 7

ElseIf Left(shtName, 14) = "Part D Section" Then 'If InStr(shtName, " Copy ") > 0 Then 'tabtype = left of "_copy_" 'check for Section 1, 2, 3 etc and do appropriate process 'tabName = shtName ProcessNum = Trim(Mid(shtName, InStr(shtName, "Section") + 8, 3)) Select Case ProcessNum Case 1 ProcessTab_PartD_Section1 Case 2 ProcessTab_PartD_Section2 Case 3.1 ProcessTab_PartD_Section3_1 Case 3.2 ProcessTab_PartD_Section3_2 Case 4.1 ProcessTab_PartD_Section4_1 Case 4.2 ProcessTab_PartD_Section4_2 Case 5.1 ProcessTab_PartD_Section5_1 Case 5.2 ProcessTab_PartD_Section5_2 Case 6.1 ProcessTab_PartD_Section6_1 Case 6.2 ProcessTab_PartD_Section6_2 End Select 'ElseIf InStr(shtName, "Copy") = 0 Then ' tabName = shtName ' ProcessNum = "E" & Right(shtName, 1) 'End If ElseIf shtName = "Part D Comments" Then ProcessTab_PartD_Comments End If Next csht

exit_Sub: Exit Sub

Call CloseTable

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub ProcessPartE() On Error GoTo ErrHandler:

Dim csht As Integer 'Dim shtName As String Dim tabName As String Dim ProcessNum As String Dim Process As String 'Dim inputRS As Recordset 'Dim outputDB As DAO.Database 'Dim outputRS As DAO.Recordset

'Set outputDB = CurrentDb() 'Set outputRS = outputDB.OpenRecordset("ProcesstoRun", dbOpenDynaset)

For csht = 1 To appExcel.Sheets.Count 'worksheet or sheets ' MsgBox appexcel.Sheets(csht).Name shtName = appExcel.Sheets(csht).Name If InStr(shtName, "Table") > 0 Then 'table of contents 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Instructions") > 0 Then 'instructions 'tabName = shtNameProjectSpecificTransferDriver - 8

'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Drop") > 0 Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf Right(shtName, 4) = "Copy" Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf appExcel.Sheets(csht).Visible = 0 Then 'this will take care of the Part E Section # Copy sheets 'tabName = shtName 'ProcessNum = 0 'do nothinig ElseIf Left(shtName, 14) = "Part E Section" Then 'If InStr(shtName, " Copy ") > 0 Then 'tabtype = left of "_copy_" 'check for Section 1, 2, 3 etc and do appropriate process 'tabName = shtName ProcessNum = Mid(shtName, InStr(shtName, "Section") + 8, 1) Select Case ProcessNum Case 1 ProcessTab_PartE_Section1 Case 2 ProcessTab_PartE_Section2 Case 3 ProcessTab_PartE_Section3 End Select 'ElseIf InStr(shtName, "Copy") = 0 Then ' tabName = shtName ' ProcessNum = "E" & Right(shtName, 1) 'End If ElseIf shtName = "Part E Comments" Then ProcessTab_PartE_Comments End If Next csht

' Process xls sheet tabs 'Dim csht As Integer 'Dim tblShtName As String 'Dim xlShtName As String 'Dim currTabName As String 'Dim ProcessNum As String 'Dim inputDB As DAO.Database 'Dim inputRS As DAO.Recordset 'Dim outputDB As DAO.Database 'Dim outputRS As DAO.Recordset

'inputDB = CurrentDb() 'inputRS = inputDB.OpenRecordset("ProcesstoRun", dbOpenDynaset) 'inputRS.MoveFirst

'Do Until inputRS.EOF ' tblShtName = inputRS!SheetName ' ProcessNum = inputRS!ProcesstoRun ' For csht = 1 To appexcel.sheets.Count 'worksheet or sheets ' xlShtName = appexcel.sheets(csht).Name ' If tblShtName = xlShtName Then ' Select Case ProcessNum ' Case 0 ' Case E1 ' Case E2 ' Case E3 ' End Select ' End If ' Next csht 'End

exit_Sub: Exit SubProjectSpecificTransferDriver - 9

Call CloseTable

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub ProcessPartF() On Error GoTo ErrHandler:

Dim csht As Integer 'Dim shtName As String Dim tabName As String Dim ProcessNum As String Dim Process As String

For csht = 1 To appExcel.Sheets.Count 'worksheet or sheets 'MsgBox appexcel.Sheets(csht).Name shtName = appExcel.Sheets(csht).Name If InStr(shtName, "Table") > 0 Then 'table of contents 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Instructions") > 0 Then 'instructions 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Drop") > 0 Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf Right(shtName, 4) = "Copy" Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf appExcel.Sheets(csht).Visible = 0 Then 'this will take care of the Part E Section # Copy sheets 'tabName = shtName 'ProcessNum = 0 'do nothinig ElseIf Left(shtName, 14) = "Part F Section" Then 'If InStr(shtName, " Copy ") > 0 Then 'tabtype = left of "_copy_" 'check for Section 1, 2, 3 etc and do appropriate process 'tabName = shtName ProcessNum = Trim(Mid(shtName, InStr(shtName, "Section") + 8, 3)) ProcessNum = Trim(Mid(shtName, InStr(shtName, "Section") + 8, 3)) If Right(ProcessNum, 1) = "C" Then ProcessNum = Left(ProcessNum, 1) End If Select Case ProcessNum Case 1 ProcessTab_PartF_Section1 Case 2 ProcessTab_PartF_Section2 Case 3.1 ProcessTab_PartF_Section3_1 Case 3.2 ProcessTab_PartF_Section3_2 Case 4.1 ProcessTab_PartF_Section4_1 Case 4.2 ProcessTab_PartF_Section4_2 Case 4.3 ProcessTab_PartF_Section4_3 Case 4.4 ProcessTab_PartF_Section4_4 Case 4.5 ProcessTab_PartF_Section4_5 Case 4.6ProjectSpecificTransferDriver - 10

ProcessTab_PartF_Section4_6 Case 5 ProcessTab_PartF_Section5 End Select 'ElseIf InStr(shtName, "Copy") = 0 Then ' tabName = shtName ' ProcessNum = "E" & Right(shtName, 1) 'End If ElseIf shtName = "Part F Comments" Then ProcessTab_PartF_Comments End If Next csht

exit_Sub: Exit Sub

Call CloseTable

ErrHandler: MsgBox Err.Description Resume exit_Sub End Sub Public Sub ProcessPartG()

On Error GoTo ErrHandler:

Dim csht As Integer Dim tabName As String Dim ProcessNum As String Dim Process As String

For csht = 1 To appExcel.Sheets.Count 'worksheet or sheets ' MsgBox appexcel.Sheets(csht).Name shtName = appExcel.Sheets(csht).Name If InStr(shtName, "Table") > 0 Then 'table of contents 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Instructions") > 0 Then 'instructions 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Drop") > 0 Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf Right(shtName, 4) = "Copy" Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf appExcel.Sheets(csht).Visible = 0 Then 'this will take care of the Part E Section # Copy sheets 'tabName = shtName 'ProcessNum = 0 'do nothinig ElseIf Left(shtName, 14) = "Part G Section" Then 'If InStr(shtName, " Copy ") > 0 Then 'tabtype = left of "_copy_" 'check for Section 1, 2, 3 etc and do appropriate process 'tabName = shtName ProcessNum = Mid(shtName, InStr(shtName, "Section") + 8, 1) Select Case ProcessNum Case 1 ' ProcessTab_PartG_Section1 Case 2 ProcessTab_PartG_Section2 Case 3 ProcessTab_PartG_Section3 Case 4 ProcessTab_PartG_Section4 Case 5ProjectSpecificTransferDriver - 11

ProcessTab_PartG_Section5 End Select

ElseIf InStr(shtName, "Sampling") <> 0 Then ProcessTab_PartG_Sampling_Results ElseIf shtName = "Part G Comments" Then ProcessTab_PartG_Comments End If Next csht

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub ProcessPartH()

Dim csht As Integer 'Dim shtName As String Dim tabName As String Dim ProcessNum As String Dim Process As String

For csht = 1 To appExcel.Sheets.Count 'worksheet or sheets ' MsgBox appexcel.Sheets(csht).Name shtName = appExcel.Sheets(csht).Name If InStr(shtName, "Table") > 0 Then 'table of contents 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Instructions") > 0 Then 'instructions 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Drop") > 0 Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf Right(shtName, 4) = "Copy" Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf appExcel.Sheets(csht).Visible = 0 Then 'this will take care of the Part E Section # Copy sheets 'tabName = shtName 'ProcessNum = 0 'do nothinig ElseIf Left(shtName, 14) = "Part H Section" Then 'If InStr(shtName, " Copy ") > 0 Then 'tabtype = left of "_copy_" 'check for Section 1, 2, 3 etc and do appropriate process 'tabName = shtName ProcessNum = Mid(shtName, InStr(shtName, "Section") + 8, 1) Select Case ProcessNum Case 1 ProcessTab_PartH_Section1 Case 2 ProcessTab_PartH_Section2 Case 3 ProcessTab_PartH_Section3 End Select 'ElseIf InStr(shtName, "Copy") = 0 Then ' tabName = shtName ' ProcessNum = "E" & Right(shtName, 1) 'End If ElseIf shtName = "Part H Comments" Then ProcessTab_PartH_Comments End IfProjectSpecificTransferDriver - 12

Next csht

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub

End Sub Public Sub ProcessPartI() On Error GoTo ErrHandler:

Dim csht As Integer

Dim tabName As String Dim ProcessNum As String Dim Process As String

For csht = 1 To appExcel.Sheets.Count 'worksheet or sheets ' MsgBox appexcel.Sheets(csht).Name shtName = appExcel.Sheets(csht).Name If InStr(shtName, "Table") > 0 Then 'table of contents 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Instructions") > 0 Then 'instructions 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf InStr(shtName, "Drop") > 0 Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf Right(shtName, 4) = "Copy" Then 'tabName = shtName 'ProcessNum = 0 'do nothing ElseIf appExcel.Sheets(csht).Visible = 0 Then 'this will take care of the Part E Section # Copy sheets 'tabName = shtName 'ProcessNum = 0 'do nothinig ElseIf Left(shtName, 14) = "Part I Section" Then 'If InStr(shtName, " Copy ") > 0 Then 'tabtype = left of "_copy_" 'check for Section 1, 2, 3 etc and do appropriate process 'tabName = shtName ProcessNum = Trim(Mid(shtName, InStr(shtName, "Section") + 8, 3)) If Right(ProcessNum, 1) = "C" Then ProcessNum = Left(ProcessNum, 1) End If Select Case ProcessNum Case 1 ProcessTab_PartI_Section1 Case 2 ProcessTab_PartI_Section2 Case 3 ProcessTab_PartI_Section3 Case 4.1 ProcessTab_PartI_Section4_1 Case 4.2 ProcessTab_PartI_Section4_2 Case 5.1 ProcessTab_PartI_Section5_1 Case 5.2 ProcessTab_PartI_Section5_2 Case 5.3 ProcessTab_PartI_Section5_3 End Select 'ElseIf InStr(shtName, "Copy") = 0 ThenProjectSpecificTransferDriver - 13

' tabName = shtName ' ProcessNum = "E" & Right(shtName, 1) 'End If ElseIf shtName = "Part I Comments" Then ProcessTab_PartI_Comments End If Next csht

exit_Sub: Exit Sub

Call CloseTable

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubProjectSpecificVersionPartsProcessing - 1

Option Compare Database Option Explicit

Public Sub Version1Parts() ' for Version 1, we want to process Parts A,B,C,D,E,F,H

On Error GoTo ErrHandler:

' process Part A XLSPart = "A" Call ProcessVersionParts

'if this survey is not a kick-out survey, there will parts B,C,D,E,F,H If SurveyRS![PART A KICK-OUT] = False Then

' process Part B XLSPart = "B" Call ProcessVersionParts

' process Part C XLSPart = "C" Call ProcessVersionParts

' process Part D XLSPart = "D" Call ProcessVersionParts

' process Part E XLSPart = "E" Call ProcessVersionParts

' process Part F XLSPart = "F" Call ProcessVersionParts

' process Part H XLSPart = "H" Call ProcessVersionParts End If

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End Sub

Public Sub Version2Parts() ' for Version 2, we want to process Parts A,B,C,D,H

On Error GoTo ErrHandler:

' process Part A XLSPart = "A" Call ProcessVersionParts

'if this survey is not a kick-out survey, there will parts B,C,D,H If SurveyRS![PART A KICK-OUT] = False Then

' process Part B XLSPart = "B" Call ProcessVersionParts

' process Part C XLSPart = "C" Call ProcessVersionParts

' process Part DProjectSpecificVersionPartsProcessing - 2

XLSPart = "D" Call ProcessVersionParts

' process Part H XLSPart = "H" Call ProcessVersionParts End If

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End Sub

Public Sub Version3Parts() ' for Version 3, we want to process Parts A,B,C,D,E,H

On Error GoTo ErrHandler:

' process Part A XLSPart = "A" Call ProcessVersionParts

'if this survey is not a kick-out survey, there will parts B,C,D,E,H If SurveyRS![PART A KICK-OUT] = False Then

' process Part B XLSPart = "B" Call ProcessVersionParts

' process Part C XLSPart = "C" Call ProcessVersionParts

' process Part D XLSPart = "D" Call ProcessVersionParts

' process Part E XLSPart = "E" Call ProcessVersionParts

' process Part H XLSPart = "H" Call ProcessVersionParts End If

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End Sub

Public Sub Version4Parts() ' for Version 4, we want to process Parts A,E,H

On Error GoTo ErrHandler:

' process Part A XLSPart = "A" Call ProcessVersionParts

'if this survey is not a kick-out survey, there will parts E,H If SurveyRS![PART A KICK-OUT] = False ThenProjectSpecificVersionPartsProcessing - 3

' process Part E XLSPart = "E" Call ProcessVersionParts

' process Part H XLSPart = "H" Call ProcessVersionParts End If

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubQCroutines - 1

Option Compare Database

Private Sub getFieldDescriptions() Dim db As Database Dim td As TableDef Dim fld As Field Dim s As String Dim sDesc As String On Error Resume Next Set db = CurrentDb() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE FROM zQC_field_descriptions" For Each td In db.TableDefs If td.Name <> "zQC_field_descriptions" And InStr(td.Name, "MSys") = 0 Then For Each fld In td.Fields sDesc = Replace(fld.Properties("Description"), "'", "''") If Err.Number = 3270 Then Err.Clear sDesc = "<None>" End If s = "INSERT INTO zQC_field_descriptions ( table_name, field_name, field_description ) VAL U ES ('" & td.Name & "','" & fld.Name & "','" & sDesc & "')" DoCmd.RunSQL s Next End If Next Set fld = Nothing Set td = Nothing Set db = Nothing DoCmd.SetWarnings True MsgBox "done" End SubTab_PartA_Comments - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartA_Comments()

On Error GoTo ErrHandler:

' Tab PartA_Comments

Call OpenExcelSheet(shtName) Call OpenTable("PartA_Comments")

' define data parameters for processing this tab AnswerColumn = "D" FieldColumn = "E"

'process row 1 DataBegins = 301 DataEnds = 304 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 305 DataEnds = 308 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 309 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 313 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 317 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 321 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 325 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 333 DataEnds = 336 Call Copy_XLSData_to_Table

'process row 10 DataBegins = 337Tab_PartA_Comments - 2

DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 373 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 377 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 381 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22Tab_PartA_Comments - 3

DataBegins = 385 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 389 DataEnds = 392 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 393 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 397 DataEnds = 400 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 401 DataEnds = 404 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 405 DataEnds = 408 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 409 DataEnds = 412 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 413 DataEnds = 416 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 417 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 31 DataBegins = 421 DataEnds = 424 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 32 DataBegins = 425 DataEnds = 428 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 33 DataBegins = 429 DataEnds = 432 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartA_Comments - 4

'process row 34 DataBegins = 433 DataEnds = 436 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the sheet and the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section1_1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartA_Section1_1()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 1.1" ' Tab PartA_Section1_1 ' Process TablePlant_Contact_Info Call OpenExcelSheet(shtName) Call OpenTable("Plant_Contact_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 363

' copy the data over to the table Call Copy_XLSData_to_Table

' close the sheet and the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section1_2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartA_Section1_2()

On Error GoTo ErrHandler:

' Tab PartA_Section1.2 '"Part A Section 1.2" 'Process

Call OpenExcelSheet(shtName) Call OpenTable("Plant_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 364

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section10 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section10()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 10" ' Tab Part A Section 10

Call OpenExcelSheet(shtName) Call OpenTable("Mercury_Controls")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 308 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 329 DataEnds = 349 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 350 DataEnds = 370 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 371 DataEnds = 391 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 392 DataEnds = 412 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 413 DataEnds = 433 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 434 DataEnds = 454 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab Part A Section 9 Call OpenExcelSheet(shtName) Call OpenTable("Mercury_Control_Studies")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"Tab_PartA_Section10 - 2

DataBegins = 455 DataEnds = 469 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section11 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section11()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 11" ' Tab Part A Section 11

Call OpenExcelSheet(shtName) Call OpenTable("Carbon_Capture")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 306 DataEnds = 325 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 326 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 346 DataEnds = 365 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 366 DataEnds = 385 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 386 DataEnds = 405 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 406 DataEnds = 425 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 426 DataEnds = 445 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab Part A Section 9 Call OpenExcelSheet(shtName) Call OpenTable("Carbon_Capture_Studies")

' define data parameters for processing this tab AnswerColumn = "E"Tab_PartA_Section11 - 2

FieldColumn = "F" DataBegins = 446 DataEnds = 466 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section12 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section12()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 12" ' Tab Part A Section 12 Call OpenExcelSheet(shtName) Call OpenTable("Wet_ESP")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 308 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 329 DataEnds = 349 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 350 DataEnds = 370 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 371 DataEnds = 391 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 392 DataEnds = 412 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 413 DataEnds = 433 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 434 DataEnds = 454 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab Part A Section 12 Call OpenExcelSheet(shtName) Call OpenTable("Wet_ESP_WW")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"Tab_PartA_Section12 - 2

DataBegins = 455 DataEnds = 515 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section13 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section13()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 13" ' Tab Part A Section 13 Call OpenExcelSheet(shtName) Call OpenTable("Coal_Processing")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 401 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section2_1 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section2_1()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 2.1" ' Tab Part A Section 2.1 Call OpenExcelSheet(shtName) Call OpenTable("Plant_IDs_Pend_Permits")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 311

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab ' Process

Call OpenExcelSheet(shtName) Call OpenTable("Plant_Permits")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 312 DataEnds = 319 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 320 DataEnds = 327 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 328 DataEnds = 335 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 336 DataEnds = 343 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 344 DataEnds = 351 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 352 DataEnds = 359 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartA_Section2_1 - 2

'process row 7 DataBegins = 360 DataEnds = 367 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 368 DataEnds = 375 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 376 DataEnds = 383 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 384 DataEnds = 391 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 392 DataEnds = 399 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 400 DataEnds = 407 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 408 DataEnds = 415 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 416 DataEnds = 423 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 424 DataEnds = 431 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section2_2 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section2_2()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part A Section 2.2 Call OpenExcelSheet(shtName) Call OpenTable("Plant_Outfalls")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 298 DataEnds = 323

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab ' Process

Call OpenExcelSheet(shtName) Call OpenTable("Plant_Outfalls_Flow")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 324 DataEnds = 336

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section3 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section3()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 3" ' Tab Part A Section 3 Call OpenExcelSheet(shtName) Call OpenTable("Plant_Systems_Summary")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 313

' copy the data over to the table Call Copy_XLSData_to_Table

' close the sheet table Call CloseTable

' Process xls sheet tabs

' Tab ' Process

Call OpenExcelSheet(shtName) Call OpenTable("Pond_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 314 DataEnds = 329 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 330 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 346 DataEnds = 361 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 362 DataEnds = 377 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 378 DataEnds = 393 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 394 DataEnds = 409 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartA_Section3 - 2

'process row 7 DataBegins = 410 DataEnds = 425 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 426 DataEnds = 441 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 442 DataEnds = 457 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 458 DataEnds = 473 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 474 DataEnds = 489 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 490 DataEnds = 505 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 506 DataEnds = 521 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 522 DataEnds = 537 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 538 DataEnds = 553 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 554 DataEnds = 569 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 570 DataEnds = 585 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 586 DataEnds = 601 ' copy the data over to the tableTab_PartA_Section3 - 3

Call Copy_XLSData_to_Table

'process row 19 DataBegins = 602 DataEnds = 617 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 618 DataEnds = 633 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 634 DataEnds = 649 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22 DataBegins = 650 DataEnds = 665 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 666 DataEnds = 681 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the sheet and the table Call CloseTable

' Process xls sheet tabs

' Tab ' Process

Call OpenExcelSheet(shtName) Call OpenTable("Pond_Storage")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 682 DataEnds = 705 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 706 DataEnds = 729 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 730 DataEnds = 753 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 754 DataEnds = 777 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartA_Section3 - 4

'process row 5 DataBegins = 778 DataEnds = 801 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 802 DataEnds = 825 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 826 DataEnds = 849 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 850 DataEnds = 873 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 874 DataEnds = 897 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 898 DataEnds = 921 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 922 DataEnds = 945 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 946 DataEnds = 969 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 970 DataEnds = 993 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 994 DataEnds = 1017 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section3 - 5Tab_PartA_Section4 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section4()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 4" ' Tab Part A Section 4

Call OpenExcelSheet(shtName) Call OpenTable("Landfill_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 317 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 333 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 349 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 365 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 381 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 397 DataEnds = 412 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 413 DataEnds = 428 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 429 DataEnds = 444 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartA_Section4 - 2

'process row 10 DataBegins = 445 DataEnds = 460 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 461 DataEnds = 476 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 477 DataEnds = 492 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab ' Process Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Storage")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 493 DataEnds = 506 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 507 DataEnds = 520 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 521 DataEnds = 534 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 535 DataEnds = 548 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 549 DataEnds = 562 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 563 DataEnds = 576 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 577 DataEnds = 590Tab_PartA_Section4 - 3

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 591 DataEnds = 604 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 605 DataEnds = 618 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 619 DataEnds = 632 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the sheet and the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section6 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section6()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 6" ' Tab Part A Section 6 Call OpenExcelSheet(shtName) Call OpenTable("SE_Units_Operating")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 322 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 323 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 345 DataEnds = 366 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 367 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 389 DataEnds = 410 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 411 DataEnds = 432 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 433 DataEnds = 454 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 455 DataEnds = 476 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 477 DataEnds = 498 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10Tab_PartA_Section6 - 2

DataBegins = 499 DataEnds = 520 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab ' Process Call OpenExcelSheet(shtName) Call OpenTable("SE_Units_Planned")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 521 DataEnds = 549 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 550 DataEnds = 578 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 579 DataEnds = 607 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 608 DataEnds = 636 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section7 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section7()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 7" ' Tab Part A Section 7 Call OpenExcelSheet(shtName) Call OpenTable("Cooling_Systems")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 309 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 346 DataEnds = 382 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 383 DataEnds = 419 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 420 DataEnds = 456 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 457 DataEnds = 493 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 494 DataEnds = 530 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab ' Process

Call OpenExcelSheet(shtName) Call OpenTable("CS_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 531 DataEnds = 541 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartA_Section7 - 2

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section8 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section8()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part A Section 8" ' Tab Part A Section 8 Call OpenExcelSheet(shtName) Call OpenTable("Fuel_Usage")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 302 DataEnds = 386 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the sheet Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartA_Section9 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartA_Section9()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part A Section 9 Call OpenExcelSheet(shtName) Call OpenTable("NOx_Controls")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 325 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 349 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 373 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 397 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 421 DataEnds = 444 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 445 DataEnds = 468 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 469 DataEnds = 492 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab Part A Section 9 Call OpenExcelSheet(shtName)Tab_PartA_Section9 - 2

Call OpenTable("SCR_Catalyst_Regen_Unit")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 493 DataEnds = 503 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 504 DataEnds = 514 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 515 DataEnds = 525 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 526 DataEnds = 536 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 537 DataEnds = 547 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 548 DataEnds = 558 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 559 DataEnds = 569 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 570 DataEnds = 580 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab ' Process Call OpenExcelSheet(shtName) Call OpenTable("SCR_Catalyst_Regen_Plant")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 581 DataEnds = 622 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartA_Section9 - 3

' close the table Call CloseTable

' Process xls sheet tabs

' Tab ' Process Call OpenExcelSheet(shtName) Call OpenTable("SCR_Catalyst_Wash")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 623 DataEnds = 656 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Comments - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Comments()

On Error GoTo ErrHandler:

' Tab PartB_Comments

'Process FGD_Comments Call OpenExcelSheet(shtName) Call OpenTable("PartB_Comments")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 304 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 305 DataEnds = 308 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 309 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 313 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 317 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 321 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 325 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 333 DataEnds = 336 Call Copy_XLSData_to_Table

'process row 10Tab_PartB_Comments - 2

DataBegins = 337 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 373 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 377 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 381 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartB_Comments - 3

'process row 22 DataBegins = 385 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 389 DataEnds = 392 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartB_Section1 Call OpenExcelSheet(shtName) Call OpenTable("FGD_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 307

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartB_Section1

'Process FGD_Systems Call OpenExcelSheet(shtName) Call OpenTable("FGD_Systems")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 308 DataEnds = 338 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 339 DataEnds = 369 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 370 DataEnds = 400 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 401 DataEnds = 431 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 432 DataEnds = 462 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 463 DataEnds = 493 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartB_Section1 - 2

'process row 7 DataBegins = 494 DataEnds = 524 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 525 DataEnds = 555 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the sheet and the table 'Call CloseSheetandTable Call CloseTable

'close the table 'OutRS.Close Set OutRs = Nothing

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section2()

On Error GoTo ErrHandler:

' Tab PartB_Section2

'Process FGD_Pl_Systems Call OpenExcelSheet(shtName) Call OpenTable("FGD_Pl_Systems")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 310 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 311 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 321 DataEnds = 330 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 331 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 341 DataEnds = 350 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 351 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section3 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartB_Section3()

On Error GoTo ErrHandler: ' Process xls sheet tabs

' Tab Part B Section 3 Call OpenExcelSheet(shtName) Call OpenTable("FGD_Additives")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 319 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 320 DataEnds = 338 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 339 DataEnds = 357 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 358 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 377 DataEnds = 395 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 396 DataEnds = 414 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 415 DataEnds = 433 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 434 DataEnds = 452 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 453 DataEnds = 471

' copy the data over to the table Call Copy_XLSData_to_Table

' close the tableTab_PartB_Section3 - 2

Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section4 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section4()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartB_Section4 Call OpenExcelSheet(shtName) Call OpenTable("FGD_Wet_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 417

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section4Tables - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section4Tables()

On Error GoTo ErrHandler:

' Tab PartB_Section4 Tables

'Process FGD_Wet_Solids_Dest Call OpenExcelSheet(shtName) Call OpenTable("FGD_Wet_Solids_Dest")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 335

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartB_Section4 Tables

'Process FGD_Wet_Solids_Mkt/Sold Call OpenExcelSheet(shtName) Call OpenTable("FGD_Wet_Solids_Mkt_Sold")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 336 DataEnds = 382

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartB_Section4 Tables

'Process FGD_Wet_Solids_Cost Call OpenExcelSheet(shtName) Call OpenTable("FGD_Wet_Solids_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 383 DataEnds = 415

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section4Tables - 2Tab_PartB_Section5 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section5()

On Error GoTo ErrHandler:

' Tab PartB_Section5

'Process FGD_Wet_Sources_Flow Call OpenExcelSheet(shtName) Call OpenTable("FGD_Wet_Sources_Flow")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 315 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2

' fix the Drop Down 83 cell link missing problem on Tab Part B Section 5 appExcel.activesheet.Unprotect ("FinalSteamLocked0510") appExcel.activesheet.Shapes("Drop Down 83").Select appExcel.activesheet.Shapes("Drop Down 83").ControlFormat.LinkedCell = "$D$319" 'With appExcel.activesheet.Selection 'ListFillRange = "'Drop Downs'!$G$5:$G$44" ' .LinkedCell = "$D$319" 'DropDownLines = 8 'Display3DShading = False 'ListFillRange = "AdminSkillsProfessions!$B$510:$B$" & x

'End With

DataBegins = 316 DataEnds = 330 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 331 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 346 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 361 DataEnds = 375 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 376 DataEnds = 390 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartB_Section5Tab_PartB_Section5 - 2

'Process FGD_Wet_Water_Gen Call OpenExcelSheet(shtName) Call OpenTable("FGD_Wet_Water_Gen")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 391 DataEnds = 402 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 403 DataEnds = 414 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 415 DataEnds = 426 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 427 DataEnds = 438 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 439 DataEnds = 450 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 451 DataEnds = 462 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section6 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section6()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartB_Section6 Call OpenExcelSheet(shtName) Call OpenTable("FGD_Monitoring_Data")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 303

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section6Tables - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section6Tables()

On Error GoTo ErrHandler:

' Tab PartB_Section6Tables

'Process FGD_Monitoring_Data_Results Call OpenExcelSheet(shtName) Call OpenTable("FGD_Monitoring_Data_Results")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 319 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 320 DataEnds = 338 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 339 DataEnds = 357 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 358 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 377 DataEnds = 395 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 396 DataEnds = 414 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 415 DataEnds = 433 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 434 DataEnds = 452 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 453 DataEnds = 471 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartB_Section6Tables - 2

'process row 10 DataBegins = 472 DataEnds = 490 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 491 DataEnds = 509 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 510 DataEnds = 528 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 529 DataEnds = 547 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 548 DataEnds = 566 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 567 DataEnds = 585 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 586 DataEnds = 604 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 605 DataEnds = 623 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 624 DataEnds = 642

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 643 DataEnds = 661 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 662 DataEnds = 680 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22 DataBegins = 681 DataEnds = 699 ' copy the data over to the tableTab_PartB_Section6Tables - 3

Call Copy_XLSData_to_Table

'process row 23 DataBegins = 700 DataEnds = 718 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 719 DataEnds = 737 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 738 DataEnds = 756 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 757 DataEnds = 775 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 776 DataEnds = 794 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 795 DataEnds = 813 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 814 DataEnds = 832 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 833 DataEnds = 851 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 31 DataBegins = 852 DataEnds = 870 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 32 DataBegins = 871 DataEnds = 889 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 33 DataBegins = 890 DataEnds = 908 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 34 DataBegins = 909 DataEnds = 927Tab_PartB_Section6Tables - 4

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 35 DataBegins = 928 DataEnds = 946 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 36 DataBegins = 947 DataEnds = 965 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 37 DataBegins = 966 DataEnds = 984 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 38 DataBegins = 985 DataEnds = 1003 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 39 DataBegins = 1004 DataEnds = 1022 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 40 DataBegins = 1023 DataEnds = 1041 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 41 DataBegins = 1042 DataEnds = 1060 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 41 DataBegins = 1061 DataEnds = 1079 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartB_Section6 Call OpenExcelSheet(shtName) Call OpenTable("FGD_Monitoring_Data_ID")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 1080 DataEnds = 1098

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub:Tab_PartB_Section6Tables - 5

Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section7 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section7()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartB_Section7 Call OpenExcelSheet(shtName) Call OpenTable("FGD_Wastewater_Treatment")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 346

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab PartB_Section7 Call OpenExcelSheet(shtName) Call OpenTable("FGD_Gypsum_Related_Water")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 347 DataEnds = 371

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section8 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section8()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartB_Section8 Call OpenExcelSheet(shtName) Call OpenTable("FGD_Dry_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 336

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab PartB_Section8 Call OpenExcelSheet(shtName) Call OpenTable("FGD_Dry_Wastewater")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 337 DataEnds = 383

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section8Tables - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartB_Section8Tables()

On Error GoTo ErrHandler:

' Tab PartB_Section8 Tables

'Process FGD_Dry_Solids_Dest Call OpenExcelSheet(shtName) Call OpenTable("FGD_Dry_Solids_Dest")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 335

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartB_Section8 Tables

'Process FGD_Dry_Solids_Mkt/Sold Call OpenExcelSheet(shtName) Call OpenTable("FGD_Dry_Solids_Mkt_Sold")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 336 DataEnds = 382

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartB_Section8 Tables

'Process FGD_Dry_Solids_Cost Call OpenExcelSheet(shtName) Call OpenTable("FGD_Dry_Solids_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 383 DataEnds = 415

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartB_Section8Tables - 2Tab_PartC_Comments - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Comments()

On Error GoTo ErrHandler:

' Tab PartC_Comments

'Process Ash_Comments Call OpenExcelSheet(shtName) Call OpenTable("PartC_Comments")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 304 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 305 DataEnds = 308 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 309 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 313 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 317 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 321 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 325 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 333 DataEnds = 336 Call Copy_XLSData_to_Table

'process row 10Tab_PartC_Comments - 2

DataBegins = 337 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 373 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 377 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 381 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Comments - 3

'process row 22 DataBegins = 385 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 389 DataEnds = 392 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 393 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Section1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartC_Section1 ' Process Table Ash_General Call OpenExcelSheet(shtName) Call OpenTable("Ash_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 318

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section2_1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Section2_1()

On Error GoTo ErrHandler:

' Tab_PartC_Section2_1

'Process Fly_Ash_System Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_System")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 401 DataEnds = 427

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_1

'Process Fly_Ash_Sluicing Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Sluicing")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 428 DataEnds = 455

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_1

'Process Fly_Ash_Wet_Vacuum Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Wet_Vacuum")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 456 DataEnds = 477

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section2.1

'Process Fly_Ash_Storage_Dest Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Storage_Dest")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"Tab_PartC_Section2_1 - 2

'process row 1 DataBegins = 478 DataEnds = 485 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 486 DataEnds = 493 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 494 DataEnds = 501 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 502 DataEnds = 509 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 510 DataEnds = 517 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 518 DataEnds = 525 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 526 DataEnds = 533 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 534 DataEnds = 541 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 542 DataEnds = 549 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 550 DataEnds = 557 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_1

'Process Fly_Ash_WetAndDry Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_WetAndDry")

' define data parameters for processing this tab AnswerColumn = "E"Tab_PartC_Section2_1 - 3

FieldColumn = "F" DataBegins = 558 DataEnds = 584

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_1

'Process Fly_Ash_Handling_Changes Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Handling_Changes")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 585 DataEnds = 595

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_1

'Process Fly_Ash_Dry_Retrofit Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Dry_Retrofit")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 596 DataEnds = 631

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_1

'Process Fly_Ash_Dry_Installation Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Dry_Installation")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 632 DataEnds = 692

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_1

'Process Fly_Ash_Outages Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Outages")

' define data parameters for processing this tabTab_PartC_Section2_1 - 4

AnswerColumn = "E" FieldColumn = "F" DataBegins = 693 DataEnds = 727

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section2_2 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartC_Section2_2()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab_PartC_Section2_2 ' Table Fly_Ash_Storage Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Storage")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 309 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 310 DataEnds = 318 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 319 DataEnds = 327 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 328 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 337 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 346 DataEnds = 354 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 355 DataEnds = 363 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 364 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 373 DataEnds = 381 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Section2_2 - 2

' close the table Call CloseTable

' Tab PartC_Section22 ' Process Table Fly_Ash_Mgmt Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Mgmt")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 382 DataEnds = 390 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_2 ' Table Fly_Ash_Moisten_Water Call OpenExcelSheet(shtName) Call OpenTable("Fly_Ash_Moisten_Water")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 391 DataEnds = 405 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 406 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 421 DataEnds = 435 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 436 DataEnds = 450 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 451 DataEnds = 465 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 466 DataEnds = 480 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 481 DataEnds = 495 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8Tab_PartC_Section2_2 - 3

DataBegins = 496 DataEnds = 510 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 511 DataEnds = 525 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_2 ' Table Fly_Dry_Market Call OpenExcelSheet(shtName) Call OpenTable("Fly_Dry_Market")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 526 DataEnds = 535 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 536 DataEnds = 545 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 546 DataEnds = 555 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 556 DataEnds = 565 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 566 DataEnds = 575 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 576 DataEnds = 585 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 586 DataEnds = 595 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 596 DataEnds = 605 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Section2_2 - 4

'process row 9 DataBegins = 606 DataEnds = 615 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 616 DataEnds = 625 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 626 DataEnds = 635 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 636 DataEnds = 645 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 646 DataEnds = 655 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 656 DataEnds = 665 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 666 DataEnds = 675 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section2_2 ' Table Fly_Wet_Market Call OpenExcelSheet(shtName) Call OpenTable("Fly_Wet_Market")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 676 DataEnds = 685 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 686 DataEnds = 695 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 696 DataEnds = 705 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Section2_2 - 5

'process row 4 DataBegins = 706 DataEnds = 715 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 716 DataEnds = 725 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 726 DataEnds = 735 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 736 DataEnds = 745 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 746 DataEnds = 755 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 756 DataEnds = 765 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 766 DataEnds = 775 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 776 DataEnds = 785 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 786 DataEnds = 795 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 796 DataEnds = 805 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 806 DataEnds = 815 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 816 DataEnds = 825 ' copy the data over to the tableTab_PartC_Section2_2 - 6

Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section2_3 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Section2_3()

On Error GoTo ErrHandler:

' Tab Part C Section 2.3 ' Table Fly_Cnvy_Cmpnts Call OpenExcelSheet(shtName) Call OpenTable("Fly_Cnvy_Cmpnts")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 309 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 310 DataEnds = 318 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 319 DataEnds = 327 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 328 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 337 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 346 DataEnds = 354 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 355 DataEnds = 363 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 364 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section2.3 ' Process Table Fly_Cnvy_General Call OpenExcelSheet(shtName) Call OpenTable("Fly_Cnvy_General")Tab_PartC_Section2_3 - 2

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 373 DataEnds = 388

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part C Section 2.3 ' Table Fly_Cnvy_Capital_Cost Call OpenExcelSheet(shtName) Call OpenTable("Fly_Cnvy_Capital_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 389 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 397 DataEnds = 404 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 405 DataEnds = 412 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 413 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 421 DataEnds = 428 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 429 DataEnds = 436 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 437 DataEnds = 444 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 445 DataEnds = 452 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9Tab_PartC_Section2_3 - 3

DataBegins = 453 DataEnds = 460 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 461 DataEnds = 468 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 469 DataEnds = 476 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 477 DataEnds = 484 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 485 DataEnds = 492 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section2.3 ' Process Table Fly_Cnvy_OM_Cost Call OpenExcelSheet(shtName) Call OpenTable("Fly_Cnvy_OM_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 493 DataEnds = 514

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section2_4 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Section2_4()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab_PartC_Section2_4

' Process Fly_Storage_General Call OpenExcelSheet(shtName) Call OpenTable("Fly_Storage_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 319

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part C Section 2.4 ' Table Fly_Storage_Cmpnts Call OpenExcelSheet(shtName) Call OpenTable("Fly_Storage_Cmpnts")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 320 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 329 DataEnds = 337 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 338 DataEnds = 346 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 347 DataEnds = 355 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 356 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 365 DataEnds = 373 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Section2_4 - 2

'process row 7 DataBegins = 374 DataEnds = 382 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 383 DataEnds = 391 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part C Section 2.4 ' Table Fly_Storage_Capital_Cost Call OpenExcelSheet(shtName) Call OpenTable("Fly_Storage_Capital_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 392 DataEnds = 399 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 400 DataEnds = 407 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 408 DataEnds = 415 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 416 DataEnds = 423 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 424 DataEnds = 431 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 432 DataEnds = 439 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 440 DataEnds = 447 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 448 DataEnds = 455 ' copy the data over to the tableTab_PartC_Section2_4 - 3

Call Copy_XLSData_to_Table

'process row 9 DataBegins = 456 DataEnds = 463 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 464 DataEnds = 471 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 472 DataEnds = 479 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 480 DataEnds = 487 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 488 DataEnds = 495 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section2.4 ' Process Table Fly_Storage_OM_Cost Call OpenExcelSheet(shtName) Call OpenTable("Fly_Storage_OM_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 496 DataEnds = 522

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section2_5 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Section2_5()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartC_Section2.5

' Process Fly_Trspt_Disp_General Call OpenExcelSheet(shtName) Call OpenTable("Fly_Trspt_Disp_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

' Fix reference problem for E309: coded as =Yes change to =No Answer ' changed 12/17/2010 by Liz Sabol appExcel.Range("E309").Select appExcel.activecell.Value = "No Answer" ' end fix DataBegins = 304 DataEnds = 333

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section2.5

' Process Fly_Trspt_Disp_Capital_Cost Call OpenExcelSheet(shtName) Call OpenTable("Fly_Trspt_Disp_Capital_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 334 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 341 DataEnds = 347 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 348 DataEnds = 354 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 355 DataEnds = 361 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 362 DataEnds = 368 ' copy the data over to the tableTab_PartC_Section2_5 - 2

Call Copy_XLSData_to_Table

'process row 6 DataBegins = 369 DataEnds = 375 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 376 DataEnds = 382 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 383 DataEnds = 389 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 390 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 397 DataEnds = 403 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 404 DataEnds = 410 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 411 DataEnds = 417 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 418 DataEnds = 424 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section2.5

' Process Fly_Trspt_Disp_OM_Cost Call OpenExcelSheet(shtName) Call OpenTable("Fly_Trspt_Disp_OM_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 425 DataEnds = 453

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTableTab_PartC_Section2_5 - 3

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section3_1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Section3_1()

On Error GoTo ErrHandler:

' Tab_PartC_Section3_1

'Process Btm_Ash_System Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_System")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 501 DataEnds = 533

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section3_1

'Process Btm_Ash_Sluicing Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Sluicing")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 534 DataEnds = 561

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section3_1

'Process Btm_Ash_Solids_Rmvl Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Solids_Rmvl")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 562 DataEnds = 608

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section3_1

'Process Btm_Ash_Mech_Drag Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Mech_Drag")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 609Tab_PartC_Section3_1 - 2

DataEnds = 632

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section3.1

'Process Btm_Ash_Storage_Dest Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Storage_Dest")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 633 DataEnds = 640 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 641 DataEnds = 648 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 649 DataEnds = 656 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 657 DataEnds = 664 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 665 DataEnds = 672 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 673 DataEnds = 680 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 681 DataEnds = 688 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 689 DataEnds = 696 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 697 DataEnds = 704 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Section3_1 - 3

'process row 10 DataBegins = 705 DataEnds = 712 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section3_1

'Process Btm_Ash_Dry_Handling Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Dry_Handling")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 713 DataEnds = 748

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section3_1

'Process Btm_Ash_Dry_Retrofit Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Dry_Retrofit")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 749 DataEnds = 787

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section3_1

'Process Btm_Ash_Dry_Installation Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Dry_Installation")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 788 DataEnds = 849

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section3_1

'Process Btm_Ash_Outages Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Outages")

' define data parameters for processing this tabTab_PartC_Section3_1 - 4

AnswerColumn = "E" FieldColumn = "F"

' Fix reference problem for E855 through E884: coded as offset functions to actual cell references. appExcel.Range("E855").Select appExcel.activecell.Value = "=g405"

appExcel.Range("E856").Select appExcel.activecell.Value = "=i405"

appExcel.Range("E857").Select appExcel.activecell.Value = "=q405"

appExcel.Range("E858").Select appExcel.activecell.Value = "=g403"

appExcel.Range("E859").Select appExcel.activecell.Value = "=i403"

appExcel.Range("E860").Select appExcel.activecell.Value = "=q403"

appExcel.Range("E861").Select appExcel.activecell.Value = "=g409"

appExcel.Range("E862").Select appExcel.activecell.Value = "=i409"

appExcel.Range("E863").Select appExcel.activecell.Value = "=q409"

appExcel.Range("E864").Select appExcel.activecell.Value = "=g407"

appExcel.Range("E865").Select appExcel.activecell.Value = "=i407"

appExcel.Range("E866").Select appExcel.activecell.Value = "=q407"

appExcel.Range("E867").Select appExcel.activecell.Value = "=g413"

appExcel.Range("E868").Select appExcel.activecell.Value = "=i413"

appExcel.Range("E869").Select appExcel.activecell.Value = "=q413"

appExcel.Range("E870").Select appExcel.activecell.Value = "=g411"

appExcel.Range("E871").Select appExcel.activecell.Value = "=i411"

appExcel.Range("E872").Select appExcel.activecell.Value = "=q411"

appExcel.Range("E873").Select appExcel.activecell.Value = "=g417"

appExcel.Range("E874").Select appExcel.activecell.Value = "=i417"

appExcel.Range("E875").Select appExcel.activecell.Value = "=q417"

appExcel.Range("E876").Select appExcel.activecell.Value = "=g415"

appExcel.Range("E877").SelectTab_PartC_Section3_1 - 5

appExcel.activecell.Value = "=i415"

appExcel.Range("E878").Select appExcel.activecell.Value = "=q415"

appExcel.Range("E879").Select appExcel.activecell.Value = "=g421"

appExcel.Range("E880").Select appExcel.activecell.Value = "=i421"

appExcel.Range("E881").Select appExcel.activecell.Value = "=q421"

appExcel.Range("E882").Select appExcel.activecell.Value = "=g419"

appExcel.Range("E883").Select appExcel.activecell.Value = "=i419"

appExcel.Range("E884").Select appExcel.activecell.Value = "=q419"

' end fix

DataBegins = 850 DataEnds = 884

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section3_2 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartC_Section3_2()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab_PartC_Section3_2 ' Table Btm_Ash_Storage Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Storage")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 309 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 310 DataEnds = 318 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 319 DataEnds = 327 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 328 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 337 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 346 DataEnds = 354 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 355 DataEnds = 363 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 364 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 373 DataEnds = 381 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Section3_2 - 2

' close the table Call CloseTable

' Tab PartC_Section32 ' Process Table Btm_Ash_Mkt_General Call OpenExcelSheet(shtName) Call OpenTable("Btm_Ash_Mkt_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 382 DataEnds = 386 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section3_2 ' Table Btm_Dry_Market Call OpenExcelSheet(shtName) Call OpenTable("Btm_Dry_Market")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 387 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 397 DataEnds = 406 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 407 DataEnds = 416 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 417 DataEnds = 426 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 427 DataEnds = 436 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 437 DataEnds = 446 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 447 DataEnds = 456 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8Tab_PartC_Section3_2 - 3

DataBegins = 457 DataEnds = 466 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 467 DataEnds = 476 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 477 DataEnds = 486 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 487 DataEnds = 496 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 497 DataEnds = 506 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 507 DataEnds = 516 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 517 DataEnds = 526 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 527 DataEnds = 536 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab_PartC_Section3_2 ' Table Btm_Wet_Market Call OpenExcelSheet(shtName) Call OpenTable("Btm_Wet_Market")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 537 DataEnds = 546 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 547 DataEnds = 556 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Section3_2 - 4

'process row 3 DataBegins = 557 DataEnds = 566 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 567 DataEnds = 576 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 577 DataEnds = 586 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 587 DataEnds = 596 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 597 DataEnds = 606 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 607 DataEnds = 616 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 617 DataEnds = 626 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 627 DataEnds = 636 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 637 DataEnds = 646 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 647 DataEnds = 656 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 657 DataEnds = 666 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 667 DataEnds = 676 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Section3_2 - 5

'process row 15 DataBegins = 677 DataEnds = 686 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section3_3 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Section3_3()

On Error GoTo ErrHandler:

' Tab Part C Section 3.3 ' Table Btm_Cnvy_Cmpnts Call OpenExcelSheet(shtName) Call OpenTable("Btm_Cnvy_Cmpnts")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 309 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 310 DataEnds = 318 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 319 DataEnds = 327 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 328 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 337 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 346 DataEnds = 354 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 355 DataEnds = 363 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 364 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section3.3 ' Process Table Btm_Cnvy_General Call OpenExcelSheet(shtName) Call OpenTable("Btm_Cnvy_General")Tab_PartC_Section3_3 - 2

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 373 DataEnds = 388

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part C Section 3.3 ' Table Btm_Cnvy_Capital_Cost Call OpenExcelSheet(shtName) Call OpenTable("Btm_Cnvy_Capital_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 389 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 397 DataEnds = 404 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 405 DataEnds = 412 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 413 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 421 DataEnds = 428 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 429 DataEnds = 436 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 437 DataEnds = 444 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 445 DataEnds = 452 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9Tab_PartC_Section3_3 - 3

DataBegins = 453 DataEnds = 460 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 461 DataEnds = 468 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 469 DataEnds = 476 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 477 DataEnds = 484 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 485 DataEnds = 492 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section3.3 ' Process Btm_Cnvy_OM_Cost Call OpenExcelSheet(shtName) Call OpenTable("Btm_Cnvy_OM_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 493 DataEnds = 514

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section3_4 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Section3_4()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab_PartC_Section3_4

' Process Btm_storage_General Call OpenExcelSheet(shtName) Call OpenTable("Btm_storage_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 303 DataEnds = 321

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part C Section 3.4 ' Table Btm_storage_Cmpnts Call OpenExcelSheet(shtName) Call OpenTable("Btm_storage_Cmpnts")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 322 DataEnds = 330 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 331 DataEnds = 339 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 340 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 349 DataEnds = 357 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 358 DataEnds = 366 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 367 DataEnds = 375 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartC_Section3_4 - 2

'process row 7 DataBegins = 376 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 385 DataEnds = 393 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part C Section 3.4 ' Table Btm_storage_Capital_Cost Call OpenExcelSheet(shtName) Call OpenTable("Btm_storage_Capital_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 394 DataEnds = 401 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 402 DataEnds = 409 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 410 DataEnds = 417 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 418 DataEnds = 425 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 426 DataEnds = 433 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 434 DataEnds = 441 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 442 DataEnds = 449 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 450 DataEnds = 457 ' copy the data over to the tableTab_PartC_Section3_4 - 3

Call Copy_XLSData_to_Table

'process row 9 DataBegins = 458 DataEnds = 465 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 466 DataEnds = 473 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 474 DataEnds = 481 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 482 DataEnds = 489 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 490 DataEnds = 497 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section3.4 ' Process Table Btm_storage_OM_Cost Call OpenExcelSheet(shtName) Call OpenTable("Btm_storage_OM_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 498 DataEnds = 524

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section3_5 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartC_Section3_5()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartC_Section3.5

' Process Btm_Trspt_Disp_General Call OpenExcelSheet(shtName) Call OpenTable("Btm_Trspt_Disp_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 330

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section3.5

' Process Btm_Trspt_Disp_Capital_Cost Call OpenExcelSheet(shtName) Call OpenTable("Btm_Trspt_Disp_Capital_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 331 DataEnds = 337 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 338 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 345 DataEnds = 351 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 352 DataEnds = 358 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 359 DataEnds = 365 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 366 DataEnds = 372 ' copy the data over to the tableTab_PartC_Section3_5 - 2

Call Copy_XLSData_to_Table

'process row 7 DataBegins = 373 DataEnds = 379 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 380 DataEnds = 386 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 387 DataEnds = 393 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 394 DataEnds = 400 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 401 DataEnds = 407 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 408 DataEnds = 414 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 415 DataEnds = 421 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartC_Section3.5

' Process Btm_Trspt_Disp_OM_Cost Call OpenExcelSheet(shtName) Call OpenTable("Btm_Trspt_Disp_OM_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 422 DataEnds = 450

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_SubTab_PartC_Section3_5 - 3

End SubTab_PartC_Section4 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartC_Section4()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part C Section 4 ' Table Economizer_Ash Call OpenExcelSheet(shtName) Call OpenTable("Economizer_Ash")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 332

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartC_Section5 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartC_Section5()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part C Section 5 ' Table Air_Heater_Ash Call OpenExcelSheet(shtName) Call OpenTable("Air_Heater_Ash")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 330

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Comments - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartD_Comments()

On Error GoTo ErrHandler:

' Tab PartD_Comments '"Part D Comments" 'Process Nuc_Comments Call OpenExcelSheet(shtName) Call OpenTable("PartD_Comments")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 304 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 305 DataEnds = 308 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 309 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 313 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 317 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 321 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 325 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 333 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartD_Comments - 2

'process row 10 DataBegins = 337 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 373 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 377 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 381 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartD_Comments - 3

'process row 22 DataBegins = 385 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 389 DataEnds = 392 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 393 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartD_Section1()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part D Section 1" ' Tab PartD_Section1 ' Process Table Treatment_General Call OpenExcelSheet(shtName) Call OpenTable("Treatment_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 319

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartD_Section2()

On Error GoTo ErrHandler:

' Tab PartD_Section2 '"Part D Section 2" 'Process WWT_Study Call OpenExcelSheet(shtName) Call OpenTable("WWT_Study")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 310

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section2

'Process Active Pond Systems Call OpenExcelSheet(shtName) Call OpenTable("Active_Pond_Systems")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 311 DataEnds = 330 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 331 DataEnds = 350 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 351 DataEnds = 370 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 371 DataEnds = 390 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 391 DataEnds = 410 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 411 DataEnds = 430 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartD_Section2 - 2

'process row 7 DataBegins = 431 DataEnds = 450 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 451 DataEnds = 470 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 471 DataEnds = 490 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 491 DataEnds = 510 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section2

'Process Retired Pond Systems Call OpenExcelSheet(shtName) Call OpenTable("Retired_Pond_Systems")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 511 DataEnds = 520 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 521 DataEnds = 530 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 531 DataEnds = 540 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 541 DataEnds = 550 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 551 DataEnds = 560 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section2Tab_PartD_Section2 - 3

'Process Planned Pond Systems Call OpenExcelSheet(shtName) Call OpenTable("Planned_Pond_Systems")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 561 DataEnds = 571 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 572 DataEnds = 582 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 583 DataEnds = 593 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section2

'Process WWT Systems Call OpenExcelSheet(shtName) Call OpenTable("WWT_Systems")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 594 DataEnds = 601 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 602 DataEnds = 609 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 610 DataEnds = 617 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 618 DataEnds = 625 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 626 DataEnds = 633 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6Tab_PartD_Section2 - 4

DataBegins = 634 DataEnds = 641 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 642 DataEnds = 649 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 650 DataEnds = 657 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 658 DataEnds = 665 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section3_1 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartD_Section3_1()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part D Section 3.1" ' Tab Part D Section 3.1 Call OpenExcelSheet(shtName) Call OpenTable("Treatment_Diagram")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 304

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section3_2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartD_Section3_2()

On Error GoTo ErrHandler:

' Tab PartD_Section3.2 '"Part D Section 3.2" 'Process Treatment_Influents Call OpenExcelSheet(shtName) Call OpenTable("Treatment_Influents")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 ' Fix reference problem for E309 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E309").Select appExcel.activecell.Value = "=IF(D309<>0, IF(D309<>-555, D309, L34), L34)" ' end fix

DataBegins = 301 DataEnds = 311

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 ' Fix reference problem for E320 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E320").Select appExcel.activecell.Value = "=IF(D320<>0, IF(D320<>-555, D320, L37), L37)" ' end fix

DataBegins = 312 DataEnds = 322 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 ' Fix reference problem for E331 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E331").Select appExcel.activecell.Value = "=IF(D331<>0, IF(D331<>-555, D331, L40), L40)" ' end fix

DataBegins = 323 DataEnds = 333 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 ' Fix reference problem for E342 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E342").Select appExcel.activecell.Value = "=IF(D342<>0, IF(D342<>-555, D342, L43), L43)" ' end fix

DataBegins = 334 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 ' Fix reference problem for E353 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E353").Select appExcel.activecell.Value = "=IF(D353<>0, IF(D353<>-555, D353, L46), L46)"Tab_PartD_Section3_2 - 2

' end fix

DataBegins = 345 DataEnds = 355 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 ' Fix reference problem for E364 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E364").Select appExcel.activecell.Value = "=IF(D364<>0, IF(D364<>-555, D364, L49), L49)" ' end fix

DataBegins = 356 DataEnds = 366 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 ' Fix reference problem for E375 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E375").Select appExcel.activecell.Value = "=IF(D375<>0, IF(D375<>-555, D375, L52), L52)" ' end fix

DataBegins = 367 DataEnds = 377 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 ' Fix reference problem for E386 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E386").Select appExcel.activecell.Value = "=IF(D386<>0, IF(D386<>-555, D386, L55), L55)" ' end fix

DataBegins = 378 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 ' Fix reference problem for E397 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E397").Select appExcel.activecell.Value = "=IF(D397<>0, IF(D397<>-555, D397, L58), L58)" ' end fix

DataBegins = 389 DataEnds = 399 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 ' Fix reference problem for E408 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E408").Select appExcel.activecell.Value = "=IF(D408<>0, IF(D408<>-555, D408, L61), L61)" ' end fix

DataBegins = 400 DataEnds = 410 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 ' Fix reference problem for E419 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E419").SelectTab_PartD_Section3_2 - 3

appExcel.activecell.Value = "=IF(D419<>0, IF(D419<>-555, D419, L64), L64)" ' end fix

DataBegins = 411 DataEnds = 421 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 ' Fix reference problem for E430 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E430").Select appExcel.activecell.Value = "=IF(D430<>0, IF(D430<>-555, D430, L67), L67)" ' end fix

DataBegins = 422 DataEnds = 432 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 ' Fix reference problem for E441 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E441").Select appExcel.activecell.Value = "=IF(D441<>0, IF(D441<>-555, D441, L70), L70)" ' end fix

DataBegins = 433 DataEnds = 443 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 ' Fix reference problem for E452 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E452").Select appExcel.activecell.Value = "=IF(D452<>0, IF(D452<>-555, D452, L73), L73)" ' end fix

DataBegins = 444 DataEnds = 454 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 ' Fix reference problem for E463 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E463").Select appExcel.activecell.Value = "=IF(D463<>0, IF(D463<>-555, D463, L76), L76)" ' end fix

DataBegins = 455 DataEnds = 465 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 ' Fix reference problem for E474 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E474").Select appExcel.activecell.Value = "=IF(D474<>0, IF(D474<>-555, D474, L79), L79)" ' end fix

DataBegins = 466 DataEnds = 476 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 ' Fix reference problem for E485 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz SabolTab_PartD_Section3_2 - 4

appExcel.Range("E485").Select appExcel.activecell.Value = "=IF(D485<>0, IF(D485<>-555, D485, L82), L82)" ' end fix

DataBegins = 477 DataEnds = 487 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 ' Fix reference problem for E496 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E496").Select appExcel.activecell.Value = "=IF(D496<>0, IF(D496<>-555, D496, L85), L85)" ' end fix

DataBegins = 488 DataEnds = 498 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 ' Fix reference problem for E507 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E507").Select appExcel.activecell.Value = "=IF(D507<>0, IF(D507<>-555, D507, L88), L88)" ' end fix

DataBegins = 499 DataEnds = 509 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 ' Fix reference problem for E518 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E518").Select appExcel.activecell.Value = "=IF(D518<>0, IF(D518<>-555, D518, L91), L91)" ' end fix

DataBegins = 510 DataEnds = 520 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 ' Fix reference problem for E529 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E529").Select appExcel.activecell.Value = "=IF(D529<>0, IF(D529<>-555, D529, L94), L94)" ' end fix

DataBegins = 521 DataEnds = 531 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22 ' Fix reference problem for E540 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E540").Select appExcel.activecell.Value = "=IF(D540<>0, IF(D540<>-555, D540, L97), L97)" ' end fix

DataBegins = 532 DataEnds = 542 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 ' Fix reference problem for E551 to allow for 0 or -555 in the IF StatementTab_PartD_Section3_2 - 5

' changed 12/14/2010 by Liz Sabol appExcel.Range("E551").Select appExcel.activecell.Value = "=IF(D551<>0, IF(D551<>-555, D551, L100), L100)" ' end fix

DataBegins = 543 DataEnds = 553 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 ' Fix reference problem for E562 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E562").Select appExcel.activecell.Value = "=IF(D562<>0, IF(D562<>-555, D562, L103), L103)" ' end fix

DataBegins = 554 DataEnds = 564 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 ' Fix reference problem for E573 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E573").Select appExcel.activecell.Value = "=IF(D573<>0, IF(D573<>-555, D573, L106), L106)" ' end fix

DataBegins = 565 DataEnds = 575 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 ' Fix reference problem for E584 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E584").Select appExcel.activecell.Value = "=IF(D584<>0, IF(D584<>-555, D584, L109), L109)" ' end fix

DataBegins = 576 DataEnds = 586 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 ' Fix reference problem for E595 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E595").Select appExcel.activecell.Value = "=IF(D595<>0, IF(D595<>-555, D595, L112), L112)" ' end fix

DataBegins = 587 DataEnds = 597 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 ' Fix reference problem for E606 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E606").Select appExcel.activecell.Value = "=IF(D606<>0, IF(D606<>-555, D606, L115), L115)" ' end fix

DataBegins = 598 DataEnds = 608 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29Tab_PartD_Section3_2 - 6

' Fix reference problem for E617 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E617").Select appExcel.activecell.Value = "=IF(D617<>0, IF(D617<>-555, D617, L118), L118)" ' end fix

DataBegins = 609 DataEnds = 619 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 ' Fix reference problem for E628 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E628").Select appExcel.activecell.Value = "=IF(D628<>0, IF(D628<>-555, D628, L121), L121)" ' end fix

DataBegins = 620 DataEnds = 630 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section3.2

'Process Treatment_Effluents Call OpenExcelSheet(shtName) Call OpenTable("Treatment_Effluents")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 ' Fix reference problem for E639 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E639").Select appExcel.activecell.Value = "=IF(D639<>0, IF(D639<>-555, D639, J145), J145)" ' end fix

DataBegins = 631 DataEnds = 647 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 ' Fix reference problem for E656 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E656").Select appExcel.activecell.Value = "=IF(D656<>0, IF(D656<>-555, D656, J148), J148)" ' end fix

DataBegins = 648 DataEnds = 664 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 ' Fix reference problem for E673 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E673").Select appExcel.activecell.Value = "=IF(D673<>0, IF(D673<>-555, D673, J151), J151)" ' end fix

DataBegins = 665 DataEnds = 681 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartD_Section3_2 - 7

'process row 4 ' Fix reference problem for E690 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E690").Select appExcel.activecell.Value = "=IF(D690<>0, IF(D690<>-555, D690, J154), J154)" ' end fix

DataBegins = 682 DataEnds = 698 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 ' Fix reference problem for E707 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E707").Select appExcel.activecell.Value = "=IF(D707<>0, IF(D707<>-555, D707, J157), J157)" ' end fix

DataBegins = 699 DataEnds = 715 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 ' Fix reference problem for E724 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E724").Select appExcel.activecell.Value = "=IF(D724<>0, IF(D724<>-555, D724, J160), J160)" ' end fix

DataBegins = 716 DataEnds = 732 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 ' Fix reference problem for E741 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E741").Select appExcel.activecell.Value = "=IF(D741<>0, IF(D741<>-555, D741, J163), J163)" ' end fix

DataBegins = 733 DataEnds = 749 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 ' Fix reference problem for E758 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E758").Select appExcel.activecell.Value = "=IF(D758<>0, IF(D758<>-555, D758, J166), J166)" ' end fix

DataBegins = 750 DataEnds = 766 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 ' Fix reference problem for E775 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E775").Select appExcel.activecell.Value = "=IF(D775<>0, IF(D775<>-555, D775, J169), J169)" ' end fix

DataBegins = 767 DataEnds = 783 ' copy the data over to the tableTab_PartD_Section3_2 - 8

Call Copy_XLSData_to_Table

'process row 10 ' Fix reference problem for E792 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E792").Select appExcel.activecell.Value = "=IF(D792<>0, IF(D792<>-555, D792, J172), J172)" ' end fix

DataBegins = 784 DataEnds = 800 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 ' Fix reference problem for E809 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E809").Select appExcel.activecell.Value = "=IF(D809<>0, IF(D809<>-555, D809, J175), J175)" ' end fix

DataBegins = 801 DataEnds = 817 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 ' Fix reference problem for E826 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E826").Select appExcel.activecell.Value = "=IF(D826<>0, IF(D826<>-555, D826, J178), J178)" ' end fix

DataBegins = 818 DataEnds = 834 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 ' Fix reference problem for E843 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E843").Select appExcel.activecell.Value = "=IF(D843<>0, IF(D843<>-555, D843, J181), J181)" ' end fix

DataBegins = 835 DataEnds = 851 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 ' Fix reference problem for E860 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E860").Select appExcel.activecell.Value = "=IF(D860<>0, IF(D860<>-555, D860, J184), J184)" ' end fix

DataBegins = 852 DataEnds = 868 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 ' Fix reference problem for E877 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E877").Select appExcel.activecell.Value = "=IF(D877<>0, IF(D877<>-555, D877, J187), J187)" ' end fix

DataBegins = 869 DataEnds = 885Tab_PartD_Section3_2 - 9

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 ' Fix reference problem for E894 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E894").Select appExcel.activecell.Value = "=IF(D894<>0, IF(D894<>-555, D894, J190), J190)" ' end fix

DataBegins = 886 DataEnds = 902 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 ' Fix reference problem for E911 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E911").Select appExcel.activecell.Value = "=IF(D911<>0, IF(D911<>-555, D911, J193), J193)" ' end fix

DataBegins = 903 DataEnds = 919 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 ' Fix reference problem for E928 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E928").Select appExcel.activecell.Value = "=IF(D928<>0, IF(D928<>-555, D928, J196), J196)" ' end fix

DataBegins = 920 DataEnds = 936 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 ' Fix reference problem for E945 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E945").Select appExcel.activecell.Value = "=IF(D945<>0, IF(D945<>-555, D945, J199), J199)" ' end fix

DataBegins = 937 DataEnds = 953 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 ' Fix reference problem for E962 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E962").Select appExcel.activecell.Value = "=IF(D962<>0, IF(D962<>-555, D962, J202), J202)" ' end fix

DataBegins = 954 DataEnds = 970 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 ' Fix reference problem for E979 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E979").Select appExcel.activecell.Value = "=IF(D979<>0, IF(D979<>-555, D979, J205), J205)" ' end fix

DataBegins = 971Tab_PartD_Section3_2 - 10

DataEnds = 987 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22 ' Fix reference problem for E996 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E996").Select appExcel.activecell.Value = "=IF(D996<>0, IF(D996<>-555, D996, J208), J208)" ' end fix

DataBegins = 988 DataEnds = 1004 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 ' Fix reference problem for E1013 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E1013").Select appExcel.activecell.Value = "=IF(D1013<>0, IF(D1013<>-555, D1013, J211), J211)" ' end fix

DataBegins = 1005 DataEnds = 1021 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 ' Fix reference problem for E1030 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E1030").Select appExcel.activecell.Value = "=IF(D1030<>0, IF(D1030<>-555, D1030, J214), J214)" ' end fix

DataBegins = 1022 DataEnds = 1038 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 ' Fix reference problem for E1047 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E1047").Select appExcel.activecell.Value = "=IF(D1047<>0, IF(D1047<>-555, D1047, J217), J217)" ' end fix

DataBegins = 1039 DataEnds = 1055 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 ' Fix reference problem for E1064 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E1064").Select appExcel.activecell.Value = "=IF(D1064<>0, IF(D1064<>-555, D1064, J220), J220)" ' end fix

DataBegins = 1056 DataEnds = 1072 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 ' Fix reference problem for E1081 to allow for 0 or -555 in the IF Statement ' changed 12/14/2010 by Liz Sabol appExcel.Range("E1081").Select appExcel.activecell.Value = "=IF(D1081<>0, IF(D1081<>-555, D1081, J223), J223)" ' end fixTab_PartD_Section3_2 - 11

DataBegins = 1073 DataEnds = 1089 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section4_1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartD_Section4_1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartD_Section4.1 '"Part D Section 4.1" ' Process Table Act_Pond_Unit Call OpenExcelSheet(shtName) Call OpenTable("Act_Pond_Unit")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" 'Fix reference problem for E342: coded as =E157 change to =E159 appExcel.Range("E342").Select appExcel.activecell.Value = "=e159" ' end fix DataBegins = 301 DataEnds = 349

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section4.1

'Process Act_Pond_Unit_Dimensions Call OpenExcelSheet(shtName) Call OpenTable("Act_Pond_Unit_Dimensions")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 350 DataEnds = 361 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 362 DataEnds = 373 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 374 DataEnds = 385 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section4.1

'Process Act_Pond_Unit_Liner Call OpenExcelSheet(shtName) Call OpenTable("Act_Pond_Unit_Liner")

'process row 1 DataBegins = 386 DataEnds = 393Tab_PartD_Section4_1 - 2

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 394 DataEnds = 401 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 402 DataEnds = 409 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 410 DataEnds = 417 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section4.1

'Process Act_Pond_Chem_Addn Call OpenExcelSheet(shtName) Call OpenTable("Act_Pond_Chem_Addn")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 418 DataEnds = 430 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 431 DataEnds = 443 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 444 DataEnds = 456 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 457 DataEnds = 469 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 470 DataEnds = 482 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler:Tab_PartD_Section4_1 - 3

MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section4_2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartD_Section4_2()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartD_Section4.2 '"Part D Section 4.2" ' Process Table Clsd_Pond_Unit Call OpenExcelSheet(shtName) Call OpenTable("Clsd_Pond_Unit")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 328

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section4.2

'Process Clsd_Pond_Unit_Dimensions Call OpenExcelSheet(shtName) Call OpenTable("Clsd_Pond_Unit_Dimensions")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 329 DataEnds = 339 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 340 DataEnds = 350 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section4.2

'Process Clsd_Pond_Unit_Liner Call OpenExcelSheet(shtName) Call OpenTable("Clsd_Pond_Unit_Liner")

'process row 1 DataBegins = 351 DataEnds = 358 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 359 DataEnds = 366 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3Tab_PartD_Section4_2 - 2

DataBegins = 367 DataEnds = 374 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 375 DataEnds = 382 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 383 DataEnds = 390 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section4.2

'Process Clsd_Pond_Unit_Cap Call OpenExcelSheet(shtName) Call OpenTable("Clsd_Pond_Unit_Cap")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 391 DataEnds = 398 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 399 DataEnds = 406 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 407 DataEnds = 414 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 415 DataEnds = 422 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 423 DataEnds = 430 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 431 DataEnds = 438 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit SubTab_PartD_Section4_2 - 3

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section5_1 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartD_Section5_1()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part D Section 5.1" ' Tab Part D Section 5.1 Call OpenExcelSheet(shtName) Call OpenTable("WWT_System_Information")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 303 DataEnds = 323

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part D Section 5.1 Call OpenExcelSheet(shtName) Call OpenTable("WWT_Pollutants")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 324 DataEnds = 349

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section5.1

'Process WWT_Units Call OpenExcelSheet(shtName) Call OpenTable("WWT_Units")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 350 DataEnds = 373 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 374 DataEnds = 397 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 398 DataEnds = 421 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 422 DataEnds = 445Tab_PartD_Section5_1 - 2

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 446 DataEnds = 469 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 470 DataEnds = 493 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 494 DataEnds = 517 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 518 DataEnds = 541 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 542 DataEnds = 565 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 566 DataEnds = 589 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 590 DataEnds = 613 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 614 DataEnds = 637 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 638 DataEnds = 661 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 662 DataEnds = 685 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 686 DataEnds = 709 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 710Tab_PartD_Section5_1 - 3

DataEnds = 733 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 'DataBegins = 734 'DataEnds = 757

'process row 17 ' Fix reference problem for E753: coded as =TRUE change to =L76 ' changed 10/25/10 by LSC per Liz appExcel.Range("E753").Select appExcel.activecell.Value = "=L76" ' end fix DataBegins = 734 DataEnds = 757 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 758 DataEnds = 781 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 782 DataEnds = 805 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 806 DataEnds = 829 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 830 DataEnds = 853 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22 DataBegins = 854 DataEnds = 877 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 878 DataEnds = 901 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section5.1

'Process WWTS_Pld_Improvements Call OpenExcelSheet(shtName) Call OpenTable("WWTS_Pld_Improvements")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 902 DataEnds = 910Tab_PartD_Section5_1 - 4

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 911 DataEnds = 919 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 920 DataEnds = 928 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 929 DataEnds = 937 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 938 DataEnds = 946 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section5_2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartD_Section5_2()

On Error GoTo ErrHandler:

' Tab PartD_Section5.2 '"Part D Section 5.2" 'Process WWTU_Chem_Addn Call OpenExcelSheet(shtName) Call OpenTable("WWTU_Chem_Addn")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 230 DataEnds = 243 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 244 DataEnds = 257 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 258 DataEnds = 271 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 272 DataEnds = 285 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 286 DataEnds = 299 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 300 DataEnds = 313 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 314 DataEnds = 327 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 328 DataEnds = 341 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 342 DataEnds = 355 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartD_Section5_2 - 2

'process row 10 DataBegins = 356 DataEnds = 369 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 370 DataEnds = 383 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 384 DataEnds = 397 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 398 DataEnds = 411 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 412 DataEnds = 425 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 426 DataEnds = 439 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 440 DataEnds = 453 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 454 DataEnds = 467 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 468 DataEnds = 481 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 482 DataEnds = 495 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 496 DataEnds = 509 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 510 DataEnds = 523 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartD_Section5_2 - 3

'process row 22 DataBegins = 524 DataEnds = 537 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 538 DataEnds = 551 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 552 DataEnds = 565 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 566 DataEnds = 579 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 580 DataEnds = 593 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 594 DataEnds = 607 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 608 DataEnds = 621 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 622 DataEnds = 635 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 636 DataEnds = 649 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs '"Part D Section 5.2" ' Tab Part D Section 5.2 Call OpenExcelSheet(shtName) Call OpenTable("WWTU_Chem_Addn_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 650 DataEnds = 653

' copy the data over to the tableTab_PartD_Section5_2 - 4

Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section6_1 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartD_Section6_1()

On Error GoTo ErrHandler:

' Process xls sheet tabs '"Part D Section 6.1" ' Tab Part D Section 6.1 Call OpenExcelSheet(shtName) Call OpenTable("Pond_WWT_OandM")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 341 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section6.1

'Process Pond_WWT_Capital Call OpenExcelSheet(shtName) Call OpenTable("Pond_WWT_Capital")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 342 DataEnds = 347 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 348 DataEnds = 353 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 354 DataEnds = 359 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 360 DataEnds = 365 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 366 DataEnds = 371 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 372 DataEnds = 377 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 378Tab_PartD_Section6_1 - 2

DataEnds = 383 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 384 DataEnds = 389 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 390 DataEnds = 395 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 396 DataEnds = 401 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 402 DataEnds = 407 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 408 DataEnds = 413 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 414 DataEnds = 419 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab Part D Section 6.1 Call OpenExcelSheet(shtName) Call OpenTable("Pond_WWT_Capital_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 420 DataEnds = 426

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab Part D Section 6.1 Call OpenExcelSheet(shtName) Call OpenTable("FGD_WWT_Purchase")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 427Tab_PartD_Section6_1 - 3

DataEnds = 432

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartD_Section6_2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartD_Section6_2()

On Error GoTo ErrHandler:

' Tab PartD_Section6.2 '"Part D Section 6.2" 'Process WWTS_Ancillary_Equip Call OpenExcelSheet(shtName) Call OpenTable("WWTS_Ancillary_Equip")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 305 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 306 DataEnds = 310 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 311 DataEnds = 315 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 316 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 321 DataEnds = 325 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 326 DataEnds = 330 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 331 DataEnds = 335 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 336 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 341 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartD_Section6_2 - 2

'process row 10 DataBegins = 346 DataEnds = 350 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 351 DataEnds = 355 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 356 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 361 DataEnds = 365 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 366 DataEnds = 370 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 371 DataEnds = 375 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 376 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 381 DataEnds = 385 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 386 DataEnds = 390 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 391 DataEnds = 395 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 396 DataEnds = 400 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 401 DataEnds = 405 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartD_Section6_2 - 3

'process row 22 DataBegins = 406 DataEnds = 410 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 411 DataEnds = 415 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 416 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 421 DataEnds = 425 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 426 DataEnds = 430 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 431 DataEnds = 435 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 436 DataEnds = 440 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 441 DataEnds = 445 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 446 DataEnds = 450 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 31 DataBegins = 451 DataEnds = 455 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 32 DataBegins = 456 DataEnds = 460 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 33 DataBegins = 461 DataEnds = 465 ' copy the data over to the tableTab_PartD_Section6_2 - 4

Call Copy_XLSData_to_Table

'process row 34 DataBegins = 466 DataEnds = 470 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 34 DataBegins = 471 DataEnds = 475 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartE_Comments - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartE_Comments()

On Error GoTo ErrHandler:

' Tab PartE_Comments

'Process MCW_Comments Call OpenExcelSheet(shtName) Call OpenTable("PartE_Comments")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 304 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 305 DataEnds = 308 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 309 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 313 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 317 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 321 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 325 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 333 DataEnds = 336 Call Copy_XLSData_to_Table

'process row 10Tab_PartE_Comments - 2

DataBegins = 337 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 373 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 377 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 381 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartE_Comments - 3

'process row 22 DataBegins = 385 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 389 DataEnds = 392 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 393 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 397 DataEnds = 400 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 401 DataEnds = 404 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartE_Section1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartE_Section1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartE_Section1 Call OpenExcelSheet(shtName) Call OpenTable("MCW_Kickout")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 303

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartE_Section2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartE_Section2()

On Error GoTo ErrHandler:

' Tab PartE_Section2

'Process MCW_Chem Call OpenExcelSheet(shtName) Call OpenTable("MCW_Chem")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 341 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 342 DataEnds = 382 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 383 DataEnds = 423 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 424 DataEnds = 464 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 465 DataEnds = 505 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 506 DataEnds = 546 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 547 DataEnds = 587 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 588 DataEnds = 628 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 629 DataEnds = 669 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartE_Section2 - 2

' close the table Call CloseTable

'Process MCW_No_Chem Call OpenExcelSheet(shtName) Call OpenTable("MCW_No_Chem")

' define data parameters for processing this tab

AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 670 DataEnds = 686 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 687 DataEnds = 703 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 704 DataEnds = 720 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 721 DataEnds = 737 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 738 DataEnds = 754 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 755 DataEnds = 771 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 772 DataEnds = 788 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 789 DataEnds = 805 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 806 DataEnds = 822 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit SubTab_PartE_Section2 - 3

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartE_Section3 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartE_Section3()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part E Section 3 Call OpenExcelSheet(shtName) Call OpenTable("MCW_WW_Treatment")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 330

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab PartE_Section3 Call OpenExcelSheet(shtName) Call OpenTable("MCW_Slds_Res_Gen")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 331 DataEnds = 363

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Comments - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartF_Comments()

On Error GoTo ErrHandler:

' Tab PartF_Comments

'Process Part F_Comments Call OpenExcelSheet(shtName) Call OpenTable("PartF_Comments")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 304 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 305 DataEnds = 308 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 309 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 313 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 317 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 321 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 325 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 333 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartF_Comments - 2

'process row 10 DataBegins = 337 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartF_Section1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartF_Section1 ' Process Table BMPs_Kickout Call OpenExcelSheet(shtName) Call OpenTable("BMPs_Kickout")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 303

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartF_Section2()

On Error GoTo ErrHandler:

' Tab PartF_Section2

'Process BMPs_Pond_Info Call OpenExcelSheet(shtName) Call OpenTable("BMPs_Pond_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 313

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartF_Section2

'Process Pond_Leachate_Coll_Sys Call OpenExcelSheet(shtName) Call OpenTable("Pond_Leachate_Coll_Sys")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 314 DataEnds = 359

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartF_Section2

'Process Pond_Mntor_Inspct Call OpenExcelSheet(shtName) Call OpenTable("Pond_Mntor_Inspct")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 360 DataEnds = 366 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 367 DataEnds = 373 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 374 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartF_Section2 - 2

'process row 4 DataBegins = 381 DataEnds = 387 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 388 DataEnds = 394 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 395 DataEnds = 401 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 402 DataEnds = 408 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 409 DataEnds = 415 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section3_1 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartF_Section3_1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part F Section 3.1 ' Table Landfill_Dim Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Dim")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 307 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 308 DataEnds = 314 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 315 DataEnds = 321 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part F Section 3.1 ' Table Landfill_Info Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 322 DataEnds = 335

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part F Section 3.1 ' Table Landfill_Expansion Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Expansion")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 336 DataEnds = 345

' copy the data over to the table Call Copy_XLSData_to_Table

' close the tableTab_PartF_Section3_1 - 2

Call CloseTable

' Tab Part F Section 3.1 ' Table Landfill_Liner Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Liner")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 346 DataEnds = 353 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 354 DataEnds = 361 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 362 DataEnds = 369 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 370 DataEnds = 377 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 378 DataEnds = 385 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 386 DataEnds = 393 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part F Section 3.1 ' Table Landfill_Cap Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Cap")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 394 DataEnds = 401 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 402 DataEnds = 409 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartF_Section3_1 - 3

'process row 3 DataBegins = 410 DataEnds = 417 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 418 DataEnds = 425 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 426 DataEnds = 433 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 434 DataEnds = 441 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 442 DataEnds = 449 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part F Section 3.1 ' Table Landfill_Leachate_Info Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Leachate_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 450 DataEnds = 479

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part F Section 3.1 ' Table Landfill_Leachate_Dest Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Leachate_Dest")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 480 DataEnds = 495

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part F Section 3.1 ' Table Landfill_Storm_Dest Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Storm_Dest")Tab_PartF_Section3_1 - 4

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 496 DataEnds = 515 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 516 DataEnds = 535 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section3_2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartF_Section3_2()

On Error GoTo ErrHandler:

' Tab Part F Section 3.2 ' Table Landfill_OandM Call OpenExcelSheet(shtName) Call OpenTable("Landfill_OM_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 304 DataEnds = 345

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_SectionF.2

'Process Landfill_Capital Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Capital_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 346 DataEnds = 351 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 352 DataEnds = 357 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 358 DataEnds = 363 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 364 DataEnds = 369 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 370 DataEnds = 375 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 376 DataEnds = 381 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7Tab_PartF_Section3_2 - 2

DataBegins = 382 DataEnds = 387 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 388 DataEnds = 393 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 394 DataEnds = 399 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 400 DataEnds = 405 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 406 DataEnds = 411 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 412 DataEnds = 417 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 418 DataEnds = 423 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part F Section 3.2 ' Table Landfill_Capital_Info Call OpenExcelSheet(shtName) Call OpenTable("Landfill_Capital_Cost_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 424 DataEnds = 427

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section4_1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartF_Section4_1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartF_Section4.1

' Process LTS_Opr Call OpenExcelSheet(shtName) Call OpenTable("LTS_Opr")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 310 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 311 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 321 DataEnds = 330 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 331 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 341 DataEnds = 350 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 351 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartF_Section4.1

'Process LTS_Pln Call OpenExcelSheet(shtName) Call OpenTable("LTS_Pln")

'process row 1 DataBegins = 361 DataEnds = 370 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2Tab_PartF_Section4_1 - 2

DataBegins = 371 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 381 DataEnds = 390 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part F Section 4.1 ' Table LTS_Diagram Call OpenExcelSheet(shtName) Call OpenTable("LTS_Diagram")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 391 DataEnds = 393

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section4_2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartF_Section4_2()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartF_Section4.2

' Process LTS_Influent_Flows Call OpenExcelSheet(shtName) Call OpenTable("LTS_Influent_Flows")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 311 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 312 DataEnds = 322 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 323 DataEnds = 333 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 334 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 345 DataEnds = 355 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 356 DataEnds = 366 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 367 DataEnds = 377 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 378 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 389 DataEnds = 399 ' copy the data over to the tableTab_PartF_Section4_2 - 2

Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section4_3 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartF_Section4_3()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part F Section 4.3 Call OpenExcelSheet(shtName) Call OpenTable("LTS_Treat_Units")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 307 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 308 DataEnds = 314 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 315 DataEnds = 321 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 322 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 329 DataEnds = 335 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 336 DataEnds = 342 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 343 DataEnds = 349 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 350 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 357 DataEnds = 363 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10Tab_PartF_Section4_3 - 2

DataBegins = 364 DataEnds = 370 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 371 DataEnds = 377 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 378 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartF_Section4.3

'Process LTS_Treat_Units_Improv Call OpenExcelSheet(shtName) Call OpenTable("LTS_Treat_Units_Improv")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 385 DataEnds = 393 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 394 DataEnds = 402 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 403 DataEnds = 411 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 412 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 421 DataEnds = 429 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartF_Section4.3

'Process LTS_Lim_Chgs Call OpenExcelSheet(shtName) Call OpenTable("LTS_Lim_Chgs")

' define data parameters for processing this tab AnswerColumn = "E"Tab_PartF_Section4_3 - 3

FieldColumn = "F" DataBegins = 430 DataEnds = 434

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartF_Section4.3

'Process LTS_Flow Call OpenExcelSheet(shtName) Call OpenTable("LTS_Flow")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 435 DataEnds = 442

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section4_4 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartF_Section4_4()

On Error GoTo ErrHandler:

' Tab PartF_Section4.4

'Process LTU_Design Call OpenExcelSheet(shtName) Call OpenTable("LTU_Design")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 331

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartF_Section4.4

'Process LTU_Trgtd_Pollutants Call OpenExcelSheet(shtName) Call OpenTable("LTU_Trgtd_Pollutants")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 332 DataEnds = 354

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartF_Section4.4

'Process LTU_Add_Chem Call OpenExcelSheet(shtName) Call OpenTable("LTU_Add_Chem")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 355 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 369 DataEnds = 382 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 383 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartF_Section4_4 - 2

'process row 4 DataBegins = 397 DataEnds = 410 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 411 DataEnds = 424 ' copy the data over to the table Call Copy_XLSData_to_Table

' Tab PartF_Section4.4

'Process LTU_Plant_Species Call OpenExcelSheet(shtName) Call OpenTable("LTU_Plant_Species")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 425 DataEnds = 431 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 432 DataEnds = 438 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 439 DataEnds = 445 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 446 DataEnds = 452 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 453 DataEnds = 459 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 460 DataEnds = 466 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 467 DataEnds = 473 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 474 DataEnds = 480 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the tableTab_PartF_Section4_4 - 3

Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section4_5 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartF_Section4_5()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part F Section 4.5 Call OpenExcelSheet(shtName) Call OpenTable("LTS_OM_Cost")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 342 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section4.5

'Process LTS_Capital Call OpenExcelSheet(shtName) Call OpenTable("LTS_Capital")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 343 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 349 DataEnds = 354 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 355 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 361 DataEnds = 366 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 367 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 373 DataEnds = 378 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 379Tab_PartF_Section4_5 - 2

DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 385 DataEnds = 390 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 391 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 397 DataEnds = 402 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 403 DataEnds = 408 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 409 DataEnds = 414 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 415 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab Part F Section 4.5 Call OpenExcelSheet(shtName) Call OpenTable("LTS_Capital_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 421 DataEnds = 424

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section4_6 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartF_Section4_6()

On Error GoTo ErrHandler:

' Tab PartF_Section4.6

'Process LTS_Anc_Eq Call OpenExcelSheet(shtName) Call OpenTable("LTS_Anc_Eq")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 305 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 306 DataEnds = 310 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 311 DataEnds = 315 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 316 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 321 DataEnds = 325 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 326 DataEnds = 330 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 331 DataEnds = 335 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 336 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 341 DataEnds = 345 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartF_Section4_6 - 2

'process row 10 DataBegins = 346 DataEnds = 350 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 351 DataEnds = 355 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 356 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 361 DataEnds = 365 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 366 DataEnds = 370 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 371 DataEnds = 375 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 376 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 381 DataEnds = 385 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 386 DataEnds = 390 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 391 DataEnds = 395 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 396 DataEnds = 400 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 401 DataEnds = 405 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartF_Section4_6 - 3

'process row 22 DataBegins = 406 DataEnds = 410 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 411 DataEnds = 415 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 416 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 421 DataEnds = 425 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 426 DataEnds = 430 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 431 DataEnds = 435 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 436 DataEnds = 440 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartF_Section5 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartF_Section5()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part F Section 5 ' Table Landfill_Dim Call OpenExcelSheet(shtName) Call OpenTable("GW_Montr")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 317

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartF_Section5

'Process Landfill_Capital Call OpenExcelSheet(shtName) Call OpenTable("GW_Montr_Well")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 318 DataEnds = 323 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 324 DataEnds = 329 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 330 DataEnds = 335 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 336 DataEnds = 341 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 342 DataEnds = 347 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 348 DataEnds = 353 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartF_Section5 - 2

'process row 7 DataBegins = 354 DataEnds = 359 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 360 DataEnds = 365 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 366 DataEnds = 371 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 372 DataEnds = 377 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 378 DataEnds = 383 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 384 DataEnds = 389 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 390 DataEnds = 395 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 396 DataEnds = 401 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 402 DataEnds = 407 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 408 DataEnds = 413 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 414 DataEnds = 419 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 420 DataEnds = 425 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartF_Section5 - 3

'process row 19 DataBegins = 426 DataEnds = 431 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 432 DataEnds = 437 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 438 DataEnds = 443 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22 DataBegins = 444 DataEnds = 449 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 450 DataEnds = 455 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 456 DataEnds = 461 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 462 DataEnds = 467 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 468 DataEnds = 473 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 474 DataEnds = 479 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 480 DataEnds = 485 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 486 DataEnds = 491 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 492 DataEnds = 497 ' copy the data over to the tableTab_PartF_Section5 - 4

Call Copy_XLSData_to_Table

'process row 31 DataBegins = 498 DataEnds = 503 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 32 DataBegins = 504 DataEnds = 509 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 33 DataBegins = 510 DataEnds = 515 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 34 DataBegins = 516 DataEnds = 521 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 35 DataBegins = 522 DataEnds = 527 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 36 DataBegins = 528 DataEnds = 533 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 37 DataBegins = 534 DataEnds = 539 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 38 DataBegins = 540 DataEnds = 545 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 39 DataBegins = 546 DataEnds = 551 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 40 DataBegins = 552 DataEnds = 557 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 41 DataBegins = 558 DataEnds = 563 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 42 DataBegins = 564 DataEnds = 569Tab_PartF_Section5 - 5

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 43 DataBegins = 570 DataEnds = 575 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 44 DataBegins = 576 DataEnds = 581 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 45 DataBegins = 582 DataEnds = 587 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartG_Comments - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartG_Comments()

On Error GoTo ErrHandler:

' Tab PartG_Comments

'Process Leach_Comments Call OpenExcelSheet(shtName) Call OpenTable("PartG_Comments")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 304 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 305 DataEnds = 308 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 309 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 313 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 317 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 321 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 325 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 333 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartG_Comments - 2

'process row 10 DataBegins = 337 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 373 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 377 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 381 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartG_Comments - 3

'process row 22 DataBegins = 385 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 389 DataEnds = 392 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 393 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 397 DataEnds = 400 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartG_Sampling_Results - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartG_Sampling_Results()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part G Sampling Results ' Process Leach_Waste_Info Call OpenExcelSheet(shtName) Call OpenTable("Leach_Smpl_Lab")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 304

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

Call OpenExcelSheet(shtName) Call OpenTable("Leach_Smpl_Data")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 305 DataEnds = 319 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 320 DataEnds = 334 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 335 DataEnds = 349 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 350 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 365 DataEnds = 379 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 380 DataEnds = 394 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 395Tab_PartG_Sampling_Results - 2

DataEnds = 409 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 410 DataEnds = 424 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 425 DataEnds = 439 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 440 DataEnds = 454 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 455 DataEnds = 469 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 470 DataEnds = 484 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 485 DataEnds = 499 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 500 DataEnds = 514 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 515 DataEnds = 529 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 530 DataEnds = 544 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 545 DataEnds = 559 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 560 DataEnds = 574 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19Tab_PartG_Sampling_Results - 3

DataBegins = 575 DataEnds = 589 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 590 DataEnds = 604 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 605 DataEnds = 619 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22 DataBegins = 620 DataEnds = 634 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 635 DataEnds = 649 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 650 DataEnds = 664 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 665 DataEnds = 679 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 680 DataEnds = 694 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 695 DataEnds = 709 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 710 DataEnds = 724 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 725 DataEnds = 739 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 740 DataEnds = 754 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartG_Sampling_Results - 4

'process row 31 DataBegins = 755 DataEnds = 769 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartG_Section2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartG_Section2()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartG_Section2 ' Process Leach_Pond_Landfill Call OpenExcelSheet(shtName) Call OpenTable("Leach_Pond_Landfill")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 310

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartG_Section3 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartG_Section3()

On Error GoTo ErrHandler:

' Tab PartG_Section3

'Process Leach_General Call OpenExcelSheet(shtName) Call OpenTable("Leach_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 308 ' copy the data over to the table

Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartG_Section4 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartG_Section4()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part G Section 4 ' Process Leach_Smpl_Info Call OpenExcelSheet(shtName) Call OpenTable("Leach_Smpl_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 307 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 308 DataEnds = 314 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 315 DataEnds = 321 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 321 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab Part G Section 4 ' Process Leach_Smpl_Info Call OpenExcelSheet(shtName) Call OpenTable("Leach_Rainfall")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 333 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 337 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartG_Section4 - 2

'process row 4 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 373 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 377 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 381 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 385 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartG_Section4 - 3

'process row 16 DataBegins = 389 DataEnds = 392 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 393 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 397 DataEnds = 400 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 401 DataEnds = 404 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 405 DataEnds = 408 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 409 DataEnds = 412 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22 DataBegins = 413 DataEnds = 416 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 417 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 421 DataEnds = 424 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 425 DataEnds = 428 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 429 DataEnds = 432 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 433 DataEnds = 436 ' copy the data over to the tableTab_PartG_Section4 - 4

Call Copy_XLSData_to_Table

'process row 28 DataBegins = 437 DataEnds = 440 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 441 DataEnds = 444 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 445 DataEnds = 448 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 31 DataBegins = 449 DataEnds = 452 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 32 DataBegins = 453 DataEnds = 456 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 33 DataBegins = 457 DataEnds = 460 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 34 DataBegins = 461 DataEnds = 464 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 35 DataBegins = 465 DataEnds = 468 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 36 DataBegins = 469 DataEnds = 472 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 37 DataBegins = 473 DataEnds = 476 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 38 DataBegins = 477 DataEnds = 480 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 39 DataBegins = 481 DataEnds = 484Tab_PartG_Section4 - 5

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 40 DataBegins = 485 DataEnds = 488 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 41 DataBegins = 489 DataEnds = 492 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 42 DataBegins = 493 DataEnds = 496 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 43 DataBegins = 497 DataEnds = 500 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 44 DataBegins = 501 DataEnds = 504 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 45 DataBegins = 505 DataEnds = 508 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 46 DataBegins = 509 DataEnds = 512 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 47 DataBegins = 513 DataEnds = 516 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 48 DataBegins = 517 DataEnds = 520 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 49 DataBegins = 521 DataEnds = 524 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 50 DataBegins = 525 DataEnds = 528 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 51 DataBegins = 529Tab_PartG_Section4 - 6

DataEnds = 532 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 52 DataBegins = 533 DataEnds = 536 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 53 DataBegins = 537 DataEnds = 540 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 54 DataBegins = 541 DataEnds = 544 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 55 DataBegins = 545 DataEnds = 548 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 56 DataBegins = 549 DataEnds = 552 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartG_Section5 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartG_Section5()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part G Section 5 ' Process Leach_Waste_Info Call OpenExcelSheet(shtName) Call OpenTable("Leach_Waste_Info")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 325 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 349 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 373 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 397 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartH_Comments - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartH_Comments()

On Error GoTo ErrHandler:

' Tab PartH_Comments

'Process Nuc_Comments Call OpenExcelSheet(shtName) Call OpenTable("PartH_Comments")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 304 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 305 DataEnds = 308 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 309 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 313 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 317 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 321 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 325 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 333 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartH_Comments - 2

'process row 10 DataBegins = 337 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 373 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 377 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 381 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartH_Comments - 3

'process row 22 DataBegins = 385 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 389 DataEnds = 392 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 393 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartH_Section1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartH_Section1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartH_Section1 ' Process Table Nuc_General Call OpenExcelSheet(shtName) Call OpenTable("Nuc_General")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 305

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartE_Section2

'Process Nuc_Wastewaters Call OpenExcelSheet(shtName) Call OpenTable("Nuc_Wastewaters")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 306 DataEnds = 322 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 323 DataEnds = 339 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 340 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 357 DataEnds = 373 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 374 DataEnds = 390 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 391 DataEnds = 407 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartH_Section1 - 2

'process row 7 DataBegins = 408 DataEnds = 424 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 425 DataEnds = 441 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 442 DataEnds = 458 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 459 DataEnds = 475 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 476 DataEnds = 492 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 493 DataEnds = 509 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 510 DataEnds = 526 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 527 DataEnds = 543 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 544 DataEnds = 560 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 561 DataEnds = 577 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 578 DataEnds = 594 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 595 DataEnds = 611 ' copy the data over to the tableTab_PartH_Section1 - 3

Call Copy_XLSData_to_Table

'process row 19 DataBegins = 612 DataEnds = 628 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 629 DataEnds = 645 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 646 DataEnds = 662 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 22 DataBegins = 663 DataEnds = 679 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 680 DataEnds = 696 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 697 DataEnds = 713 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 714 DataEnds = 730 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 731 DataEnds = 747 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 748 DataEnds = 764 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 765 DataEnds = 781 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 782 DataEnds = 798 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 799 DataEnds = 815Tab_PartH_Section1 - 4

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 31 DataBegins = 816 DataEnds = 832 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 32 DataBegins = 833 DataEnds = 849 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 33 DataBegins = 850 DataEnds = 866 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 34 DataBegins = 867 DataEnds = 883 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 35 DataBegins = 884 DataEnds = 900 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 36 DataBegins = 901 DataEnds = 917 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartH_Section2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartH_Section2()

On Error GoTo ErrHandler:

' Tab PartH_Section2

'Process Nuc_WW_Generation Call OpenExcelSheet(shtName) Call OpenTable("Nuc_WW_Generation")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 327

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartH_Section3 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartH_Section3()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part E Section 3 Call OpenExcelSheet(shtName) Call OpenTable("Nuc_WW_Treat")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 366

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Process xls sheet tabs

' Tab PartH_Section3 ' Process Nuc_WWTS_Technology Call OpenExcelSheet(shtName) Call OpenTable("Nuc_WWTS_Technology")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 367 DataEnds = 397 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 398 DataEnds = 428 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 429 DataEnds = 459 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 460 DataEnds = 490 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 491 DataEnds = 521 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 522 DataEnds = 552 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartH_Section3 - 2

'process row 7 DataBegins = 553 DataEnds = 583 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 584 DataEnds = 614 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 615 DataEnds = 645 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 646 DataEnds = 676 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 677 DataEnds = 707 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 708 DataEnds = 738 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartI_Comments - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartI_Comments()

On Error GoTo ErrHandler:

' Tab PartI_Comments

'Process Tbl_I_Comments Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_Comments")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 304 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 305 DataEnds = 308 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 309 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 313 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 317 DataEnds = 320 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 321 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 325 DataEnds = 328 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 329 DataEnds = 332 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 333 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartI_Comments - 2

'process row 10 DataBegins = 337 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 341 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 345 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 349 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 353 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 357 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 361 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 365 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 369 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 373 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 377 DataEnds = 380 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 381 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartI_Comments - 3

'process row 22 DataBegins = 385 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 389 DataEnds = 392 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 393 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 397 DataEnds = 400 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartI_Section1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartI_Section1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartI_Section1 ' Process Table Tbl_I_ImmediateParent_FirmInfo Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_ImmediateParent_FirmInfo")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 297 DataEnds = 306 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 307 DataEnds = 316 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 317 DataEnds = 326 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartI_Section1

'Process Tbl_I_ImmediateParent_AnnualInfo Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_ImmediateParent_AnnualInfo")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 327 DataEnds = 333 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 334 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 341 DataEnds = 347 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 ' Fix reference problem for E351: coded as =M32 change to =M36 appExcel.Range("E351").Select appExcel.activecell.Value = "=m36"Tab_PartI_Section1 - 2

' end fix

DataBegins = 348 DataEnds = 354 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 ' Fix reference problem for E361: coded as =P33 change to =P37 appExcel.Range("E361").Select appExcel.activecell.Value = "=p37" ' end fix DataBegins = 355 DataEnds = 361 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 362 DataEnds = 368 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 369 DataEnds = 375 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 376 DataEnds = 382 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 383 DataEnds = 389 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartI_Section2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartI_Section2()

On Error GoTo ErrHandler:

' Tab PartI_Section2

'Process Tbl_I_ImmediateParent_GeneralInfo Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_ImmediateParent_GeneralInfo")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 330

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartI_Section2

'Process Tbl_I_ImmediateParent_AnnualInfo Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_ImmediateParent_AnnualInfo_2")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 331 DataEnds = 385 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 386 DataEnds = 440 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 441 DataEnds = 495 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartI_Section3 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartI_Section3()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part I Section 3 Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_UltimateParent_GeneralInfo")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 304

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartD_Section4.1

'Process Tbl_I_UltimateParent_FirmInfo Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_UltimateParent_FirmInfo")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 305 DataEnds = 314 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 315 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 325 DataEnds = 334 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

'Process Tbl_I_UltimateParent_FirmInfo Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_UltimateParent_AnnualInfo")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 335 DataEnds = 340 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 341Tab_PartI_Section3 - 2

DataEnds = 346 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 347 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 353 DataEnds = 358 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 359 DataEnds = 364 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 365 DataEnds = 370 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 371 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 377 DataEnds = 382 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 383 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartI_Section4_1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartI_Section4_1()

On Error GoTo ErrHandler:

' Tab PartI_Section4.1

'Process Tbl_I_Plant_GeneralInfo1 Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_Plant_GeneralInfo1")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 317

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartI_Section4.1

'Process Tbl_I_Plant_AnnualInfo1 Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_Plant_AnnualInfo1")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 318 DataEnds = 325 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 326 DataEnds = 333 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 334 DataEnds = 341 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartI_Section4.1

'Process Tbl_I_GenUnit_AnnualInfo4 Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_GenUnit_AnnualInfo4")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 342 DataEnds = 346 ' copy the data over to the tableTab_PartI_Section4_1 - 2

Call Copy_XLSData_to_Table

'process row 2 DataBegins = 347 DataEnds = 351 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 352 DataEnds = 356 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 357 DataEnds = 361 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 362 DataEnds = 366 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 367 DataEnds = 371 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 372 DataEnds = 376 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 377 DataEnds = 381 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 382 DataEnds = 386 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10 DataBegins = 387 DataEnds = 391 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 392 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 397 DataEnds = 401 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 402 DataEnds = 406Tab_PartI_Section4_1 - 3

' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 407 DataEnds = 411 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 412 DataEnds = 416 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 417 DataEnds = 421 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 422 DataEnds = 426 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 427 DataEnds = 431 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartI_Section4_2 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartI_Section4_2()

On Error GoTo ErrHandler:

' Tab PartI_Section4.2

'Process Tbl_I_Plant_GeneralInfo2 Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_Plant_GeneralInfo2")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F" DataBegins = 301 DataEnds = 313

' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartI_Section4.1

'Process Tbl_I_Plant_AnnualInfo1 Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_Plant_AnnualInfo2")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 314 DataEnds = 343 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 344 DataEnds = 373 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 374 DataEnds = 403 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartI_Section5_1 - 1

Option Compare Database Option Explicit

Public Sub ProcessTab_PartI_Section5_1()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab PartI_Section5.1

' Process Tbl_I_GenUnit_GeneralInfo Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_GenUnit_GeneralInfo")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 312 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 313 DataEnds = 324 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 325 DataEnds = 336 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 337 DataEnds = 348 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 349 DataEnds = 360 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 361 DataEnds = 372 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 373 DataEnds = 384 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 385 DataEnds = 396 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 397 DataEnds = 408 ' copy the data over to the tableTab_PartI_Section5_1 - 2

Call Copy_XLSData_to_Table

'process row 10 DataBegins = 409 DataEnds = 420 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

' Tab PartI_Section5.1

'Process Tbl_I_GenUnit_AnnualInfo1 Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_GenUnit_AnnualInfo1")

'process row 1 DataBegins = 421 DataEnds = 424 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 425 DataEnds = 428 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 429 DataEnds = 432 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 433 DataEnds = 436 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 437 DataEnds = 440 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 441 DataEnds = 444 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 445 DataEnds = 448 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 449 DataEnds = 452 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 453 DataEnds = 456 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartI_Section5_1 - 3

'process row 10 DataBegins = 457 DataEnds = 460 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 461 DataEnds = 464 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 465 DataEnds = 468 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 469 DataEnds = 472 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 473 DataEnds = 476 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 477 DataEnds = 480 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 481 DataEnds = 484 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 485 DataEnds = 488 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 489 DataEnds = 492 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 493 DataEnds = 496 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 497 DataEnds = 500 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 501 DataEnds = 504 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartI_Section5_1 - 4

'process row 22 DataBegins = 505 DataEnds = 508 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 509 DataEnds = 512 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 513 DataEnds = 516 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 517 DataEnds = 520 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 521 DataEnds = 524 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 525 DataEnds = 528 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 529 DataEnds = 532 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 533 DataEnds = 536 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 537 DataEnds = 540 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartI_Section5_2 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartI_Section5_2()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part I Section 5.2 Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_GenUnit_AnnualInfo2")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 313 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 314 DataEnds = 326 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 327 DataEnds = 339 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 340 DataEnds = 352 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 353 DataEnds = 365 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 366 DataEnds = 378 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 379 DataEnds = 391 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 392 DataEnds = 404 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 405 DataEnds = 417 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10Tab_PartI_Section5_2 - 2

DataBegins = 418 DataEnds = 430 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 431 DataEnds = 443 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 444 DataEnds = 456 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 457 DataEnds = 469 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 470 DataEnds = 482 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 483 DataEnds = 495 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 496 DataEnds = 508 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 509 DataEnds = 521 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 522 DataEnds = 534 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 535 DataEnds = 547 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 548 DataEnds = 560 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 561 DataEnds = 573 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartI_Section5_2 - 3

'process row 22 DataBegins = 574 DataEnds = 586 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 587 DataEnds = 599 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 600 DataEnds = 612 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 613 DataEnds = 625 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 626 DataEnds = 638 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 639 DataEnds = 651 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 652 DataEnds = 664 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 665 DataEnds = 677 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 678 DataEnds = 690 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTab_PartI_Section5_3 - 1

Option Compare Database Option Explicit Public Sub ProcessTab_PartI_Section5_3()

On Error GoTo ErrHandler:

' Process xls sheet tabs

' Tab Part I Section 5.3 Call OpenExcelSheet(shtName) Call OpenTable("Tbl_I_GenUnit_AnnualInfo3")

' define data parameters for processing this tab AnswerColumn = "E" FieldColumn = "F"

'process row 1 DataBegins = 301 DataEnds = 311 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 2 DataBegins = 312 DataEnds = 322 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 3 DataBegins = 323 DataEnds = 333 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 4 DataBegins = 334 DataEnds = 344 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 5 DataBegins = 345 DataEnds = 355 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 6 DataBegins = 356 DataEnds = 366 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 7 DataBegins = 367 DataEnds = 377 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 8 DataBegins = 378 DataEnds = 388 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 9 DataBegins = 389 DataEnds = 399 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 10Tab_PartI_Section5_3 - 2

DataBegins = 400 DataEnds = 410 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 11 DataBegins = 411 DataEnds = 421 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 12 DataBegins = 422 DataEnds = 432 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 13 DataBegins = 433 DataEnds = 443 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 14 DataBegins = 444 DataEnds = 454 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 15 DataBegins = 455 DataEnds = 465 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 16 DataBegins = 466 DataEnds = 476 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 17 DataBegins = 477 DataEnds = 487 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 18 DataBegins = 488 DataEnds = 498 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 19 DataBegins = 499 DataEnds = 509 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 20 DataBegins = 510 DataEnds = 520 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 21 DataBegins = 521 DataEnds = 531 ' copy the data over to the table Call Copy_XLSData_to_TableTab_PartI_Section5_3 - 3

'process row 22 DataBegins = 532 DataEnds = 542 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 23 DataBegins = 543 DataEnds = 553 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 24 DataBegins = 554 DataEnds = 564 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 25 DataBegins = 565 DataEnds = 575 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 26 DataBegins = 576 DataEnds = 586 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 27 DataBegins = 587 DataEnds = 597 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 28 DataBegins = 598 DataEnds = 608 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 29 DataBegins = 609 DataEnds = 619 ' copy the data over to the table Call Copy_XLSData_to_Table

'process row 30 DataBegins = 620 DataEnds = 630 ' copy the data over to the table Call Copy_XLSData_to_Table

' close the table Call CloseTable

exit_Sub: Exit Sub

ErrHandler: MsgBox Err.Description Resume exit_Sub End SubTesting CleanUp Routines - 1

Option Compare Database Option Explicit Public Sub TestingCleanOutDatabseAfterTesting() ' This procedure go through all the tables in the database and delete any ' of the records that have been created during testing

On Error GoTo ErrHandler:

Dim TempDB As DAO.Database Dim i As Integer Dim TblName As String

Set TempDB = CurrentDb

For i = 0 To TempDB.TableDefs.Count - 1 TblName = TempDB.TableDefs(i).Name If TestingTableToClean(TblName) Then DoCmd.SetWarnings (False) DoCmd.RunSQL "Delete * from " & TblName & ";" DoCmd.SetWarnings (True) End If Next i

exit_Sub: Exit Sub

ErrHandler: 'MsgBox Err.Description RunTimeErrorFlag = True Resume exit_Sub

End Sub Public Function TestingTableToClean(TblName As String) As Boolean Dim i As Integer Dim TempDB As DAO.Database Dim tempTD As TableDef

Dim tempFld As Field

On Error GoTo ErrHandler:

TestingTableToClean = False

' check to see if the table is not an access system table and not an application system table If Left(UCase(TblName), 12) <> "HOUSEKEEPING" _ And Left(UCase(TblName), 4) <> "MSYS" _ And Left(UCase(TblName), 13) <> "SURVEY REVIEW" Then

' Check to see if the table you're looking at has a field named ' the same as the primary key field

Set TempDB = CurrentDb Set tempTD = TempDB.TableDefs(TblName)

' look at each field in the table For Each tempFld In tempTD.Fields ' look at each property for each field searching for the Name property For i = 0 To tempFld.Properties.Count - 1 Select Case UCase(tempFld.Properties(i).Name) Case "NAME" If UCase(tempFld.Properties(i).Value) = UCase(PrimaryKeyField) Then TestingTableToClean = True Exit For End If End Select Next i If TestingTableToClean = True Then Exit For End IfTesting CleanUp Routines - 2

Next

End If

Set TempDB = Nothing

Exit_Function: Exit Function

ErrHandler: MsgBox Err.Description Resume Exit_Function

End Function