Hallo Goar,
nur mit der Ruhe! ;-)
Zum Sichern unter einem neuen Namen benötigt man einen Pfad zu einem existierenden
Ordner und einen Dateinamen. Dann klappt das 'save in' problemlos. Erzeuge bitte im Ordner
"Documents" Deines Verzeichnisses den Ordner "test_Excel" und starte dann dieses Script:
---
[size 3][blue]set[/blue] [green]newPath[/green] [blue]to[/blue] ([blue]path to[/blue] "cusr" [blue]as[/blue] [blue]Unicode text[/blue]) & "Documents:test_Excel:versuch_01.xls"
[blue]tell[/blue] [blue]application[/blue] "Microsoft Excel"
[nbsp] [nbsp][blue]save[/blue] [blue]active workbook[/blue] [blue]in[/blue] [green]newPath[/green]
[blue]end[/blue] [blue]tell[/blue][/size]
---
Das Exportieren als Tabtext ist sehr ähnlich. Das Suffix ändern, den Save-Befehl in
einen 'tell active workbook'-Block setzen und den Zusatz 'as text Mac' anbringen:
---
[size 3][blue]set[/blue] [green]newPath[/green] [blue]to[/blue] ([blue]path to[/blue] "cusr" [blue]as[/blue] [blue]Unicode text[/blue]) & "Documents:test_Excel:versuch_01.txt"
[blue]tell[/blue] [blue]application[/blue] "Microsoft Excel"
[nbsp] [nbsp][blue]tell[/blue] [blue]active workbook[/blue]
[nbsp] [nbsp] [nbsp] [blue]save[/blue] [blue]worksheet[/blue] 1 [blue]in[/blue] [green]newPath[/green] [blue]as[/blue] [blue]text Mac[/blue]
[nbsp] [nbsp][blue]end[/blue] [blue]tell[/blue]
[blue]end[/blue] [blue]tell[/blue][/size]
---
Diese Textdatei kann ohne weiteres mit BBEdit geöffnet oder in ein InDesign-Dokument oder
in ein QuarkXPress-Layout geladen werden. Doch wenn Du das Excel-Icon ersetzen willst,
dann muss Du im Script einen Finder-Befehl anschliessen:
[size 3][blue]tell[/blue] [blue]application[/blue] "Finder" [blue]to[/blue] [blue]set[/blue] [blue]creator type[/blue] [blue]of[/blue] [blue]file[/blue] [green]newPath[/green] [blue]to[/blue] "ttxt"[/size]
Mehrere Blätter exportieren?
---
[size 3][blue]
set[/blue] [green]newPath[/green] [blue]
to[/blue] ([blue]path to[/blue] "cusr" [blue]as[/blue] [blue]Unicode text[/blue]) & "Documents:test_Excel:"
[blue]
tell[/blue] [blue]application[/blue] "Microsoft Excel"
[nbsp] [nbsp][blue]
tell[/blue] [blue]active workbook[/blue]
[nbsp] [nbsp] [nbsp] [blue]
set[/blue] [green]docName[/green] [blue]
to[/blue] [blue]name[/blue]
[nbsp] [nbsp] [nbsp] [blue]
if[/blue] [green]docName[/green] [blue]
ends with[/blue] ".xls" [blue]
then[/blue]
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp][blue]
set[/blue] [green]docName[/green] [blue]
to[/blue] [blue]text[/blue] 1 [blue]
thru[/blue] -5 [blue]
of[/blue] [green]docName[/green]
[nbsp] [nbsp] [nbsp] [blue]
end[/blue] [blue]if[/blue]
[nbsp] [nbsp] [nbsp] [blue]
repeat[/blue] [blue]with[/blue] [green]i[/green] [blue]
from[/blue] 1 [blue]
to[/blue] [blue]count[/blue] [blue]
of[/blue] [blue]worksheets[/blue]
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp][blue]
set[/blue] [green]sheetName[/green] [blue]
to[/blue] [blue]name[/blue] [blue]
of[/blue] [blue]worksheet[/blue] [green]i[/green]
[nbsp] [nbsp] [nbsp] [nbsp] [nbsp][blue]save[/blue] [blue]worksheet[/blue] [green]i[/green] [blue]in[/blue] [green]newPath[/green] & [green]docName[/green] & "_" & [green]sheetName[/green] & ".txt" [blue]as[/blue] [blue]text Mac[/blue]
[nbsp] [nbsp] [nbsp] [blue]
end[/blue] [blue]repeat[/blue]
[nbsp] [nbsp][blue]
end[/blue] [blue]tell[/blue]
[nbsp] [nbsp][blue]close[/blue] [blue]active workbook[/blue] [blue]saving[/blue] [blue]no[/blue]
[blue]
end[/blue] [blue]tell[/blue][/size]
---
Zu beachten: Die Blätter werden dabei umbenannt mit den entsprechenden Textdatei-Namen und
das Dokument selbst bekommt den letzten Textdatei-Namen. Keine Panik: Das Script schliesst das
Dokument ohne zu sichern.
Wo gibt es weitere Informationen? Nun, für die obenstehenden Beispiele habe ich soeben kurz im
Verzeichnis nachgesehen und dann ausprobiert, bis es funktionierte. Eine andere Quelle: In der
"AppleScript User's"-Mailing-Liste werden ab und zu Fragen zu Excel gestellt.
Weitere OS-X-Überraschungen? Bestimmt. Aber dadurch ist doch für Abwechslung gesorgt ... ;-)
Gruss, Hans
