Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations strongm on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Useful Excel Automation examples.

COM and Automation

Useful Excel Automation examples.

by  Mike Gagnon  Posted    (Edited  )
Here is an on-going compilation of Excel automation samples.
[ol][li]How to copy a .jpg from a general field to an Excel sheet.
Code:
oExcel =CREATEOBJECT("excel.application")
oWorkBook = oExcel.workbooks.add()
oSheet = oWorkbook.activesheet
USE e:\trans\pics AGAIN IN 0 && The table with the general field that holds the jpg.
LOCATE && Go op
KEYBOARD "{CTRL+C}{CTRL+W}" && Copy the jpg
MODIFY GENERAL pics.pic 
oSheet.paste() && Paste the clipboard content in the the sheet
oExcel.visible = .t.
[/li]
[li]How to create a chart via Excel automation
Code:
#DEFINE xlColumnClustered    51    
LOCAL oExcel as Excel.application
LOCAL oWorkbook,oSheet
oExcel = CREATEOBJECT("Excel.application")
oWorkbook= oExcel.Workbooks.Add()
oSheet = oWorkbook.activesheet
WITH oSheet
 .Range("A1").Select
    .Range("A1").FormulaR1C1 = "1"
    .Range("A2").Select
    .Range("A2").FormulaR1C1 = "2"
    .Range("A3").Select
    .Range("A3").FormulaR1C1 = "3"
    .Range("A4").Select
    .Range("A4").FormulaR1C1 = "4"
    .Range("A5").Select
    .Range("A5").FormulaR1C1 = "5"
    .Range("A6").Select
    .Range("A6").FormulaR1C1 = "6"
    .Range("B1").Select
    .Range("B1").FormulaR1C1 = "10"
    .Range("B2").Select
    .Range("B2").FormulaR1C1 = "11"
    .Range("B3").Select
    .Range("B3").FormulaR1C1 = "50"
    .Range("B4").Select
    .Range("B4").FormulaR1C1 = "60"
    .Range("B5").Select
    .Range("B5").FormulaR1C1 = "70"
    .Range("B6").Select
    .Range("B6").FormulaR1C1 = "90"
    .Range("A1:B6").Select
ENDWITH
WITH oWorkbook
    .Charts.Add
    .ActiveChart.ChartType = xlColumnClustered
    .ActiveChart.SetSourceData(oSheet.Range("A1:B6"))
    .ActiveChart.HasTitle = .f.
ENDWITH
oExcel.Visible =.t.
[/li]

[li]How to delete a sheet from a workbook
Code:
Local oSheet,oWorkBook,oExcel
oExcel = CREATEOBJECT("Excel.application")
oWorkBook = oExcel.Workbooks.Add()
oSheet = oWorkBook.activeSheet
oSheet.Delete()
oExcel.Visible = .t.
[/li]

[li]How to add a sheet to a workbook
Code:
Local oSheet,oWorkBook,oExcel
oExcel = CREATEOBJECT("Excel.application")
oWorkBook = oExcel.Workbooks.Add()
oWorkbook.Sheets.Add
oExcel.Visible = .t.
[/li]

[li]How to move a sheet within a Workbook.
Code:
oExcel = CREATEOBJECT("excel.application")
oWorkbook = oExcel.Workbooks.Add()
oWorkbook.Sheets.Add
oSheet = oWorkbook.ActiveSheet
oSheet.Move(,oWorkbook.Sheets(4)) && Move after sheet3
oSheet.Move(oWorkbook.Sheets(4),) && Move before sheet3
oExcel.Visible =.t.
[/li][/ol]
Mike Gagnon
Register to rate this FAQ  : BAD 1 2 3 4 5 6 7 8 9 10 GOOD
Please Note: 1 is Bad, 10 is Good :-)

Part and Inventory Search

Back
Top