Converting VBA code into VBScript

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Converting VBA code into VBScript

Logged in as: Guest

arrSession:exec spGetSession 2,2,256

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Converting VBA code into VBScript
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Converting VBA code into VBScript - 7/9/2001 9:19:33 AM

landig

Posts: 3
Score: 0
Joined: 7/5/2001
From: USA
Status: offline

Can anyone give me advise on how to change the following VBA code into VBScript. I would really appreciate any help I can get.

Thanks!!

Cells.Select
Range("E1").Activate
Selection.Columns.AutoFit
ActiveWindow.SmallScroll ToRight:=5
ActiveWindow.ScrollColumn = 1
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
ActiveWindow.SmallScroll ToRight:=12
Columns("N:U").Select
Selection.Delete Shift:=xlToLeft
Columns("P:W").Select
Selection.Delete Shift:=xlToLeft
Columns("Q:AE").Select
Selection.Delete Shift:=xlToLeft
Selection.ColumnWidth = 2.14
Columns("AF:AF").Select
Columns("Q:Q").EntireColumn.AutoFit
Columns("R:CI").Select
Selection.Delete Shift:=xlToLeft
Range("S11").Select
ActiveWindow.ScrollColumn = 1
Range("D1").Select
ActiveWindow.SmallScroll ToRight:=3
Range("G1").Select
ActiveCell.FormulaR1C1 = "BusStreet"
Range("H1").Select
ActiveCell.FormulaR1C1 = "BusStreet2"
Range("I1").Select
ActiveCell.FormulaR1C1 = "BusStreet3"
Range("J1").Select
ActiveCell.FormulaR1C1 = "BusCity"
Range("K1").Select
ActiveCell.FormulaR1C1 = "BusState"
Range("L1").Select
ActiveCell.FormulaR1C1 = "BusPosCode"
Range("M1").Select
ActiveCell.FormulaR1C1 = "BusCountry"
Range("N1").Select
ActiveCell.FormulaR1C1 = "BusFax"
Range("O1").Select
ActiveCell.FormulaR1C1 = "BusPhone"
Range("P1").Select
ActiveCell.FormulaR1C1 = "MobilePh"
Range("Q1").Select
ActiveCell.FormulaR1C1 = "EmailAddr"
Range("R9").Select