General information
Category:
Reports & Report designer
Hi Olatunji,
The below is more than you asked for but it inserts rows above the copy/exported file, inserts title and date and modifies the column headings.
If you need more assistance let me know. Good luck.
Paige
oExcel = CREATEOBJECT("Excel.Application")
oExcel.Visible = .T.
oWorkbook = oExcel.Workbooks.open(ExportPath)
WITH oExcel
&& Insert 3 rows:
.Cells(1,1).Value=[Insert row above this line]
.Range("A1").Select
.Selection.EntireRow.Insert
.Range("A2").Select
.Selection.EntireRow.Insert
.Range("A3").Select
.Selection.EntireRow.Insert
.Range("A4").Select
.Selection.EntireRow.Insert
*
.Range("B2").Select
.WorkSheets(1).Pictures.Insert(CSCLogo)
.WorkSheets(1).PageSetup.Orientation = xlLandscape
*
&& Insert 2 line title:
DO CASE
CASE lcCli_Rept = "N1"
.Range("F1").Value = "NON OMPLIANT POLICIES REPORT"
.Range("J1").Value = "Date: "+DTOC(DATE())
.Range("F2").Value = " For"
.Range("F3").Value = lcCli_Name
&& Replace column headings and adjust size:
.Range("A5").Value = "Client"
.Range("B5").Value = lcIns_Labl+" Id"
.Range("C5").Value = "Issued"
.Range("D5").Value = "Expired"
.Range("E5").Value = "Type"
.Range("F5").Value = "Prefix"
.Range("G5").Value = "First Name"
.Range("H5").Value = "Middle"
.Range("I5").Value = "Last Name"
.Range("J5").Value = "Property Description"
.Range("K5").Value = "ES Codes"
CASE lcCli_Rept = "P1"
.Range("D1").Value = "NON COMPLIANT POLICIES REPORT"
.Range("G1").Value = "Date: "+DTOC(DATE())
.Range("D2").Value = " For"
.Range("D3").Value = lcCli_Name
&& Replace column headings and adjust size:
.Range("A5").Value = "Client"
.Range("B5").Value = lcIns_Labl+" Id"
.Range("C5").Value = "Issued"
.Range("D5").Value = "Expired"
.Range("E5").Value = "Type"
.Range("F5").Value = "Insured Party"
.Range("G5").Value = "Property Description"
.Range("H5").Value = "ES Codes"
*
ENDCASE
etc. etc, etc.
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only