Database Search

TechHome

Samples from Users

• Access OLE Query export to Excel
• Access table query to Excel
• Accessing an Existing Copy of Excel
• Add Comment Excel
• Add New Worksheet
• Add Worksheet
• Animate Excel office assistant
• Automating Excel Tutorial
• Basics with Excel OLE
• Change Currency Formats in Excel
• Check for Empty Cell in Excel
• Check if Column is Hidden
• Close Excel Object
• COM Test Use with Excel WorksheetFunction Object
• Consolidate Excel Workbooks
• convert the HISTOGRAM sheet to BMP or GIF
• CopyFromRecordset Loss of Formatting
• Create Excel Addin
• Create XL Graph
• Cutting and Pasting a Cell in Excel
• Delete Column
• Determine Excel File Format Type
• Determine First and Last Row and Column Used
• Determine Version That An Excel File Was Saved In
• Determine Workbook or WorkSheet Protection
• Determine Worksheet Names in Excel Workbook
• Disable Security Warning
• Display Color Chart
• Display Column and Row Data
• Display Users on Excel Workbook
• Easy CrossTabbed Spreadsheet Creation
• Enumerate Fonts in Excel
• Enumerating Excel Commandbar Controls
• Excel - constants
• Excel - Signature Worksheet
• Excel - Simple Conditional Column Hiding
• Excel 2000 - Inserting Hyperlinks with OLE
• Excel 2003 Tips
• Excel 2007 and Windows Server 2008 x64 Problem
• Excel and SaveAs Method
• Excel AutoFilter Method
• Excel Custom Variables
• Excel Dynamic Range Simple Example
• Excel File Conversion Using SaveAs
• Excel Filtering Function
• Excel Get Formatted Tables From Web Pages
• Excel Move Sheet
• Excel ObjectGet and UAC
• Excel OLE - List Named Ranges
• Excel Paste Special
• Excel Power Point Example
• Excel Print Landscape Scaled problem
• Excel Proper Case
• Excel Replace String
• Excel Time Format
• Excel to PDF
• Excel unlock some cells in a protected worksheet
• Excel Worksheet Change
• Export Excel Data to Tab Delimited Text File
• Exporting Excel Pictures
• Extract Data from specific Range in Closed Excel WorkBook
• Fastest Way to Copy Data To Excel
• Find Method in Excel
• Finding Data in Excel Cells
• Format Excel Column
• Get All Rows of Data in a Column
• Get Data Row by Row in Excel
• Get SaveAs to Close without Alert Box
• Getting Rowcount from Excel Database
• Grab Data from All WOrksheets in a Workbook
• Handle Errors in Cells
• Hide - Unhide Columns in Excel
• How to Execute Excel Function via OLE - COM
• Import a text file into an Excel Column
• Import CSV file into Excel
• Import Tab Delimited Text File
• Insert a Tracking Module in Excel Workbooks
• Inserting Pagebreaks into Excel Sheet
• Load WIL Array into Excel
• Making a Chart in Excel
• Number of pages in Excel worksheets
• ObjectGet and Excel
• OLE and Excel - Adding Cells to Workbook
• OLE and Excel - Spreadsheet Calculation
• OLE and Excel - The Basics
• OLE and Excel Animation Example
• OLE and Excel BuiltinDocumentProperties
• OLE Excel - Cutting and pasting cells problem
• OLE Excel and Outlook Examples
• OLE Excel Example that reads text from cells
• OLE with Excel and Named Parameters
• OLE with Parameters and Excel
• Open Existing Excel File And Insert Row
• Open Password Protected Excel file via OLE
• Playing Around with ADO and Updating dBase Files
• Playing Around with ADO and Updating Excel Columns
• Print All Sheets in a WorkBook
• Print Excel Worksheets
• Printing Workbooks from Excel
• Push Code into Excel using OLE
• Put Excel Column into an Array
• Reference a Specific Excel Workbook Instance
• Rename Existing Excel Worksheet
• Resize child windows in Excel
• Row Count
• Run an Excel Macro
• Run Excel Macro
• Save XLS file as a CSV file
• Search Excel for Cells and Items
• Search Excel Spreadsheet
• Set AutoSize for Cell Comment
• Set Cell Borders and Font
• Set Excel Default Path on Start-up
• Set Number of Sheets in Workbook
• Setting Proper Case in Range of Cells
• Showing the Value of Excel Dynamic Ranges
• Simple Excel Read
• Size of an EXCEL spreadsheet
• Sort Columns in XLS
• Sorting a Variable Range in Excel
• Sorting Multiple Columns
• Sorting Worksheets inside a Workbook
• SumProduct Function in Excel
• Testing the WorkSheetFunction Object
• TextToColumns FieldInfo Embedded Array Parameter Issue
• UDF for Excel Constant References
• UDF to Determine Worksheet Names in Excel Workbook
• Update Excel Cells
• Updating Worksheet Links
• Wait for Excel Add-in to Load
• Winbatch ADO Script - For EXCEL
• Working with Excels Built-in Dialogs
• Wrap Text in Excel Cell
• Write Data to an XLS file

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Create XL Graph

 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;
 ;Build graphs for results
 ;Trial only
 ;
 ;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


DB              = ObjectOpen("Excel.Application")
DB.Visible      = @TRUE
DB.UserControl  = @TRUE
oAPP            = DB.Workbooks
oAPP.Add()
oWS             = DB.Worksheets(1)
oWS.Activate
oCharts         = DB.Charts

;Define Constants
xlLine = 4
xlColumns = 2
xlLocationAsNewSheet = 1
xlCategory = 1
xlValue = 2
xlPrimary = 1

oWS.Range("A3").Select
DB.ActiveCell.FormulaR1C1 = "Run1"
oWS.Range("A4").Select
DB.ActiveCell.FormulaR1C1 = "Run2"
oWs.Range("A5").Select
DB.ActiveCell.FormulaR1C1 = "Run3"
oWs.Range("A6").Select
DB.ActiveCell.FormulaR1C1 = "Run4"
oWs.Range("A7").Select
DB.ActiveCell.FormulaR1C1 = "Run5"
oWs.Range("A8").Select
DB.ActiveCell.FormulaR1C1 = "Run6"
oWs.Range("A9").Select
DB.ActiveCell.FormulaR1C1 = "Run7"
oWs.Range("A10").Select
DB.ActiveCell.FormulaR1C1 = "Run8"
oWs.Range("B3").Select
DB.ActiveCell.FormulaR1C1 = "2"
oWs.Range("B4").Select
DB.ActiveCell.FormulaR1C1 = "3"
oWs.Range("B5").Select
DB.ActiveCell.FormulaR1C1 = "4"
oWs.Range("B6").Select
DB.ActiveCell.FormulaR1C1 = "5"
oWs.Range("B7").Select
DB.ActiveCell.FormulaR1C1 = "6"
oWs.Range("B8").Select
DB.ActiveCell.FormulaR1C1 = "7"
oWs.Range("B9").Select
DB.ActiveCell.FormulaR1C1 = "8"
oWs.Range("B10").Select
DB.ActiveCell.FormulaR1C1 = "9"
oWs.Range("B3:B10").Select

oCharts.Add()
DB.ActiveChart.ChartType =  xlLine
oSource = DB.Sheets("Sheet1").Range("B3:B10")
DB.ActiveChart.SetSourceData(:: Source=oSource, PlotBy = xlColumns)
DB.ActiveChart.SeriesCollection(1).XValues = "=Sheet1!R3C1:R10C1"
DB.ActiveChart.SeriesCollection(1).Name = "=""Series Name 5.1"""
DB.ActiveChart.Location(:: Where=xlLocationAsNewSheet, Name="save_new_sheet")
DB.ActiveChart.HasTitle = @TRUE
DB.ActiveChart.ChartTitle.Characters.Text = "Transfer rates - chart title"
DB.ActiveChart.Axes(xlCategory, xlPrimary).HasTitle = @TRUE
DB.ActiveChart.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Test Identifier - x axis"
DB.ActiveChart.Axes(xlValue, xlPrimary).HasTitle = @TRUE
DB.ActiveChart.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Throughput in MB/sec y axis"


ObjectClose(oCharts)
ObjectClose(oWS)
ObjectClose(oAPP)
ObjectClose(DB)

Article ID:   W17148

File Created: 2007:07:03:14:28:30

Last Updated: 2007:07:03:14:28:30