Replacing Text in Excel Cells using .vbs

Dev Shed Forums Sponsor:

January 14th, 2004, 12:22 AM

isd503

Junior Member

Join Date: Jan 2004

Posts: 6

Time spent in forums: < 1 sec
Reputation Power: 0

Replacing Text in Excel Cells using .vbs

I have a script which gathers some data on some directories on a server and places this information into an Excel spreadsheet.

In one of the columns I have gathered the folder names (Folder.name). I want to shorten them by eliminating the words " Data Share" from each of the cells I have selected.

I created an Excel macro, but the code does not function properly from the script:

oSheet.Range("A4:A15").Select
Selection.Replace What:=" Data Share", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Please help! This is driving me crazy. Please send any help via e-mail. Thank you.

January 14th, 2004, 12:36 AM

victorpendleton

Contributing User

Join Date: Jan 2003

Location: No es importante

Posts: 2,065

Time spent in forums: 6 h 50 m 52 sec
Reputation Power: 8

What is the application doing that you are not expecting?

__________________
El éxito consiste en una serie de pequeñas victorias día a día

MySQL, MS SQL, MS ACCESS, Oracle Database Manager - http://victorpendleton.net/products/psdviewer.html

January 14th, 2004, 08:54 AM

isd503

Junior Member

Join Date: Jan 2004

Posts: 6

Time spent in forums: < 1 sec
Reputation Power: 0

I am trying to get the .vb script to replace some text in Excel.

I get the following message on the line Selection.Replace:

Microsoft VBScript compilation error: Expected statement

Last edited by isd503 : January 14th, 2004 at 10:53 AM.

January 14th, 2004, 11:43 AM

isd503

Junior Member

Join Date: Jan 2004

Posts: 6

Time spent in forums: < 1 sec
Reputation Power: 0

I figured it out by reviewing another post elsewhere. Just wanted to share:

Set myRange = oSheet.Range("A4:A15")
myRange.Replace " Data Share", "", 2, 1, 0

The preceding code replaces <space>Data<space>Share with nothing.

Viewing: Dev Shed Forums > Programming Languages - More > Visual Basic Programming > Replacing Text in Excel Cells using .vbs

« Previous Thread | Next Thread »

Thread Tools	Search this Thread
Email this Page	Search this Thread: Advanced Search
Display Modes	Rate This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Rate This Thread:

Posting Rules
You may not post new threads You may not post replies You may not post attachments You may not edit your posts vB code is On Smilies are On [IMG] code is On HTML code is Off

View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox

Forum Jump

Free IT White Papers!

How to Present Effectively Online
This white paper offers practical and actionable advice on the key steps that any presenter should consider as they plan and execute a Webinar or online meeting.

Open Source Security Myths
Open Source Software (OSS) is computer software whose source code is available to the general public with relaxed or non-existent intellectual property restrictions (or arrangement such as the public domain), and is usually developed with the input of many contributors.

Power and Cooling Capacity Management for Data Centers
This paper describes the principles for achieving power and cooling capacity management.

Scalable, Fault-Tolerant NAS for Oracle - The Next Generation
For several years NAS has been evolving as a storage alternative for Oracle databases, and for good reason: NAS is quite often the simplest, most cost-effective storage approach for Oracle. Learn about the benefits that HP's approach to scalable NAS brings to Oracle environments in this comprehensive white paper.

Understanding Web Application Security Challenges
This white paper discusses many common threats and preventive measures for Web application security, and explains what you can do to help protect your organization.

More Free IT White Papers!