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 Replace String
Keywords: Excel Replace string ReplaceFormat SearchFormat
Question:
I am trying to replace a string in column I.VBA code below:
Columns("I:I").Select
Selection.Replace What:="/Alenia", Replacement:=", Alenia", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
My code:
Trackfile = StrCat(AeroStd, "Summarydata030204.xls") ; Default file name if one does not exist in ini file
OpenExcel(TrackFile) ; Get ready for Excel Global col changes
XLapp.Visible = @TRUE ; Slow the process down - make the sheet visible
colrange = xlApp.Columns("I:I") ; Define the area to be replaced
Range = colrange.Select ; Select the area to have replacements
Selection = XLapp.Selection
xlbyRows = 1
xlPart = 2
; False = 0
:ReplaceAll
Selection.Replace(:: What="/Alenia", Replacement=", Alenia", LookAt= %xlPart%, SearchOrder=%xlByRows%, MatchCase=0, SearchFormat=0, ReplaceFormat=0)
b = XLActive.save
CloseExcel()
Exit
Works okay, as afar as the Selection.Replace..Get an OLE exception.
Note: I am using an UDF to Open Excel.
Any ideas??
Answer:
Excels OLE documentation, states that the named parameters, SearchFormat and ReplaceFormat that are passed to the Replace method, seem to want object handles returned from the FindFormat and ReplaceFormat properties.
xlPart = 2
xlByRows = 1
objXL = ObjectOpen("Excel.Application")
objXL.Visible = @TRUE
objWorkbooks=objXL.WorkBooks
objWorkbooks.Open("C:\Temp\Data files\test.xls")
objColumns=objXL.Columns("A:A")
objColumns.Select
objSelection=objXL.Selection
;Define search format
objFindFormat = objXL.FindFormat
objFont = objFindFormat.Font
objFont.Name = "Arial"
objFont.FontStyle = "Regular"
objFont.Size = 10
;Define replace format
objReplaceFormat = objXL.ReplaceFormat
objFont = objReplaceFormat.Font
objFont.Name = "Arial"
objFont.FontStyle = "Bold"
objFont.Size = 10
objSelection.Replace(:: What="A2", Replacement=", Alenia", LookAt=%xlPart%, SearchOrder=%xlByRows%,MatchCase=0, SearchFormat=objFindFormat ,ReplaceFormat=objReplaceFormat )
ObjectClose(objReplaceFormat)
ObjectClose(objFindFormat)
ObjectClose(objFont)
ObjectClose(objSelection)
ObjectClose(objColumns)
ObjectClose(objWorkbooks)
ObjectClose(objXL)
exit
Article ID: W15632
File Created: 2003:05:13:11:29:18
Last Updated: 2003:05:13:11:29:18