MEMORANDUM 

TO: Steam Electric Rulemaking Record 

FROM: Elizabeth Sabol, ERG 

Deb Bartram, ERG 

DATE: April 19, 2013 

SUBJECT: Steam Electric Technical Questionnaire 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 collect technical, economic, 

and financial information related to wastewater generation and treatment under the authority of 

Section 308 of the Clean Water Act (CWA). 

EPA’s contractor, Eastern Research Group (ERG), developed the survey in an MS Excel format 

to distribute and collect the requested data from industry. After receiving responses from the 

industry, ERG transferred the data electronically to the Steam Electric Technical Database 

(technical database) using a Visual Basic (VBA) program that automatically opened each survey 

response file and transferred the responses to the technical database. For more detailed 

information on the data extraction program see 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 the code for the module entitled AppSystemDrivers). ERG developed 

14 modules to open MS Excel files, extract the information, identify any potential errors with 

extraction, and create a user interface to run the extraction program. An additional 87 modules 

were created to extract the mapped responses specific 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”, “Tab_PartB_Comments”). 
Appendix 1 

Steam Electric Technical Questionnaire Database Extraction Code 
Form_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 Sub
AppSystemDrivers - 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, "Trans

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.", vbInfor

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 5
AppSystemDrivers - 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 Sub
DiskOperationsProcessing - 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 Function
ErrorLog - 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 Function
FileProcessingUtilities - 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 KICKOUT] " & _

 "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 Then
FileProcessingUtilities - 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 ready

 to process ." _

 & vbCrLf & "Please update the table and rerun. " & vbCrLf & vbCrLf & "Processing with stop.", vbC

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.", vbC

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 = Nothing
FileProcessingUtilities - 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 button
FileProcessingUtilities - 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 fieldname
FileProcessingUtilities - 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 If
FileProcessingUtilities - 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 ta

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

Loop
FileProcessingUtilities - 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: " & FieldName

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: " & FieldName

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/2010
FileProcessingUtilities - 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 Function
Globals 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 list
PostProcessingCode - 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 If
PostProcessingCode - 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.Fields
PostProcessingCode - 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 Sub
PostProcessingCode - 5
ProjectSpecificCommentsProcessing - 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.MoveFirst
ProjectSpecificCommentsProcessing - 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 Sub
ProjectSpecificFileName - 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 ju

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 & "\" & PrimaryKeyFieldValueZero

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 ju

st one .xls

 XLSFileName = TempXLSFileName & PrimaryKeyFieldValueZeros & "\" & PrimaryKeyFieldValue

Zeros & "_Part" & XLSPart & ".xls"

 End If

 End If

 End If

 End If

exit_Sub:

Exit Sub
ProjectSpecificFileName - 2

ErrHandler:

 MsgBox Err.Description

 Resume exit_Sub

End Sub
ProjectSpecificGlobals and Constants - 1

Option Compare Database

Option Explicit

' define global fields for file processing

'Global ProcessingPartG As String ' Processing Part G of the survey
ProjectSpecificPartG - 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, "Trans

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.", vbInfor

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 DeletePreviousDataForIDPartG
ProjectSpecificPartG - 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 Sub
ProjectSpecificTransferDriver - 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"

 ProcessPartD
ProjectSpecificTransferDriver - 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 CloseTable
ProjectSpecificTransferDriver - 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_1
ProjectSpecificTransferDriver - 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 nothinig
ProjectSpecificTransferDriver - 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 = shtName
ProjectSpecificTransferDriver - 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 Sub
ProjectSpecificTransferDriver - 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.6
ProjectSpecificTransferDriver - 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 5
ProjectSpecificTransferDriver - 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 If
ProjectSpecificTransferDriver - 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 Then
ProjectSpecificTransferDriver - 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 Sub
ProjectSpecificVersionPartsProcessing - 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 D
ProjectSpecificVersionPartsProcessing - 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 Then

 
ProjectSpecificVersionPartsProcessing - 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 Sub
QCroutines - 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 ) VALU

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 Sub
Tab_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 = 337
Tab_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 22
Tab_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_Table
Tab_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 Sub
Tab_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 Sub
Tab_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 Sub
Tab_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 Sub
Tab_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 Sub
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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 table
Tab_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_Table
Tab_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 Sub
Tab_PartA_Section3 - 5
Tab_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_Table
Tab_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 = 590
Tab_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 Sub
Tab_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 10
Tab_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 Sub
Tab_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_Table
Tab_PartA_Section7 - 2

' close the table

Call CloseTable

exit_Sub:

Exit Sub

ErrHandler:

 MsgBox Err.Description

 Resume exit_Sub

End Sub
Tab_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 Sub
Tab_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_Table
Tab_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 Sub
Tab_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 10
Tab_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_Table
Tab_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 Sub
Tab_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_Table
Tab_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 Sub
Tab_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 Sub
Tab_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 table
Tab_PartB_Section3 - 2

Call CloseTable

exit_Sub:

Exit Sub

ErrHandler:

 MsgBox Err.Description

 Resume exit_Sub

End Sub
Tab_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 Sub
Tab_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 Sub
Tab_PartB_Section4Tables - 2
Tab_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_Section5
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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 table
Tab_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 = 927
Tab_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 Sub
Tab_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 Sub
Tab_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 Sub
Tab_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 Sub
Tab_PartB_Section8Tables - 2
Tab_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 10
Tab_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_Table
Tab_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 Sub
Tab_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 Sub
Tab_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 tab
Tab_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 Sub
Tab_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_Table
Tab_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 8
Tab_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_Table
Tab_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_Table
Tab_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 table
Tab_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 Sub
Tab_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 9
Tab_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 Sub
Tab_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_Table
Tab_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 table
Tab_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 Sub
Tab_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 table
Tab_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 CloseTable
Tab_PartC_Section2_5 - 3

exit_Sub:

Exit Sub

ErrHandler:

 MsgBox Err.Description

 Resume exit_Sub

End Sub
Tab_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 = 609
Tab_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_Table
Tab_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 tab
Tab_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").Select
Tab_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 Sub
Tab_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_Table
Tab_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 8
Tab_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_Table
Tab_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_Table
Tab_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 Sub
Tab_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 9
Tab_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 Sub
Tab_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_Table
Tab_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 table
Tab_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 Sub
Tab_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 table
Tab_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_Sub
Tab_PartC_Section3_5 - 3

End Sub
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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_Table
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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_Section2
Tab_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 6
Tab_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 Sub
Tab_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 Sub
Tab_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").Select
Tab_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 Sabol
Tab_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 Statement
Tab_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 29
Tab_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_Table
Tab_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 table
Tab_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 = 885
Tab_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 = 971
Tab_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 fix
Tab_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 Sub
Tab_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 = 393
Tab_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 Sub
Tab_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 3
Tab_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 Sub
Tab_PartD_Section4_2 - 3

ErrHandler:

 MsgBox Err.Description

 Resume exit_Sub

End Sub
Tab_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 = 445
Tab_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 = 710
Tab_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 = 910
Tab_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 Sub
Tab_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_Table
Tab_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_Table
Tab_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 table
Tab_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 Sub
Tab_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 = 378
Tab_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 = 427
Tab_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 Sub
Tab_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_Table
Tab_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_Table
Tab_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 table
Tab_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 Sub
Tab_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 10
Tab_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_Table
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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 Sub
Tab_PartE_Section2 - 3

ErrHandler:

 MsgBox Err.Description

 Resume exit_Sub

End Sub
Tab_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 Sub
Tab_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_Table
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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 Sub
Tab_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 table
Tab_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_Table
Tab_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 Sub
Tab_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 7
Tab_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 Sub
Tab_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 2
Tab_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 Sub
Tab_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 table
Tab_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 Sub
Tab_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 10
Tab_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 Sub
Tab_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_Table
Tab_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 table
Tab_PartF_Section4_4 - 3

Call CloseTable

exit_Sub:

Exit Sub

ErrHandler:

 MsgBox Err.Description

 Resume exit_Sub

End Sub
Tab_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 = 379
Tab_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 Sub
Tab_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_Table
Tab_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_Table
Tab_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 Sub
Tab_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_Table
Tab_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_Table
Tab_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 table
Tab_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 = 569
Tab_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 Sub
Tab_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_Table
Tab_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_Table
Tab_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 Sub
Tab_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 = 395
Tab_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 19
Tab_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_Table
Tab_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 Sub
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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_Table
Tab_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 table
Tab_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 = 484
Tab_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 = 529
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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_Table
Tab_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 Sub
Tab_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_Table
Tab_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 table
Tab_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 = 815
Tab_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 Sub
Tab_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 Sub
Tab_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_Table
Tab_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 Sub
Tab_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_Table
Tab_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_Table
Tab_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 Sub
Tab_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 Sub
Tab_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 Sub
Tab_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 = 341
Tab_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 Sub
Tab_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 table
Tab_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 = 406
Tab_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 Sub
Tab_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 Sub
Tab_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 table
Tab_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_Table
Tab_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_Table
Tab_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 Sub
Tab_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 10
Tab_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_Table
Tab_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 Sub
Tab_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 10
Tab_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_Table
Tab_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 Sub
Testing 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 If
Testing CleanUp Routines - 2

 Next

 

 End If

 

 Set TempDB = Nothing

Exit_Function:

Exit Function

ErrHandler:

 MsgBox Err.Description

 Resume Exit_Function

End Function