pt/VBA
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

point to new server, and use new function formula2r1c1

Browse Source
This commit is contained in:
Paul Trowbridge 2023-01-05 14:13:29 -05:00
parent 220116c67d
commit 4f45a6b3f3
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
TheBigOne.cls
View File

@ -443,7 +443,7 @@ Sub SHTp_Dump(ByRef tbl() As String, ByRef sheet As String, ByRef row As Long, B
If clear Then sh.Cells.clear If clear Then sh.Cells.clear
If transpose Then Call Me.ARRAYp_Transpose(tbl) If transpose Then Call Me.ARRAYp_Transpose(tbl)
sh.Range(sh.Cells(row, col).address & ":" & sh.Cells(row + UBound(tbl, 1), col + UBound(tbl, 2)).address).FormulaR1C1 = tbl sh.Range(sh.Cells(row, col).address & ":" & sh.Cells(row + UBound(tbl, 1), col + UBound(tbl, 2)).address).Formula2R1C1 = tbl
On Error GoTo errhndl On Error GoTo errhndl

6
targets.bas
View File

@ -15,12 +15,12 @@ Sub get_options()
'If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5030;Database=ubm") Then Exit Sub 'If Not x.ADOp_OpenCon(0, PostgreSQLODBC, "usmidlnx01", False, "ptrowbridge", "qqqx53!030", "Port=5030;Database=ubm") Then Exit Sub
sql = "SELECT * FROM rlarp.get_options('" & mold & "');" sql = "SELECT * FROM rlarp.get_options('" & mold & "');"
res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "usmidlnx01", False, "report", "report", "Port=5432;Database=ubm") res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "10.56.60.254", False, "report", "report", "Port=5432;Database=ubm")
ws.Range("M1:P350").ClearContents ws.Range("M1:AD350").ClearContents
Call x.SHTp_Dump(res, ws.Name, 1, 13, False, True, 15) Call x.SHTp_Dump(res, ws.Name, 1, 13, False, True, 15)
sql = "SELECT * FROM rlarp.get_option_costs('" & mold & "');" sql = "SELECT * FROM rlarp.get_option_costs('" & mold & "');"
res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "usmidlnx01", False, "report", "report", "Port=5432;Database=ubm") res = x.ADOp_SelectS(0, sql, True, 100, True, PostgreSQLODBC, "10.56.60.254", False, "report", "report", "Port=5432;Database=ubm")
ws.Range("C1:K350").ClearContents ws.Range("C1:K350").ClearContents
Call x.SHTp_Dump(res, ws.Name, 1, 3, False, True, 8) Call x.SHTp_Dump(res, ws.Name, 1, 3, False, True, 8)