Sign in to follow this  
Followers 0

Automate copy and rename excel files

3 posts in this topic

Hi All,

I´m loocking for a solution to automate some copy and rename tasks and found this great tool.

I´m trying to solve the following problem:

There are a main excel file with one sheet inside.

There are a second excel file (called name-file) with a lot of names in the first column like Peter, Mika, Susanne, Paul...

I want to have a copy of the main file, renamed with the names of the first column frome name-file and inside the the target file in first row and column having the same name of name-file.




(firts column)





want have files:

Peter_mainfile.xls (inside first row and column "Peter")

Mika_mainfile.xls ...


Is anybody out there how can give ideas for a solution?


Share this post

Link to post
Share on other sites

#2 ·  Posted (edited)


if i understand you right, this should help:

#include <excel.au3>
;#include <array.au3> ; uncomment for debugging see following remarks
Global $arnames
$mainfile = @ScriptDir & "\mainfile.xls"
$namefile = @ScriptDir & "\name-file.xls"
$oExcel = _ExcelBookOpen ($namefile)
$arnames = _ExcelReadSheetToArray ($oExcel)
_ExcelBookClose ($oExcel)
;_ArrayDisplay ($arnames) ; debugging line to see array contents after reading excelsheet to array for checking definition of For Loop

;loop over array, $arnames [0] [1] amount of columns in Array
For $i = 1 To $arnames [0] [1]
    Filecopy ($mainfile, @ScriptDir & "\" & $arnames [1] [$i] & "_mainfile.xls")

You should also have a look into helpfile for functions _excel*



Edited by 99ojo

Share this post

Link to post
Share on other sites


I certainly would have doubt why you would like to write this in AutoIT.

Its far more efficient to write a macro in VBA (within excel alt+f11) like

sub testIt()
   dim wbMain as Workbook
   dim wbData as workbook
   dim i as long
   dim tName as string

   set wbMain=workbooks("mainfile.xls")
   while wbdata.worksheets(1).cells(i,1).value <> ""
      set wbNew = workbooks.add
      wbnew.saveas tName
end sub

Share this post

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  
Followers 0