Program for Deleting spreadsheet columns

[itpmguy]

Hello,
I have a spreadsheet with more than 600 sheets. I want to delete all columns starting from column "G". The last column is column "R". How do I do this in VBscript? Any suggestions are greatly appreciated.
Thanks


Cheap Computer Part Supply Buying Tips

http://www.cheap-computer-part-supply.com

VOIP Phone Service Guide

http://www.ez-voip-phone-service.com

 

[xwb]

Switch on record in excel. Select and delete the columns from G to R and stop recording. Have a look at the macro generated. That is the basic bit. You have to get rid of is the type declarations and it is more or less VBScript.

You then add something like

dim excel
set excel = CreateObject("Excel.Application")
with excel
...

at the start and

end with
excel.Quit
set excel = nothing

at the end.

 

[itpmguy]

Thanks. It works and some cleanup may be needed.

Here's another question -

Is there any way I can copy columns "A" through "E" from all the sheets and put it into a Microsoft Word document in a table format. It should name the Word doc table name as the name of the corresponding sheet in spreadsheet.

Any help is appreciated.

Thanks


Cheap Computer Part Supply Buying Tips

http://www.cheap-computer-part-supply.com

VOIP Phone Service Guide

http://www.ez-voip-phone-service.com