Kann man einstellen dass bestimmte exceldateien nach zelle a2 bennen?

...komplette Frage anzeigen

3 Antworten

Du kannst es nicht einstellen, aber du kannst ein kurzes VB-Script darüber laufen lassen.

Option Explicit

Call Main()
Sub Main() Dim oVerzeichnis Dim oDateiliste Dim oDatei Dim oExcel Dim sDateiname Dim sVerzeichnis Dim fso
sVerzeichnis = "E:\tmp\A2\" Set fso = CreateObject("Scripting.FileSystemObject") Set oVerzeichnis = fso.GetFolder(sVerzeichnis) Set oDateiliste = oVerzeichnis.Files Set oExcel = CreateObject("Excel.Application")
For Each oDatei in oDateiliste if Right(oDatei.Name, 5) = ".xlsx" Then oExcel.Workbooks.Open sVerzeichnis & oDatei.Name sDateiname = oExcel.Range("A2").Value & ".xlsx" oExcel.Workbooks.Close oExcel.Quit oDatei.Move sVerzeichnis & sDateiname End If Next
End Sub

Fehler musst du noch selbst abfangen. ;)

Das ist mit Visual Basic Script (bei Windows enthalten) relativ einfach.

Nein, das geht nicht mit Boardmitteln. Da ist eine eigenentwicklung für nötig.

Könnte man z.b. in Java mit dem Apache POI umsetzen.

Was möchtest Du wissen?