Scribd
Upload
4 views16 pages

Daily Report Data Retrieval Function

The document is a VBA function that retrieves daily report data from Excel files and saves it into a database. It checks if the data already exists for a given date range and processes multiple reports by extracting values from specified cells in the Excel sheets. The function handles various data fields including oil production, gas fuel, tank data, and uptime for different wells.

Uploaded by

Youcef Slimi
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
4 views16 pages

Daily Report Data Retrieval Function

The document is a VBA function that retrieves daily report data from Excel files and saves it into a database. It checks if the data already exists for a given date range and processes multiple reports by extracting values from specified cells in the Excel sheets. The function handles various data fields including oil production, gas fuel, tank data, and uptime for different wells.

Uploaded by

Youcef Slimi
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd

Option Compare Database

Option Explicit

Function DailyReportDataRetrieve(CurentDate As Date, ReadFrDate As Date, ReadToDate


As Date)
Dim cnn As [Link]
Dim rst As New [Link]
Dim ews As [Link]

Dim FileCountr As Date


Dim ReadRepeat, i As Integer
Dim FileString As String

Set cnn = [Link]


Set rst = New [Link]
Set ews = CreateObject("[Link]")

ReadRepeat = ReadToDate - ReadFrDate + 1

If ReadFrDate <= CurentDate Then


MsgBox "The data is alraedy existed in database"
Else
For i = 1 To ReadRepeat
FileCountr = ReadFrDate + i - 1
If Month(FileCountr) < 10 Then
If Day(FileCountr) < 10 Then
FileString = "Daily Report " & CStr(Year(FileCountr)) & " 0" &
CStr(Month(FileCountr)) & " 0" & CStr(Day(FileCountr)) & ".xlsx"
Else
FileString = "Daily Report " & CStr(Year(FileCountr)) & " 0" &
CStr(Month(FileCountr)) & " " & CStr(Day(FileCountr)) & ".xlsx"
End If
Else
If Day(FileCountr) < 10 Then
FileString = "Daily Report " & CStr(Year(FileCountr)) & " " &
CStr(Month(FileCountr)) & " 0" & CStr(Day(FileCountr)) & ".xlsx"
Else
FileString = "Daily Report " & CStr(Year(FileCountr)) & " " &
CStr(Month(FileCountr)) & " " & CStr(Day(FileCountr)) & ".xlsx"
End If
End If
[Link] [Link] & "\Daily report\" & FileString
[Link] = True
With rst
.Open "DAI_ProdReport", cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
.AddNew
[Link](1).Select
.Fields("Daily_ReportDate").Value = FileCountr
.Fields("Daily_Oil_Produce").Value = [Link](19, 4).Value
.Fields("Daily_Oil_Export").Value = [Link](33, 4).Value
.Fields("Daily_Oil_FillIn").Value = 0

[Link](2).Select
If IsEmpty([Link](35, 3).Value) Then
.Fields("Daily_Gas_Fuel").Value = 0
Else
.Fields("Daily_Gas_Fuel").Value = [Link](35, 3).Value
End If
If IsEmpty([Link](36, 3).Value) Then
.Fields("Daily_Gas_Flare").Value = 0
Else
.Fields("Daily_Gas_Flare").Value = [Link](36, 3).Value
End If
If IsEmpty([Link](39, 3).Value) Then
.Fields("Daily_Gas_Inject").Value = 0
Else
.Fields("Daily_Gas_Inject").Value = [Link](39, 3).Value
End If
If IsEmpty([Link](40, 3).Value) Then
.Fields("Daily_Gas_FillIn").Value = 0
Else
.Fields("Daily_Gas_FillIn").Value = [Link](40, 3).Value
End If
If IsEmpty([Link](42, 3).Value) Then
.Fields("Daily_Gas_Export").Value = 0
Else
.Fields("Daily_Gas_Export").Value = [Link](42, 3).Value
End If
If IsEmpty([Link](45, 3).Value) Then
.Fields("Daily_Gas_Lift").Value = 0
Else
.Fields("Daily_Gas_Lift").Value = [Link](45, 3).Value
End If
If IsEmpty([Link](53, 3).Value) Then
.Fields("Daily_Wat_Albian").Value = 0
Else
.Fields("Daily_Wat_Albian").Value = [Link](53, 3).Value
End If
If IsEmpty([Link](54, 3).Value) Then
.Fields("Daily_Wat_Miocene").Value = 0
Else
.Fields("Daily_Wat_Miocene").Value = [Link](54, 3).Value
End If
If IsEmpty([Link](55, 3).Value) Then
.Fields("Daily_Wat_Formatn").Value = 0
Else
.Fields("Daily_Wat_Formatn").Value = [Link](55, 3).Value
End If
.Save
.Close
.Open "DAI_TankData", cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
.AddNew
.Fields("Daily_Tank_RptDate").Value = FileCountr
.Fields("Daily_Tank_Name").Value = "TK1201-A"
.Fields("Daily_Tank_Volume").Value = [Link](26, 5).Value
.Fields("Daily_Tank_Height").Value = [Link](26, 3).Value
.AddNew
.Fields("Daily_Tank_RptDate").Value = FileCountr
.Fields("Daily_Tank_Name").Value = "TK1201-B"
.Fields("Daily_Tank_Volume").Value = [Link](27, 5).Value
.Fields("Daily_Tank_Height").Value = [Link](27, 3).Value
.AddNew
.Fields("Daily_Tank_RptDate").Value = FileCountr
.Fields("Daily_Tank_Name").Value = "TK1201-C"
.Fields("Daily_Tank_Volume").Value = [Link](28, 5).Value
.Fields("Daily_Tank_Height").Value = [Link](28, 3).Value
.AddNew
.Fields("Daily_Tank_RptDate").Value = FileCountr
.Fields("Daily_Tank_Name").Value = "TK1202"
If IsEmpty([Link](29, 5).Value) Then
.Fields("Daily_Tank_Volume").Value = 0
Else
.Fields("Daily_Tank_Volume").Value = [Link](29, 5).Value
End If
If IsEmpty([Link](29, 3).Value) Then
.Fields("Daily_Tank_Height").Value = 0
Else
.Fields("Daily_Tank_Height").Value = [Link](29, 3).Value
End If
.Save
.Close
.Open "DAI_Uptime", cnn, adOpenKeyset, adLockOptimistic, adCmdTableDirect
'.AddNew

' [Link](3).Select
'.Fields("Daily_UpT_RptDate").Value = FileCountr
'.Fields("Daily_UpT_WellID").Value = "BRS-06"
'.Fields("Daily_UpT_FormID").Value = "Hamra"
' If IsEmpty([Link](11, 5).Value) Then
' .Fields("Daily_UpT_Uptime").Value = 0
'Else
' .Fields("Daily_UpT_Uptime").Value = [Link](11, 5).Value
' End If
' If IsEmpty([Link](11, 8).Value) Then
' .Fields("Daily_UpT_AvgWHP").Value = 0
'Else
' .Fields("Daily_UpT_AvgWHP").Value = [Link](11, 8).Value
' End If
'If IsEmpty([Link](11, 7).Value) Then
' .Fields("Daily_UpT_Choke").Value = 0
' Else
.Fields("Daily_UpT_Choke").Value = [Link](11, 7).Value
' End If
' .Fields("Daily_UpT_GOR").Value = 854

' .AddNew
' .Fields("Daily_UpT_RptDate").Value = FileCountr
' .Fields("Daily_UpT_WellID").Value = "BRS-06Ter"
' .Fields("Daily_UpT_FormID").Value = "Hamra"
' If IsEmpty([Link](12, 5).Value) Then
' .Fields("Daily_UpT_Uptime").Value = 0

' Else
' .Fields("Daily_UpT_Uptime").Value = [Link](12, 5).Value
' End If

' If IsEmpty([Link](12, 8).Value) Then


' .Fields("Daily_UpT_AvgWHP").Value = 0

'Else
' .Fields("Daily_UpT_AvgWHP").Value = [Link](12, 8).Value
' End If

' If IsEmpty([Link](12, 7).Value) Then


' .Fields("Daily_UpT_Choke").Value = 0

' Else
' .Fields("Daily_UpT_Choke").Value = [Link](12, 7).Value
' End If
' .Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-09"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](11, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](11, 5).Value
End If

If IsEmpty([Link](11, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](11, 8).Value
End If

If IsEmpty([Link](11, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](11, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-12"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](12, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](12, 5).Value
End If

If IsEmpty([Link](12, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](12, 8).Value
End If

If IsEmpty([Link](12, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](12, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-14"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](13, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0
Else
.Fields("Daily_UpT_Uptime").Value = [Link](13, 5).Value
End If

If IsEmpty([Link](13, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](13, 8).Value
End If

If IsEmpty([Link](13, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](13, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-18"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](14, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](14, 5).Value
End If

If IsEmpty([Link](14, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](14, 8).Value
End If

If IsEmpty([Link](14, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](14, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-24"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](15, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](15, 5).Value
End If

If IsEmpty([Link](15, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](15, 8).Value
End If

If IsEmpty([Link](15, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](15, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854

.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-31"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](16, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](16, 5).Value
End If

If IsEmpty([Link](16, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](16, 8).Value
End If

If IsEmpty([Link](16, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](16, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854

'.AddNew
'.Fields("Daily_UpT_RptDate").Value = FileCountr
'.Fields("Daily_UpT_WellID").Value = "BRS-08"
'Fields("Daily_UpT_FormID").Value = "Hamra"
'If IsEmpty([Link](18, 5).Value) Then
' .Fields("Daily_UpT_Uptime").Value = 0

'Else
' .Fields("Daily_UpT_Uptime").Value = [Link](18, 5).Value
' End If

' If IsEmpty([Link](18, 8).Value) Then


' .Fields("Daily_UpT_AvgWHP").Value = 0

' Else
' .Fields("Daily_UpT_AvgWHP").Value = [Link](18, 8).Value
' End If

' If IsEmpty([Link](18, 7).Value) Then


' .Fields("Daily_UpT_Choke").Value = 0
' Else
' .Fields("Daily_UpT_Choke").Value = [Link](18, 7).Value
' End If
' .Fields("Daily_UpT_GOR").Value = 660
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-13"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](17, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](17, 5).Value
End If

If IsEmpty([Link](17, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](17, 8).Value
End If

If IsEmpty([Link](17, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](17, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-16"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](18, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](18, 5).Value
End If

If IsEmpty([Link](18, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](18, 8).Value
End If

If IsEmpty([Link](18, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](18, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-17"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](19, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](19, 5).Value
End If

If IsEmpty([Link](19, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](19, 8).Value
End If

If IsEmpty([Link](19, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](19, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-20"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](20, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](20, 5).Value
End If

If IsEmpty([Link](20, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](20, 8).Value
End If

If IsEmpty([Link](20, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](20, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 660
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-21"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](21, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](21, 5).Value
End If

If IsEmpty([Link](21, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0
Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](21, 8).Value
End If

If IsEmpty([Link](21, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](21, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 660
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-22"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](22, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](22, 5).Value
End If

If IsEmpty([Link](22, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](22, 8).Value
End If

If IsEmpty([Link](22, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](22, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-25"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](23, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](23, 5).Value
End If

If IsEmpty([Link](23, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](23, 8).Value
End If

If IsEmpty([Link](23, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](23, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-28"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](24, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](24, 5).Value
End If

If IsEmpty([Link](24, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](24, 8).Value
End If

If IsEmpty([Link](24, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](24, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 660
' .AddNew
' .Fields("Daily_UpT_RptDate").Value = FileCountr
' .Fields("Daily_UpT_WellID").Value = "BRS-10"
' .Fields("Daily_UpT_FormID").Value = "Hamra"
' If IsEmpty([Link](27, 5).Value) Then
' .Fields("Daily_UpT_Uptime").Value = 0

' Else
' .Fields("Daily_UpT_Uptime").Value = [Link](27, 5).Value
' End If

'If IsEmpty([Link](27, 8).Value) Then


' .Fields("Daily_UpT_AvgWHP").Value = 0

' Else
' .Fields("Daily_UpT_AvgWHP").Value = [Link](27, 8).Value
' End If

'If IsEmpty([Link](27, 7).Value) Then


' .Fields("Daily_UpT_Choke").Value = 0

'Else
' .Fields("Daily_UpT_Choke").Value = [Link](27, 7).Value
' End If
' .Fields("Daily_UpT_GOR").Value = 854
' .AddNew
' .Fields("Daily_UpT_RptDate").Value = FileCountr
'.Fields("Daily_UpT_WellID").Value = "BRS-15"
' .Fields("Daily_UpT_FormID").Value = "Hamra"
' If IsEmpty([Link](28, 5).Value) Then
' .Fields("Daily_UpT_Uptime").Value = 0
' Else
' .Fields("Daily_UpT_Uptime").Value = [Link](28, 5).Value
' End If

' If IsEmpty([Link](28, 8).Value) Then


' .Fields("Daily_UpT_AvgWHP").Value = 0

' Else
' .Fields("Daily_UpT_AvgWHP").Value = [Link](28, 8).Value
' End If

'If IsEmpty([Link](28, 7).Value) Then


' .Fields("Daily_UpT_Choke").Value = 0

' Else
' .Fields("Daily_UpT_Choke").Value = [Link](28, 7).Value
' End If
' .Fields("Daily_UpT_GOR").Value = 854

.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-19Bis"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](25, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](25, 5).Value
End If

If IsEmpty([Link](25, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](25, 8).Value
End If

If IsEmpty([Link](25, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](25, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854

.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-27"
.Fields("Daily_UpT_FormID").Value = "Hamra"
If IsEmpty([Link](26, 5).Value) Then
.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](26, 5).Value
End If

If IsEmpty([Link](26, 8).Value) Then


.Fields("Daily_UpT_AvgWHP").Value = 0
Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](26, 8).Value
End If

If IsEmpty([Link](26, 7).Value) Then


.Fields("Daily_UpT_Choke").Value = 0

Else
.Fields("Daily_UpT_Choke").Value = [Link](26, 7).Value
End If
.Fields("Daily_UpT_GOR").Value = 854

[Link](4).Select
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "EAU-01"
.Fields("Daily_UpT_FormID").Value = "Miocene"
.Fields("Daily_UpT_Uptime").Value = [Link](32, 4).Value
.Fields("Daily_UpT_AvgWHP").Value = 0
.Fields("Daily_UpT_Choke").Value = 0
.Fields("Daily_UpT_GOR").Value = 0

.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-201"
.Fields("Daily_UpT_FormID").Value = "Injector"

If IsEmpty([Link](48, 4).Value) Then


.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](48, 4).Value
End If
If IsEmpty([Link](48, 7).Value) Then
.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](48, 7).Value
End If
If IsEmpty([Link](48, 9).Value) Then
.Fields("Daily_UpT_AvgW_injection_Rate").Value = 0

Else
.Fields("Daily_UpT_AvgW_injection_Rate").Value = [Link](48, 9).Value
End If
.Fields("Daily_UpT_GOR").Value = 0

.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-204"
.Fields("Daily_UpT_FormID").Value = "Injector"

If IsEmpty([Link](51, 4).Value) Then


.Fields("Daily_UpT_Uptime").Value = 0
Else
.Fields("Daily_UpT_Uptime").Value = [Link](51, 4).Value
End If
If IsEmpty([Link](51, 7).Value) Then
.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](51, 7).Value
End If
If IsEmpty([Link](51, 9).Value) Then
.Fields("Daily_UpT_AvgW_injection_Rate").Value = 0

Else
.Fields("Daily_UpT_AvgW_injection_Rate").Value = [Link](51, 9).Value
End If
.Fields("Daily_UpT_GOR").Value = 0

.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-206"
.Fields("Daily_UpT_FormID").Value = "Injector"

If IsEmpty([Link](52, 4).Value) Then


.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](52, 4).Value
End If
If IsEmpty([Link](52, 7).Value) Then
.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](52, 7).Value
End If
If IsEmpty([Link](52, 9).Value) Then
.Fields("Daily_UpT_AvgW_injection_Rate").Value = 0

Else
.Fields("Daily_UpT_AvgW_injection_Rate").Value = [Link](52, 9).Value
End If
.Fields("Daily_UpT_GOR").Value = 0
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-208"
.Fields("Daily_UpT_FormID").Value = "Injector"

If IsEmpty([Link](53, 4).Value) Then


.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](53, 4).Value
End If
If IsEmpty([Link](53, 7).Value) Then
.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](53, 7).Value
End If
If IsEmpty([Link](53, 9).Value) Then
.Fields("Daily_UpT_AvgW_injection_Rate").Value = 0

Else
.Fields("Daily_UpT_AvgW_injection_Rate").Value = [Link](53, 9).Value
End If
.Fields("Daily_UpT_GOR").Value = 0
' .AddNew
'.Fields("Daily_UpT_RptDate").Value = FileCountr
' .Fields("Daily_UpT_WellID").Value = "BRS-201"
'.Fields("Daily_UpT_FormID").Value = "Injector"
'.Fields("Daily_UpT_Uptime").Value = 0
'.Fields("Daily_UpT_AvgWHP").Value = 0
' .Fields("Daily_UpT_AvgW_injection_Rate").Value = 0
' .Fields("Daily_UpT_GOR").Value = 0

.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-202"
.Fields("Daily_UpT_FormID").Value = "Injector"

If IsEmpty([Link](49, 4).Value) Then


.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](49, 4).Value
End If
If IsEmpty([Link](49, 7).Value) Then
.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](49, 7).Value
End If
If IsEmpty([Link](49, 9).Value) Then
.Fields("Daily_UpT_AvgW_injection_Rate").Value = 0

Else
.Fields("Daily_UpT_AvgW_injection_Rate").Value = [Link](49, 9).Value
End If
.Fields("Daily_UpT_GOR").Value = 0
.AddNew
.Fields("Daily_UpT_RptDate").Value = FileCountr
.Fields("Daily_UpT_WellID").Value = "BRS-203"
.Fields("Daily_UpT_FormID").Value = "Injector"

If IsEmpty([Link](50, 4).Value) Then


.Fields("Daily_UpT_Uptime").Value = 0

Else
.Fields("Daily_UpT_Uptime").Value = [Link](50, 4).Value
End If
If IsEmpty([Link](50, 7).Value) Then
.Fields("Daily_UpT_AvgWHP").Value = 0

Else
.Fields("Daily_UpT_AvgWHP").Value = [Link](50, 7).Value
End If
If IsEmpty([Link](50, 9).Value) Then
.Fields("Daily_UpT_AvgW_injection_Rate").Value = 0
Else
.Fields("Daily_UpT_AvgW_injection_Rate").Value = [Link](50, 9).Value
End If
.Fields("Daily_UpT_GOR").Value = 0
.Save
.Close
End With
Next i
MsgBox "Production database to updated to " & ReadToDate
[Link]
End If
End Function

Function DailyParametersRetrieve(CurrentDate As Date, ReadFrDate As Date,


ReadToDate As Date)
Dim cnn As [Link]
Dim rst As New [Link]
Dim ews As [Link]

Dim FileCountr As Date


Dim ReadRepeat, DoTotal, i, j, k As Integer
Dim FileString As String
Dim WellName As String * 10

Set cnn = [Link]


Set rst = New [Link]
Set ews = CreateObject("[Link]")

ReadRepeat = ReadToDate - ReadFrDate + 1

If ReadFrDate <= CurrentDate Then


MsgBox "The data is alraedy existed in database"
Else
For i = 1 To ReadRepeat
FileCountr = ReadFrDate + i - 1
If Month(FileCountr) < 10 Then
If Day(FileCountr) < 10 Then
FileString = "well parameters " & CStr(Year(FileCountr)) & "-0" &
CStr(Month(FileCountr)) & "-0" & CStr(Day(FileCountr)) & ".xlsx"
Else
FileString = "well parameters " & CStr(Year(FileCountr)) & "-0" &
CStr(Month(FileCountr)) & "-" & CStr(Day(FileCountr)) & ".xlsx"
End If
Else
If Day(FileCountr) < 10 Then
FileString = "well parameters " & CStr(Year(FileCountr)) & "-" &
CStr(Month(FileCountr)) & "-0" & CStr(Day(FileCountr)) & ".xlsx"
Else
FileString = "well parameters " & CStr(Year(FileCountr)) & "-" &
CStr(Month(FileCountr)) & "-" & CStr(Day(FileCountr)) & ".xlsx"
End If
End If

With ews
.[Link] [Link] & "\Daily well parameters\" & FileString
.Visible = True
End With
With rst
.Open "DAI_WellParameter", cnn, adOpenKeyset, adLockOptimistic,
adCmdTableDirect
[Link](1).Select
k = 1
j = 1
DoTotal = [Link]([Link]("C9:C999")) + 1
Do Until (k = DoTotal)
If Not IsEmpty([Link](j + 8, 3)) Then
.AddNew
.Fields("WH_Date").Value = FileCountr
.Fields("WH_Time").Value = [Link](j + 8, 3)
If Not IsEmpty([Link](j + 8, 2)) Then
WellName = [Link](j + 8, 2)
End If
.Fields("WH_WellID").Value = WellName
If IsEmpty([Link](j + 8, 4)) Or [Link](j + 8, 4) = 0 Or Not
IsNumeric([Link](j + 8, 4)) Then
.Fields("WH_Choke").Value = 0
.Fields("WH_THP").Value = 0
.Fields("WH_THT").Value = 0
.Fields("WH_FLP").Value = 0
.Fields("WH_FLT").Value = 0
.Fields("WH_AAnnP").Value = 0
.Fields("WH_BAnnP").Value = 0
.Fields("WH_CAnnP").Value = 0
.Fields("WH_Scale").Value = 0
.Fields("WH_Corrs").Value = 0
.Fields("WH_Waxin").Value = 0
.Fields("WH_Dilut").Value = 0
Else
.Fields("WH_Choke").Value = [Link](j + 8, 4)
.Fields("WH_THP").Value = [Link](j + 8, 5)
.Fields("WH_THT").Value = [Link](j + 8, 6)
.Fields("WH_FLP").Value = [Link](j + 8, 7)
.Fields("WH_FLT").Value = [Link](j + 8, 8)
.Fields("WH_AAnnP").Value = [Link](j + 8, 9)
.Fields("WH_BAnnP").Value = [Link](j + 8, 10)
.Fields("WH_CAnnP").Value = [Link](j + 8, 11)
.Fields("WH_Scale").Value = [Link](j + 8, 12)
.Fields("WH_Corrs").Value = [Link](j + 8, 13)
.Fields("WH_Waxin").Value = [Link](j + 8, 14)
.Fields("WH_Dilut").Value = [Link](j + 8, 15)
End If
.Fields("WH_Commnt").Value = [Link](j + 8, 16)
k = k + 1
End If
j = j + 1
Loop
.Save
.Close
End With
Next i
MsgBox "Well parameters database to updated to " & ReadToDate
[Link]
End If
End Function

You might also like