'Sub Button1_Click()
Private Sub Workbook_Open()
'Application.Wait Now() + TimeValue("00:00:10")
'For a = 1 To 10
'MsgBox (a)
'Next
'Sub Button1_Click()
Set server = CreateObject("faconsvr.faconserver")
server.openproject ("C:\Documents and Settings\LMS\My Documents\SSP3\FaconClientSSP3.fcs")
server.Connect
Application.Wait Now() + TimeValue("00:00:03")
'timer1.enable = True
Worksheets("Sheet1").Range("g16") = server.getitem("channel0.station0.group_kw", "DR1100")
Worksheets("Sheet1").Range("g17") = server.getitem("channel0.station0.group_kw", "DR1102")
Worksheets("Sheet1").Range("g18") = server.getitem("channel0.station0.group_kw", "DR1104")
Worksheets("Sheet1").Range("g19") = server.getitem("channel0.station0.group_kw", "DR1106")
Worksheets("Sheet1").Range("g20") = server.getitem("channel0.station0.group_kw", "DR1108")
Worksheets("Sheet1").Range("g21") = server.getitem("channel0.station0.group_kw", "DR1110")
Worksheets("Sheet1").Range("g22") = server.getitem("channel0.station0.group_kw", "DR1112")
Worksheets("Sheet1").Range("g23") = server.getitem("channel0.station0.group_kw", "DR1114")
Worksheets("Sheet1").Range("g24") = server.getitem("channel0.station0.group_kw", "DR1116")
Worksheets("Sheet1").Range("g25") = server.getitem("channel0.station0.group_kw", "DR1118")
Worksheets("Sheet1").Range("g26") = server.getitem("channel0.station0.group_kw", "DR1120")
Worksheets("Sheet1").Range("g27") = server.getitem("channel0.station0.group_kw", "DR1122")
Worksheets("Sheet1").Range("g28") = server.getitem("channel0.station0.group_kw", "DR1124")
Worksheets("Sheet1").Range("g29") = server.getitem("channel0.station0.group_kw", "DR1126")
Worksheets("Sheet1").Range("g30") = server.getitem("channel0.station0.group_kw", "DR1128")
Worksheets("Sheet1").Range("g31") = server.getitem("channel0.station0.group_kw", "DR1130")
Worksheets("Sheet1").Range("g32") = server.getitem("channel0.station0.group_kw", "DR1132")
Worksheets("Sheet1").Range("g33") = server.getitem("channel0.station0.group_kw", "DR1134")
Worksheets("Sheet1").Range("g34") = server.getitem("channel0.station0.group_kw", "DR1136")
Worksheets("Sheet1").Range("g35") = server.getitem("channel0.station0.group_kw", "DR1138")
Worksheets("Sheet1").Range("g36") = server.getitem("channel0.station0.group_kw", "DR1140")
Worksheets("Sheet1").Range("g37") = server.getitem("channel0.station0.group_kw", "DR1142")
Worksheets("Sheet1").Range("g38") = server.getitem("channel0.station0.group_kw", "DR1144")
Worksheets("Sheet1").Range("g39") = server.getitem("channel0.station0.group_kw", "DR1146")
Worksheets("Sheet1").Range("g40") = server.getitem("channel0.station0.group_kwh", "DR2200")
Worksheets("Sheet1").Range("g41") = server.getitem("channel0.station0.group_kwh", "DR2202")
Worksheets("Sheet1").Range("g42") = server.getitem("channel0.station0.group_kwh", "DR2204")
Worksheets("Sheet1").Range("g43") = server.getitem("channel0.station0.group_kwh", "DR2206")
Worksheets("Sheet1").Range("g44") = server.getitem("channel0.station0.group_kwh", "DR2208")
Worksheets("Sheet1").Range("g45") = server.getitem("channel0.station0.group_kwh", "DR2210")
Worksheets("Sheet1").Range("g46") = server.getitem("channel0.station0.group_kwh", "DR2212")
Worksheets("Sheet1").Range("g47") = server.getitem("channel0.station0.group_kwh", "DR2214")
Worksheets("Sheet1").Range("g48") = server.getitem("channel0.station0.group_kwh", "DR2216")
Worksheets("Sheet1").Range("g49") = server.getitem("channel0.station0.group_kwh", "DR2218")
Worksheets("Sheet1").Range("g50") = server.getitem("channel0.station0.group_kwh", "DR2220")
Worksheets("Sheet1").Range("g51") = server.getitem("channel0.station0.group_kwh", "DR2222")
Worksheets("Sheet1").Range("g52") = server.getitem("channel0.station0.group_kwh", "DR2224")
Worksheets("Sheet1").Range("g53") = server.getitem("channel0.station0.group_kwh", "DR2226")
Worksheets("Sheet1").Range("g54") = server.getitem("channel0.station0.group_kwh", "DR2228")
Worksheets("Sheet1").Range("g55") = server.getitem("channel0.station0.group_kwh", "DR2230")
Worksheets("Sheet1").Range("g56") = server.getitem("channel0.station0.group_kwh", "DR2232")
Worksheets("Sheet1").Range("g57") = server.getitem("channel0.station0.group_kwh", "DR2234")
Worksheets("Sheet1").Range("g58") = server.getitem("channel0.station0.group_kwh", "DR2236")
Worksheets("Sheet1").Range("g59") = server.getitem("channel0.station0.group_kwh", "DR2238")
Worksheets("Sheet1").Range("g60") = server.getitem("channel0.station0.group_kwh", "DR2240")
Worksheets("Sheet1").Range("g61") = server.getitem("channel0.station0.group_kwh", "DR2242")
Worksheets("Sheet1").Range("g62") = server.getitem("channel0.station0.group_kwh", "DR2244")
Worksheets("Sheet1").Range("g63") = server.getitem("channel0.station0.group_kwh", "DR2246")
'close filename "C:\Documents and Settings\LMS\My Documents\My Music\closefacon.bat"
'Application.Quit ("C:\Documents and Settings\LMS\My Documents\My Music\facon clients.fcs")
'server.Application.Quit ("C:\Documents and Settings\LMS\My Documents\My Music\facon clients.fcs")
With Workbooks("FaconClientSSP3.xls").Worksheets("Sheet1").Range("G16:G63").Copy
'Range("G25").Select
'Selection.Copy
'Range("H25").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
':=False, Transpose:=False
Workbooks.Open filename:= _
"C:\Documents and Settings\LMS\My Documents\SSP3\SSP3FDRDATA2016.xls"
Select Case Month(Now())
Case 1
s = "JANUARY"
Case 2
s = "FABUARY"
Case 3
s = "MARCH"
Case 4
s = "APRIL"
Case 5
s = "MAY"
Case 6
s = "JUNE"
Case 7
s = "JULY"
Case 8
s = "AUGUST"
Case 9
s = "SEPTEMBER"
Case 10
s = "OCTOBER"
Case 11
s = "NOVEMBER"
Case 12
s = "DECEMBER"
End Select
'Range("H25").Select
'Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
':=False, Transpose:=False
Select Case Day(Now())
Case 1
Excel.Sheets(s).Select
Range("G16:G63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("G14") = Time()
Case 2
Excel.Sheets(s).Select
Range("H16:H63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("H14") = Time()
Case 3
Excel.Sheets(s).Select
Range("I16:I63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("I14") = Time()
Case 4
Excel.Sheets(s).Select
Range("J16:J63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J14") = Time()
Case 5
Excel.Sheets(s).Select
Range("K16:K63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("K14") = Time()
Case 6
Excel.Sheets(s).Select
Range("L16:L63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("L14") = Time()
Case 7
Excel.Sheets(s).Select
Range("M16:M63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("M14") = Time()
Case 8
Excel.Sheets(s).Select
Range("N16:N63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("N14") = Time()
Case 9
Excel.Sheets(s).Select
Range("O16:O63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("O14") = Time()
Case 10
Excel.Sheets(s).Select
Range("P16:P63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("P14") = Time()
Case 11
Excel.Sheets(s).Select
Range("Q16:Q63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Q14") = Time()
Case 12
Excel.Sheets(s).Select
Range("R16:R63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("R14") = Time()
Case 13
Excel.Sheets(s).Select
Range("S16:S29").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("S14") = Time()
Case 14
Excel.Sheets(s).Select
Range("T16:T63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("T14") = Time()
Case 15
Excel.Sheets(s).Select
Range("U16:U63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("U14") = Time()
Case 16
Excel.Sheets(s).Select
Range("V16:V63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("V14") = Time()
Case 17
Excel.Sheets(s).Select
Range("W16:W63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("W14") = Time()
Case 18
Excel.Sheets(s).Select
Range("X16:X63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("X14") = Time()
Case 19
Excel.Sheets(s).Select
Range("Y16:Y63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Y14") = Time()
Case 20
Excel.Sheets(s).Select
Range("Z16:Z63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("Z14") = Time()
Case 21
Excel.Sheets(s).Select
Range("AA16:AA63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AA14") = Time()
Case 22
Excel.Sheets(s).Select
Range("AB16:AB63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AB14") = Time()
Case 23
Excel.Sheets(s).Select
Range("AC16:AC63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AC14") = Time()
Case 24
Excel.Sheets(s).Select
Range("AD16:AD63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AD14") = Time()
Case 25
Excel.Sheets(s).Select
Range("AE16:AE63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AE14") = Time()
Case 26
Excel.Sheets(s).Select
Range("AF16:AF63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AF14") = Time()
Case 27
Excel.Sheets(s).Select
Range("AG16:AG63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AG14") = Time()
Case 28
Excel.Sheets(s).Select
Range("AH16:AH63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AH14") = Time()
Case 29
Excel.Sheets(s).Select
Range("AI16:AI63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AI14") = Time()
Case 30
Excel.Sheets(s).Select
Range("AJ16:AJ63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AJ14") = Time()
Case 31
Excel.Sheets(s).Select
Range("AK16:AK63").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AK14") = Time()
End Select
'''''''''''''''''''''''''''MOLDING LMS TEXT FILE CREATION''''''''''''''''''''
Dim sName As String
Dim rng_1 As Range, cell_1 As Range
Dim rng_2 As Range, cell_2 As Range
'sName = ActiveSheet.Name
'sName = Application.GetSaveFilename( _
InitialFileName:=sName & ".txt", _
FileFilter:="Text Files (*.txt),*.txt")
'If sName = "" Then Exit Sub
Open "C:\Documents and Settings\LMS\My Documents\NA_Folder\MOLDLmsText.txt" For Output As #1
Set rng_1 = Range(Range("C55"), _
Cells(Rows.Count, 3).End(xlUp))
For Each cell_1 In rng_1
Print #1, cell_1.Offset(0, 0).Text
Print #1, cell_1.Offset(0, 4).Text
Print #1,
Next
End With
ActiveWorkbook.Save
ActiveWorkbook.Close
'Call MyOPCServer.Disconnect
'Set MyOPCServer = Nothing
ActiveWorkbook.Save
'ActiveWorkbook.Closed SaveChanges = 1
Application.Quit
End Sub
Private Sub closeprogram()
myAppid = Shell("C:\Program Files\Fatek\FaconSvr\FaconSvr.exe", 1)
SendKeys "%{F4}", True
End Sub