General information
Title:
Border and line with excel
I was able to automate a file in excel with seems great as bold title etc however I just want to know how I can apply a border line
here is the code
Thank's a lot
local loExcel, oSheet
loExcel = CREATEOBJECT("Excel.Application") && Create the Excel object
opexcel = FULLPATH("myfile.xls")
loWorkbook = loExcel.workbooks.open("&opexcel") && parameters to open the file from the right directory
loExcel.Visible = .T. && display Excel
oSheet = loExcel.ActiveSheet
lnRow = 5
lnRow = 1
lnCol = 1
oSheet.Range([A1]).Select
oSheet.Cells(lnRow,lnCol).Value = [Brand]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
lnCol = lnCol + 1
* oSheet.Range([B1]).Select
oSheet.Cells(lnRow,lnCol).Value = [Model]
oSheet.Cells(lnRow,lnCol).Font.Bold = .T.
oSheet.Cells(lnRow,lnCol).HorizontalAlignment = 3
lnRow = 4
lnBeginRange = lnRow
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