hallo ihr lieben,
ich möchte in autoit, ohne in die excel datei ein vba makro einzubauen, es hinbekommen, dass in der aktiven excel datei alle arbeitsmappen markiert werden und als pdf gespeichert werden in einem entsprechenden zielordner.
bei office 2010 dachte ich dran einfach bei speichern unter .pdf zu wählen. bisher krieg ich es nur hin dass auf diese weise lediglich die aktive tabelle als pdf gespeichert wird und nicht die ganze mappe.
über ideen würde ich mich sehr freuen.
lg
läst sich da nix in der #include <Excel.au3> finden ?
z.b. _ExcelSheetActivate ???
Geht ganz einfach:
[autoit]; PDF-Printer als Default-Printer setzen
#include <Excel.au3>
$sPath = 'DEINE.xls'
$oExcel = _ExcelBookOpen($sPath)
For $i = 1 To $oExcel.Sheets.Count
$oExcel.Sheets($i).PrintOut(1, True)
Next
muss ich gleich bei der arbeit morgen versuchen 
wäre nen traum wenns geht, hab vorn ein paar tagen das erste mal mit autoit gearbeitet, daher ist kaum basiswissen da 
nur rumwursteln^^
aber schon mal danke für die antworten
wäre nen traum wenns geht
Im Zusammenhang mit "PDFCreator" funzt der gepostete Code tadellos.
bei mir kommt immer auf diese zeilen bezogen:
For $i = 1 To $oExcel.Sheets.Count
$oExcel.Sheets($i).PrintOut(1, True)
Variable must be of type "Object".:
For $i = 1 To $oExcel.Sheets.Count
For $i = 1 To $oExcel^ ERROR
>Exit code: 1
und jetzt hab ich keien ahnung was da nicht stimmt, also eigl verstehe ich schon was nicht stimmt nur nicht wie ich es beheben kann^^
Wie öffnest du die Exceldatei denn?
BugFix hatte das Excelobjekt in der Variable $oExcel gespeichert ($oExcel = _ExcelBookOpen($sPath))
Wenn deine Variable $Exceldatei heißt, muss der Code so lauten
For $i = 1 To $Exceldatei.Sheets.Count
$Exceldatei.Sheets($i).PrintOut(1, True)
Next
For $i = 1 To $oExcel^ ERROR
Das heißt, dass das Objekt " $oExcel" nicht existiert.
Gehe so vor:
$oExcel = _ExcelBookOpen($sPath)
If Not IsObj($oExcel) Then ConsoleWrite('Fehler beim Öffnen Datei!' & @CRLF)
moin,
mein problem hat sich nun etwas geändert, jetzt geht es dadrum, dass in einem ordner wo unterordner, xls, xlsm etc. dateiformate drin sind nur die mit xlsm geöffnet werden
$List =_FileListToArray($Pfad, "*.xlsm")
For $i = 1 To $List[0]
_ExcelBookopen($Pfad&"\"&$List[$i])
Next
nach ein bisschen gefummel liefs super danke dir lubu
so als hütchen obendrauf, ich habe das folgende:
#include <file.au3>
#include <Array.au3>
$sFolder = "............"
$aDir = _FileListToArray($sFolder, '*.xlsm')
For $i3 = 1 To UBound($aDir) - 1
................
next
das ubound startet ja eine schleife, insgesamt sind in dem ordner 20 .xlsm dateien die alle einzeln aufgerufen werden und als pdf gespeichert werden.
letzter befehl in der ubound klammer ist send("{down}") damit geht die ganze sache zur nächsten datei, die dann den gleichen prozess wieder die vorherige durchläuft, das funzt auch alles prima,
nur: wenn dann die letzte .xlsm datei fertig ist wird die immer wieder geöffnet, wie kann ich die schleife beenden, nachdem die letzte datei durchgelaufen ist.
lg
dopdf herunterladen , instalieren , als standart drucker einrichten , dann au3 proggi machen , z.b.
Code:
send( "{rctrl}" & "p")
sleep( "50" )
send( "{enter}" )
so oder so ähnlich ;D
das beantwortet mir grad so gar nicht meine letzte frage^^
