Prev: How to do something in an VBS script for all worksheets of an Excel file?
Next: Doesn't work
From: FSt1 on 24 Jun 2008 17:14
hi
something like this might work...
Sub claudia()
For i = 1 To Worksheets.Count
Worksheets(i).Range("A1").Interior.ColorIndex = 6
'above is for test only
Next i
End Sub

regards
FSt1


"Claudia d'Amato" wrote:

> I would like to do something in a *.vbs script and all the operations should be applied
> on each worksheet within an Excel file.
>
> How do I do this?
>
> It must be something like:
>
> for i in (1 .. lastworksheetnumber) do
> ...operations
> end
>
>
> Claudia
>
>
From: Mike H on 24 Jun 2008 17:15
Hi

Sub sonic()

for x=1 to worksheets.count
worksheets(x).select
'do your stuff
next

end sub


depemding on what you are doing you may not (probably won't) need to select

Mike

"Claudia d'Amato" wrote:

> I would like to do something in a *.vbs script and all the operations should be applied
> on each worksheet within an Excel file.
>
> How do I do this?
>
> It must be something like:
>
> for i in (1 .. lastworksheetnumber) do
> ...operations
> end
>
>
> Claudia
>
>
From: RyanH on 24 Jun 2008 17:16
This should be nice and easy for you.

Dim sh As Worksheet

For Each sh In Worksheets
'your code here
Next sh

Hope this helps!
--
Cheers,
Ryan


"Claudia d'Amato" wrote:

> I would like to do something in a *.vbs script and all the operations should be applied
> on each worksheet within an Excel file.
>
> How do I do this?
>
> It must be something like:
>
> for i in (1 .. lastworksheetnumber) do
> ...operations
> end
>
>
> Claudia
>
>
From: Reventlov on 26 Jun 2008 17:53
Il giorno Tue, 24 Jun 2008 14:15:04 -0700, =?Utf-8?B?TWlrZSBI?=
<MikeH(a)discussions.microsoft.com> ha scritto:
>Sub sonic()
>for x=1 to worksheets.count
>worksheets(x).select
>'do your stuff
>next
>end sub

I'm not sure if this works with already opened worksheets. If it's not, you have to open
every single xls before working on it.

Set xl=CreateObject("excel.application")
xl.Visible=True

'xl.Workbooks.Open Filename

for x=1 to xl.worksheets.count
xl.worksheets(x).select
'do your stuff
next


If you want to run an existing xls macro from a vbs:

filePath = "c:\Test.xls"
Set oExcel = CreateObject("Excel.Application")
oExcel.Workbooks.Open(filepath)
oExcel.Run "macro1"
oExcel.ActiveWorkbook.Save
oExcel.ActiveWorkbook.Close
oExcel.Quit
Set oExcel = Nothing



--
Giovanni Cenati (Bergamo, Italy)
Write to "Reventlov" at katamail com
http://digilander.libero.it/Cenati (Esempi e programmi in VbScript)
--
 | 
Pages: 1
Prev: How to do something in an VBS script for all worksheets of an Excel file?
Next: Doesn't work