Omdøbe filer ved hjælp af data fra excel

Ja du kan lave en vbs fil og dette kan læse fra excel.

Option Explicit
Dim objApp, objWbs, objWorkbook, objSheet

Set objApp = CreateObject("Excel.Application")
Set objWbs = objApp.WorkBooks
objApp.Visible = False
Set objWorkbook = objWbs.Open("[path to spreadsheet file]")
Set objSheet = objWorkbook.Sheets("Sheet1")

'Hvis der er mere end 9999 filer må du lige rette tallet.

For i = 1 to 9999

valuea = objSheet.Range("A"&i).Value
valueb = objSheet.Range("B"&i).Value

if valuea = "" then Exit For

folderpath = "c:\sourcefolder\"

Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile folderpath&valuea, folderpath&valueb

Next
'MsgBox objSheet.Range("C5").Value

objWorkbook.Close False
objWbs.Close
objApp.Quit

Set objSheet = Nothing
Set objWorkbook = Nothing
Set objWbs = Nothing
Set objApp = Nothing

MsgBox "Done"

http://www.eksperten.dk/spm/916623

Hej cht22

Jeg har forsøgt at tilpasse den men får fejlen:

Linje: 12
Tegn: 1

Variablen er ikke defineret: ´i´

Her er koden:
Option Explicit
Dim objApp, objWbs, objWorkbook, objSheet

Set objApp = CreateObject("Excel.Application")
Set objWbs = objApp.WorkBooks
objApp.Visible = False
Set objWorkbook = objWbs.Open("C:\Users\mr.KONGEAA\Desktop\omdøb\mappe3.xlsx")
Set objSheet = objWorkbook.Sheets("Ark1")

'Hvis der er mere end 9999 filer må du lige rette tallet.

For i = 1 to 9999

valuea = objSheet.Range("A"&i).Value
valueb = objSheet.Range("B"&i).Value

if valuea = "" then Exit For

folderpath = "c:\sourcefolder\"

Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile folderpath&valuea, folderpath&valueb

Next
'MsgBox objSheet.Range("C5").Value

objWorkbook.Close False
objWbs.Close
objApp.Quit

Set objSheet = Nothing
Set objWorkbook = Nothing
Set objWbs = Nothing
Set objApp = Nothing

MsgBox "Done"

Du kan bare slette linjen med Option Explicit, så behøver man ikke definere alle variabler, som gjort ved nogle af variablerne ved brug af dim.

Hvis det er en enkelt gang du skal lave dette, ville jeg nok bruge c-kolonnen til at danne en linje du kan fyre af i en batch-fil:

="RENAME "&A1&" "&B1"

Du kopierer så linjen ned igennem dit regneark.

Du kopierer så alle linjer i c-kolonnen i en batch-fil, som du lægger i samme mappe som filerne.

Start batch-filen og alle filer er omdøbt.

fik ikke noget af det til at virke :(

Takker for forsøget