Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
OLE with Excel
 |
- 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.
Excel Custom Variables
Keywords: Excel Custom Variables OLE COM
Attached is a snippet you may want to add to your OLE Library. If you work with Excel and need to store values but don't want them to appear on a sheet or as part of a macro, you can create them a CustomProperties, and even update them.
First you need the following .xls file: CUSTPROP.XLS
XLCUSTOMPROPERTIES.WBT
;Winbatch 2005C -
;
;adding/updating Custom Property variables to Excel workbooks
;this example creates a WorkbookVersion property and assigns it
;an initial value of 1, incrementing it each time the workbook is opened.
;
;this is very basic, and uses minimal error handling
;
;Stan Littlefield - August 14, 2005
;////////////////////////////////////////////////////////////////////////////
IntControl(73,2,0,0,0) ;gosub error handler
cXLS=StrCat(DirScript(),"custprop.xls")
If ! FileExist(cXLS) Then Exit
ver= "WorkbookVersion" ;change for your own tests
;variable types that can be encoded to Custom Properties
msoPropertyTypeNumber =1
msoPropertyTypeBoolean =2
msoPropertyTypeDate =3
msoPropertyTypeString =4
msoPropertyTypeFloat =5
val=1
n=0
oXL = CreateObject("Excel.Application")
If oXL == 0 Then Exit
oXL.Visible = 1
oXL.ScreenUpdating = 1
oXL.UserControl = 1
oXL.DisplayAlerts = 0
oXL.WorkBooks.Open(cXLS)
oWS=oXL.ActiveWorkbook.Worksheets(1)
oWS.Activate()
;initial look for Custom Property
;will generate error 1261 if it doesn't exists
oProp=oXL.ActiveWorkbook.CustomDocumentProperties(ver)
:chk
IntControl(73,2,0,0,0)
If n==1261 ;error return code or present value of n
oXL.ActiveWorkbook.CustomDocumentProperties.Add(::Name=ver,LinkToContent=@FALSE,Type=msoPropertyTypeNumber,Value=val)
Else
val = oXL.ActiveWorkbook.CustomDocumentProperties(ver).Value
val=val+1
oXL.ActiveWorkbook.CustomDocumentProperties(ver).Value = val
EndIf
oXL.ActiveWorkBook.Save()
:End
oXL.Quit()
oXL=0
Display(2,"Current WorkBoook Version",val)
Exit
:WBERRORHANDLER
n=LastError()
Message("Last Error",n)
Return
;/////////////////////////////////////////////////////////////////////////////////
Article ID: W17152
File Created: 2019:08:14:09:27:28
Last Updated: 2019:08:14:09:27:28