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

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
>
>

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
>
>

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
>
>

Hi guy/girls

It seems that there is somebody active in the newsgroups who is trying to
disturp a lot, by creating a special kind of follow up.

Will you be so kind to stop replying to this person, speaking here from the
dotnet language newsgroup.

We are very interested in scripting, excel or whatever.

But when we want that information we visit those news groups.

Thanks in advance

Cor

This seems a tad OTT. What is wrong with this question?

--
__________________________________
HTH

Bob

"Cor Ligthert[MVP]" <(E-Mail Removed)> wrote in message
news:04408652-2D8E-46F6-A228-(E-Mail Removed)...
> Hi guy/girls
>
> It seems that there is somebody active in the newsgroups who is trying to
> disturp a lot, by creating a special kind of follow up.
>
> Will you be so kind to stop replying to this person, speaking here from
> the dotnet language newsgroup.
>
> We are very interested in scripting, excel or whatever.
>
> But when we want that information we visit those news groups.
>
> Thanks in advance
>
> Cor

I would like to do something in a *.vbs script and all the operations should
be applied
on each worksheet within an Excel file.

As you can tell me what this has to do with VB for Net, then I agree with
you.

Cor

Well seeing as I am answering it in an Excel group, it seems totally
relevant.

--
__________________________________
HTH

Bob

"Cor Ligthert [MVP]" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
>I would like to do something in a *.vbs script and all the operations
>should be applied
> on each worksheet within an Excel file.
>
> As you can tell me what this has to do with VB for Net, then I agree with
> you.
>
> Cor
>

On Jun 25, 7:09 am, "Bob Phillips" <Bob...@somewhere.com> wrote:
> Well seeing as I am answering it in an Excel group, it seems totally
> relevant.
>

Yes, but the person who posted the question, cross posted it to
the .Net group where it is off topic. I think Cor was requesting that
you remove the .Net group from the follow up.

Cheers,

Chris

Il giorno Tue, 24 Jun 2008 14:15:04 -0700, =?Utf-8?B?TWlrZSBI?=
<(E-Mail Removed)> 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)
--