Xbasic
Office Example: Update a spreadsheet

Description
This example demonstrates opening an existing spreadsheet and updating one or more values. First, we generate the same spreadsheet as seen in the simple weekly sales sample. Then we open the spreadsheet and update the Sales and Expense columns.After the spreadsheet is updated, it is opened in Microsoft Excel.
dim ShowOriginalFile     as L = .f.
dim FilePath             as C = "C:\temp\\"
dim OriginalDocumentFile as C = FilePath + "A5OfficeSample7_Original.xlsx"
dim UpdatedDocumentFile  as C = FilePath + "A5OfficeSample7_Updated.xlsx"
dim Doc                  as Office::ExcelDocument    ' Declare the document variable

' Compute the date of the most recent Sunday
dim StartDate as D = date() - (dow(date()) - 1)

' Create the "original" version of the spreadsheet so we can do the update.
' It will have all of the text and formats, but the data will be for a week ago Sunday.
CreateOriginalSpreadsheet(OriginalDocumentFile, ShowOriginalFile)

' Load the original file and update the daily totals.
if Doc.Load(OriginalDocumentFile)
    
    UpdateDailyTotals(StartDate, Doc)
    
    ' Save the updated document to a new file (could have been the same file but this script allows you to compare the two) and open it in Excel.
    if Doc.Save(UpdatedDocumentFile)
        ' Release all references to the document because we are about to open it in Excel
        delete Doc
        sys_open(UpdatedDocumentFile)
    else    
        ui_msg_box("Error Saving Updated Document", "Unable to re-save document to " + DocumentFile + ":" + crlf(2) + Doc.ErrorMessage)
    end if    
else
    ui_msg_box("Error Loading Original Document", "Unable to load document to " + DocumentFile + ":" + crlf(2) + Doc.ErrorMessage)
end if


FUNCTION UpdateDailyTotals as L (StartDate as D, Doc as Office::ExcelDocument)

dim SheetName as C = "Weekly Sales & Expenses"
dim StartRow  as N = 6 ' You could conceivably look for the first Row with Monday in the first column value - depends.
dim Sheet     as Office::Spreadsheet
dim Sales     as N
dim Expenses  as N

if .not. Doc.FindSheet(Sheet, SheetName)
    goto error_exit
end if

Sheet = Doc.GetSheet(Doc.ActiveSheetIndex)

' Update the week beginning part of the title.
Sheet.Write(2,1,"Week Beginning " + StartDate)

' Loop through the days of the week to update the detail
' Note that:
' 1. We do not set anything but the data that has changed.
' 2. We do not need to include the format objects as in the original script.  They are retained.
'
for i = 1 to 7
    CurrentDate = StartDate + (i - 1)                 ' Get the date of the current day of the week
    Row = StartRow + i - 1                            ' Compute the spreadsheet row
    GetSalesAndExpenses(CurrentDate, Sales, Expenses) ' Call a test function that generates random data
    
    Sheet.Write(Row, 2, CurrentDate) ' Date
    Sheet.Write(Row, 3, Sales)       ' Sales
    Sheet.Write(Row, 4, Expenses)    ' Expenses
next

UpdateDailyTotals = .t.
error_exit:
END FUNCTION


'************************************************************************************************
'************************************************************************************************
' This function generates sample data.  
' See the database samples for populating data from tables and queries
'************************************************************************************************
'************************************************************************************************
FUNCTION GetSalesAndExpenses as L (Date as D, BYREF Sales as N, BYREF Expenses as N)
' This function generates random values

Sales = 2600 + rand() * 500
Expenses = 2500 + rand() * 500    
GetSalesAndExpenses = .t.    
END FUNCTION

'************************************************************************************************
'************************************************************************************************
' This part of the sample creates the original spreadsheet to be updated
' The functions below are essentially the same as Sample 1.
'************************************************************************************************
'************************************************************************************************
FUNCTION CreateOriginalSpreadsheet as L (DocumentFile as C, ShowFile as L = .f.)
dim LastWeekStartDate as D = date() - (dow(date()) - 1) - 7
dim Doc               as Office::ExcelDocument    ' Declare the document variable

CreateWeeklySalesAndExpenses(LastWeekStartDate, Doc)
Path = file.filename_parse(DocumentFile, "P")

on error resume next
File.Dir_Create(Path)
on error goto 0
if Doc.Save(DocumentFile)
    if ShowFile
        delete Doc
        sys_open(DocumentFile)
    end if
else    
    ui_msg_box("Error Saving Original Document", "Unable to save document to " + DocumentFile + ":" + crlf(2) + Doc.ErrorMessage)
end if    

END FUNCTION

FUNCTION CreateWeeklySalesAndExpenses as V(StartDate as D, Doc as Office::ExcelDocument)

dim Sheet as Office::Spreadsheet ' Pointer to the spreadsheet

' Layout of the spreadsheet
dim TitleRow   as N = 1
dim HeadingRow as N = 4
dim DetailRow  as N = 6

' Create a new spreadsheet
Sheet = Doc.AddSheet("Weekly Sales & Expenses") ' Create a new spreadsheet

WritePageHeading(StartDate, Doc, Sheet, TitleRow)
WriteColumnHeadings(StartDate, Doc, Sheet, HeadingRow)
WriteData(StartDate, Doc, Sheet, DetailRow)

END FUNCTION                


FUNCTION WritePageHeading as L (StartDate as D, Doc as Office::ExcelDocument, Sheet as Office::Spreadsheet, StartRow as N)    
' Add a title formatted with Bold 14 point Tahoma font in Blue and merge the first 5 columns in the first row
dim Format as Office::Format ' Pointer to the format for Page headings
dim Font   as Office::Font   ' Pointer to the font for Page headings 
Format = Doc.AddFormat() 
Font = Doc.AddFont() 
Font.Color = Office::Color::DarkBlue 
Font.Name = "Tahoma"
Font.Size = 14 
Font.Bold = .t. 
Format.Font = Font    ' Set the font into the page heading format 
Format.HorizontalAlignment = Office::HorizontalAlignment::Center
Sheet.SetMerge(1,1,1,5)
Sheet.Write(1,1,"Weekly Sales Summary", Format)

Sheet.SetMerge(2,2,1,5)
Sheet.Write(2,1,"Week Beginning " + StartDate, Format)

WritePageHeading = .t.
END FUNCTION


FUNCTION WriteColumnHeadings as L (StartDate as D, Doc as Office::ExcelDocument, Sheet as Office::Spreadsheet, StartRow as N)
dim ColumnHeadings as C = <<%txt%
Day
Date
Daily Sales
Daily Expenses
Gross Daily Profit
%txt%
dim ColumnWidth[5] as N
ColumnWidth[1] = len("Wednesday")
ColumnWidth[2] = len("00/00/0000")
ColumnWidth[3] = len("($000,000.00)")
ColumnWidth[4] = len("($000,000.00)")
ColumnWidth[5] = len("($000,000.00)")
dim ColumnHeadingCount as N = w_count(ColumnHeadings, crlf())

' Add the column headings (row 3)
' Add a title formatted with Bold 14 point Tahoma font in Blue and merge the first 5 columns in the first row
dim LeftFormat  as Office::Format ' Pointer to the left aligned format for Column headings
dim RightFormat as Office::Format ' Pointer to the right aligned format for Column headings
dim Font        as Office::Font   ' Pointer to the font for Column headings 
Font = Doc.AddFont() 
Font.Color = Office::Color::DarkBlue 
Font.Name = "Tahoma"
Font.Size = 11 
Font.Bold = .t. 
LeftFormat = Doc.AddFormat() 
LeftFormat.Wrap = .t. 
LeftFormat.Font = Font    ' Set the font into the column heading format 
LeftFormat.HorizontalAlignment = Office::HorizontalAlignment::Left 
RightFormat = Doc.AddFormat() 
RightFormat.Wrap = .t. 
RightFormat.Font = Font    ' Set the font into the column heading format 
RightFormat.HorizontalAlignment = Office::HorizontalAlignment::Right

for i = 1 to ColumnHeadingCount
    CurrentHeading = word(ColumnHeadings, i, crlf())
    Sheet.SetColumn(i, i, max(ColumnWidth[i] * 1.2, Sheet.ColumnWidth(i)))
    Sheet.Write(StartRow, i, CurrentHeading, if(i < 2, LeftFormat, RightFormat))
next    

WriteColumnHeadings = .t.
END FUNCTION


FUNCTION WriteData as L (StartDate as D, Doc as Office::ExcelDocument, Sheet as Office::Spreadsheet, StartRow as N)
' Write the detail data and a total line
dim NumericFormat    as Office::Format    ' Pointer to the format for numeric columns
dim DateFormat       as Office::Format    ' Pointer to the format for the date column
dim CharacterFormat  as Office::Format    ' Pointer to the format for labels
dim Font             as Office::Font      ' Pointer to the font for column data
dim LabelFont        as Office::Font      ' Pointer to the font for labels 
dim Sales            as N
dim Expenses         as N
dim ProfitFormula    as C

' Create a font for the detail data 
Font = Doc.AddFont() 
Font.Color = Office::Color::Black 
Font.Name = "Tahoma"
Font.Size = 10 
Font.Bold = .f.

' Create a format for numeric columns 
NumericFormat = Doc.AddFormat() 
NumericFormat.Font = Font    ' Set the font into the column heading format
NumericFormat.HorizontalAlignment = Office::HorizontalAlignment::Right 
NumericFormat.NumericFormat = Office::NumericFormat::CurrencyDec2NegBracketedInRed

' Create a format for the date column 
DateFormat = Doc.AddFormat() 
DateFormat.Font = Font    ' Set the font into the column heading format 
DateFormat.HorizontalAlignment = Office::HorizontalAlignment::Right 
DateFormat.NumericFormat = Office::NumericFormat::Date

' Create a format for the character column 
LabelFont = Doc.AddFont() 
LabelFont.Color = Office::Color::DarkBlue 
LabelFont.Name = "Tahoma"
LabelFont.Size = 10 
LabelFont.Bold = .t. 
LabelFormat = Doc.AddFormat() 
LabelFormat.Font = LabelFont    ' Set the font into the column heading format 
LabelFormat.HorizontalAlignment = Office::HorizontalAlignment::Left

' Loop through the days of the week to create the detail
for i = 1 to 7
    CurrentDate = StartDate + (i - 1)                  ' Get the date of the current day of the week
    Row = StartRow + i - 1                             ' Compute the spreadsheet row
    GetSalesAndExpenses(CurrentDate, Sales, Expenses)  ' Call a test function that generates random data
    ProfitFormula = "C" + Row + " - D" + Row           ' Create a formula for profit = sales - expenses
    
    Sheet.Write(Row, 1, CDow(CurrentDate),LabelFormat)      ' Day of the week
    Sheet.Write(Row, 2, CurrentDate,DateFormat)             ' Date
    Sheet.Write(Row, 3, Sales,NumericFormat)                ' Sales
    Sheet.Write(Row, 4, Expenses,NumericFormat)             ' Expenses
    Sheet.WriteFormula(Row, 5, ProfitFormula,NumericFormat) ' Profit
next

' Write the total line Row = StartRow + 8 ProfitFormula = "C" + Row + " - D" + Row
Sheet.Write(Row, 1, "Total", LabelFormat)
Sheet.WriteFormula(Row, 3, "SUM(C" + StartRow + ":C" + (StartRow + 6) + ")", NumericFormat) ' Sum of Sales
Sheet.WriteFormula(Row, 4, "SUM(D" + StartRow + ":D" + (StartRow + 6) + ")", NumericFormat) ' Sum of Expenses
Sheet.WriteFormula(Row, 5, ProfitFormula, NumericFormat)                                    ' Profit

WriteData = .t.
END FUNCTION