Copy Excel worksheet

[Tonych]

I have a Excel macro:

n = 2

if t > 25 Then

For i = 1 To Int(t / 25)

Sheets(2).Select

Sheets(2).Copy After:=Sheets(n)

n = n + 1

Sheets(n).Select

Sheets(n).Name = "Sheet" & CStr(n)

Next i

End If

There is a form in Sheet2, I need to copy it so that I can put 25 datas in every worksheet.

I want to make it in AutoIt, please anyone could give me some advice! Thanks in advance!

[jasonlg3d]

I'm not really sure what you're asking. Could you explain in a little more detail and maybe someone can help you.

[Tonych]

Thanks for you concern! I am sorry I did not tell it clearly. The main problem is that I want to translate the VBA macro:

Sheets(2).Copy After:=Sheets(2) into AutoIt. Thanks in advance!

[Juvigy]

why not ?

1.Open excel

2.Open the file

3.Import the VBA macro

4.Run it

[AlexII]

Thanks for you concern! I am sorry I did not tell it clearly. The main problem is that I want to translate the VBA macro:

Sheets(2).Copy After:=Sheets(2) into AutoIt. Thanks in advance!

Tonych, try use positional notation of argument list:

Worksheet.Copy(Before, After)

and «Default» AutoIt-keyword for optional argument.

Example code:

Local $objExcel
Local $objWorkbook
Local $objWorksheet

$objExcel = ObjCreate("Excel.Application")
$objExcel.Visible = True
$objWorkbook = $objExcel.Workbooks.Add()
$objWorksheet = $objWorkbook.Worksheets(1)

; Mark this worksheet by text
$objWorksheet.Cells(1,1).Value = "Example"
$objWorksheet.Name = "Example"

; Add some worksheets
$objWorkbook.Worksheets.Add
$objWorkbook.Worksheets.Add
$objWorkbook.Worksheets.Add
$objWorkbook.Worksheets.Add
$objWorkbook.Worksheets.Add
$objWorkbook.Worksheets.Add

; Copy this worksheet
$objWorksheet.Copy(Default, $objWorkbook.Worksheets(2))