Beiträge von GML

Hallo

such mal nach

bypassklappe automatisch 3-weg

Stichwort Belimo, das sollte dich auf den richtigen Weg führen

Grüsse

LG

PS: Querschnittsänderungen mit kleinen Gewebekompensatoren oder Schlauchstutzen ausgleichen (gibts auch von eckig auf rund)

Danke fürs Drüberschauen bzw. die Analyse!

LG

Bitte sehr!
Ich kann mich nur bedanken für die Hilfe die einem hier im Forum zuteil wird!

LG

Kabelplan.7z

Hallo

Nachdem ein "lieber" Kollege das Arbeitsblatt um Spalten AQ-BK erweitert hat (!) und dadurch die Verarbeitungszeit exponentiell angestiegen ist, hätte ich den Vorschlag (ob dieser sinnvoll umzusetzen ist kann ich, bei der für mich doch etwas höheren Komplexität der UDF, nicht sagen) die Funktion um eine Spaltengrenze zu erweitern. So in der Art:

_xlsx_2Array(Const $sFile, Const $sSheetNr = 1, $dRowFrom = 1, $dRowTo = Default, $dColFrom = 1, $dColTo = Default)

Grüsse

LG

Ich habs so gelöst (allerdings ohne AutoIt):

@echo off
rem PDF zusammenführen von einem Ordner aus mit allen Subdirs

rem WIN10, PDF24 64bit-Version
set whatpdf24="c:\Program Files\PDF24\pdf24-DocTool.exe"

Wfolder2 "SET Folder=" "c:\" "PDF24 - zu mergendes Verzeichnis" > %temp%\wp.bat
if not %errorlevel%==0 goto quit
call %temp%\wp.bat
del %temp%\wp.bat

echo.
echo.
echo Das Verzeichnis:
echo.
echo     %folder%
echo.
echo wird mit PDF24 zusammengeführt
echo.
echo.

%whatpdf24% -join -sort -profile "default/good" -expandDirsRecursive -outputFile C:\temp\PDF24_merge.pdf %folder%

echo.
echo.
echo     Jetzt is fertig!
echo     (die zusammengeführte Datei ist c:\temp\PDF24_merge.pdf)
echo.
pause

:quit
exit

DANKE! DANKE!

Das erspart mir eine Menge Arbeit (und vor allem immer wiederkehrend) ...

LG

überhaupt ein großes Dankeschön an alle die immer wieder Schnipsel beisteuern oder korrigieren

Es scheint so. Ich hab die Tabelle bereinigt und kann sie hier heraufstellen (war eh gut, da über > 6 MB ). Mit dieser Datei

ist genau das auch nicht möglich (getestet, Programm liegt bei):

$aSheet = _xlsx_2Array(@ScriptDir & "\Kabelplan.xlsm", 3)

Lösche ich auch nur ein einziges Tabellenblatt (somit unter 10 Tabellenblätter, egal welches nach dem 3. Blatt - das will ich ja auslesen) funktioniert xlsxNativ einwandfrei.

Danke für deine Mühe

LG

Ja, habe die Variante mit 7za benutzt, das Ergebnis ist ohne 7za dasselbe bzw. der gleiche Fehler. Gibt es eine Möglichkeit dir die Datei über das Forum zukommen zu lassen, ohne sie ins Forum zu stellen?

Wenn ich relevante Daten herauslösche, ist wieder nicht gewähleistet das der Fehler bei dir auftaucht.

LG

Guten Morgen

Danke für das Angebot. Im Zuge der Bereinigung des Excel-Sheets um Firmenangaben bin ich möglicherweise auf den Kern des Problems gestoßen: mein Workbook umfaßt 10 Arbeitsblätter. Wenn ich ein Arbeitsblatt lösche (egal welches) funktioniert dein UDF. Sowie es >9 Arbeitsblätter hat, kommt der oben erwähnte Fehler. Eventuell ist das ein 1-9 = einstellig, >9 = zweistellig-Problem in der UDF?

Grüsse

LG

Error: 5

extended: 0

egal ob: $aSheet = _xlsx_2Array(@ScriptDir & "\Kabelplan.xlsm", 3)

oder: $aSheet = _xlsx_2Array(@ScriptDir & "\Kabelplan.xlsm", "3")

dabei wäre das genau DAS was mir aus der Patsche (hier beschrieben: "Excel - Exceldatei schließen ohne speichern ... geht nicht") helfen würde.

LG

Hallo

leider gelingt es mir nicht aus einer Excel-Datei das 3. Arbeitsblatt auszulesen (egal ob xlsm oder xlsx). Das erste Arbeitsblatt funktioniert (Excel 2016).

$aSheet = _xlsx_2Array(@ScriptDir & "\Kabelplan.xlsm", 3) leider nicht (es gibt 10 Arbeitsblätter in dieser Datei ..).

Grüsse

GL

>

Könnte es sein das dieses (Fehl)Verhalten darin begründet ist das ich kein xlsx sondern ein xlsm aufmache (die zweite Excel-Datei die ich aufmache ist dann wieder ein xlsx)?

<

Hab ich gerade probiert. Das .xlsm als .xlsx gespeichert (brauch die Makros nicht), die Funktion _Excel_BookClose($oWorkbook, False) funktioniert wie gedacht und gewünscht.

D.h. die Excel-Datei läßt sich ohne Probleme - ohne speichern - schließen. Es scheint als ob Excel.au3 da einen kleinen Fehler hat.

Nein, das Makro in der Excel-Datei hat keinen Fehler, das funktioniert einwandfrei.

Grüsse

LG

PS: auch der Parameter für _Excel_Open ( [$bVisible = False) funktioniert mit .xlsm nicht, genauso wie der Parameter $bScreenupdating der auch ignoriert wird.

ProcessClose ist relativ brutal tät ich gerne vermeiden, da Excel nochmal aufmachen wieder Zeit kostet.

>

Was ist der Wert von @error und @extended nach _Excel_BookClose?

<

beides 0.

Könnte es sein das dieses (Fehl)Verhalten darin begründet ist das ich kein xlsx sondern ein xlsm aufmache (die zweite Excel-Datei die ich aufmache ist dann wieder ein xlsx)?

Grüsse

LG

Ich verwende AutoIt 3.3.14.5 und Ms-Office Standard 2016

Was mache ich:

Excel starten

$hReport = _Excel_Open(Default, Default, False, Default, True)

Excel-Datei readonly öffnen:

$oWorkbook = _excel_bookopen($hReport, "Exceltest.xlsx", True)

Arbeitsblatt ___Teile____ aktiv setzen

$oWorkbook.WorkSheets("___Teile____").Activate

mögliche gesetzte Filter zurücksetzen

_Excel_FilterSet($oWorkbook, Default, Default, 0)

Filter setzen auf Spalte 6 <> blank

_Excel_FilterSet($oWorkbook, "___Teile____", Default, 6, "<>")

gefilterten Bereich verarbeiten, in Array schreiben usw. funktioniert alles einwandfrei

Excel-Datei schließen ohne speichern (funktioniert einfach nicht

_Excel_BookClose($oWorkbook, False)

Excel selber wird nicht geschlossen, da danach noch eine andere Excel-Datei geladen und verarbeitet

wird, das funktioniert einwandfrei, ich ändere aber in der Exceldatei auch nichts.

Excel-Datei schließen:

Warum kommt hier trotz "False" - nicht speichern - immer die Aufforderung "Speichern: Ja/nein" von Excel?

Das Skript pausiert natürlich an der Stelle bis das beantwortet wird.

Danke an alle die darüber nachdenken

LG

Danke, das wäre wirklich zuviel Aufwand.

Eine andere Möglichkeit habe ich noch im englischen Forum gefunden (allerdings ohne Zustandsspeicherung, also entweder eingeklappt oder ausgeklappt starten):

For the opening of scripts to be folded by default, then add this into your User Options file and save.

(Originalbeitrag)

# Folding
# enable folding, and show lines below when collapsed.
fold=1
fold.compact=1
fold.flags=16
fold.symbols=2
fold.on.open=1
fold.comment=1
fold.preprocessor=1

Ich habe bin aber offensichtlich nicht in der Lage das zu finden ...

Gibt es eine Möglichkeit SciTE so einzustellen, das

#Region

.

.

#EndRegion

Zustände - auf- oder zugeklappt - beim Öffnen/Speichern/kompilieren wiederhergestellt werden wie ich sie auf-/oder zugeklappt hatte?

Vielleicht weiß das jemand und kann mich erleuchten.

Danke

LG

Gelöst!

Mittels eines Beitrages aus dem englischen AutoIt-Forum. Voraussetzung ist ein GUI (kann auch ein Dummy sein, bzw. ein unsichtbares Fenster).

#include <WinAPIProc.au3>
#include <WinAPI.au3>
#include <WinAPISys.au3>
#include <Array.au3>
#include <GUIConstants.au3>
#include <APISysConstants.au3>

Global $hGUI = GUICreate("GUI")
GUISetState(@SW_SHOW, $hGUI)

GUIRegisterMsg(_WinAPI_RegisterWindowMessage('SHELLHOOK'), 'WM_SHELLHOOK')
_WinAPI_RegisterShellHookWindow($hGUI)

Run("notepad.exe")

Local $nMsg=0
While 1
    $nMsg = GUIGetMsg()
    Select
        Case $nMsg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd
_WinAPI_DeregisterShellHookWindow($hGUI)
Exit

Func WM_SHELLHOOK($hWnd, $iMsg, $wParam, $lParam)
    #forceref $iMsg
    Switch $wParam
        Case $HSHELL_WINDOWDESTROYED
            ConsoleWrite('Destroyed: ' & @CRLF & _
                    @TAB & 'PID: ' & WinGetProcess($lParam) & @CRLF & _ ; This will be -1.
                    @TAB & 'ClassName: ' & _WinAPI_GetClassName($lParam) & @CRLF & _ ; This will be empty.
                    @TAB & 'hWnd: ' & $lParam & @CRLF) ; This will be the handle of the window closed.
        Case $HSHELL_WINDOWCREATED
            ConsoleWrite('Created: ' & @CRLF & _
                    @TAB & 'PID: ' & WinGetProcess($lParam) & @CRLF & _
                    @TAB & 'ClassName: ' & _WinAPI_GetClassName($lParam) & @CRLF & _
                    @TAB & 'hWnd: ' & $lParam & @CRLF) ; This will be the handle of the window closed.
    EndSwitch
EndFunc   ;==>WM_SHELLHOOK

Bei den Case-Abfragen in WM_SHELLHOOK kann man dann weitere Fensterabfragen/-behandlungen einbauen.

Grüsse

LG

Guten Morgen

Danke!

Das mit der zweiten Datei war der entscheidende Hinweis. Wußte nicht wie ich eine selbstüberwachendes

Programm realisieren könnte, da ja ein externes Programm zum Ausdruck aufgerufen wird.

LG

Vielleicht zum besseren Verständnis (meines Unverständnisses )

#include <MsgBoxConstants.au3>    ; div. Warnzeichen für MsgBox
#include <Dialogue.au3>           ; Options-Dialog (PAL-UDF)

local $ausdruck1 = "c:\temp\00. ungeschützt.pdf"    ; ein "normales" PDF
local $ausdruck2 = "c:\temp\00. geschützt.pdf"      ; ein PDF mit Kennwortschutz der den Ausdruck nicht erlaubt

$iOption = _MessageBox("Druckerauswahl","Make a choice",0,"SumatraPDF","FoxitReader")
if $iOption = 0 then
    exit
ElseIf $iOption = 1 then
    $sPdfDrucker = "c:\sumatra\SumatraPDF.exe "
    $PdfOpt = "-print-to-default "
elseif $iOption = 2 then
    $sPdfDrucker = "C:\Program Files (x86)\Foxit Software\Foxit Reader\FoxitReader.exe "
    $PdfOpt = "/p "
endif

; ShellExecuteWait ( "filename" [, "parameters" [, "workingdir" [, "verb" [, showflag]]]] )
$ergebnis = ShellExecuteWait($sPdfDrucker, $PdfOpt & chr(34) & $ausdruck1 & chr(34), @WorkingDir, "", @SW_HIDE)
; mit SumatraPDF bekomme ich den Rückgabewert 0
msgbox($MB_ICONINFORMATION, "Debug","Dokument 1 ungeschützt (return 0)" & $ergebnis)
$ergebnis = ShellExecuteWait($sPdfDrucker, $PdfOpt & chr(34) & $ausdruck2 & chr(34), @WorkingDir, "", @SW_HIDE)
; mit SumatraPDF bekomme ich den Rückgabewert 1 (da die Datei Passwortgeschützt/Ausdruck nicht erlaubt ist), ABER den
; sehe ich erst wenn ich die Messagebox von SumatraPDF bestätigt habe
; (das Script pausiert an dieser Stelle wg. shellexecutewait) und genau um die Bestätigung dieses
; Meldefensters geht es mir.
; Wie kann ich vor dem Ausdruck in meinem Programm einen handler installieren, der mir das Auftauchen solcher
; Meldefenster überwacht und gegebenenfalls bestätigt damit der Ausdruck in der Nacht weiterläuft??
; Das diese Datei nicht gedruckt wurde, sehe ich dann in der Log-Datei die mitgeführt wird.
; Zum Zeitpunkt des Druckens ist mir das egal, wichtig ist nur das der Ausdruck in so einem Fall fortgesetzt wird.
msgbox($MB_ICONINFORMATION,"Debug", "Dokument 2 geschützt (return 1)" & $ergebnis)

exit

Sorry für den hölzernen Code, ist nur ein schnelles Bespiel zum probieren.

Danke im Voraus für alle die mich erleuchten.

LG

Hallo

Vielleicht kann mir jemand die grundsätzlich mögliche Vorgangsweise erläutern .. auch ob sowas überhaupt geht.

Mit meinem Programm kann ich einen ganzen Verzeichniszweig ausdrucken. Jeder Verzeichniswechsel erzeugt einen Ausdruck auf andersfärbiges Papier aus einem zweiten Schacht.

Beim Programmstart wird das Start-Verzeichnis in ein Array eingelesen und dann abgearbeitet. Soweit so gut, funktioniert auch gut mit xls, doc, pdf, jpg, gif usw..

Hier im Prinzip:

verzeichnis rekursiv in array schreiben

do while 1 to verzeichnisarray_letzter_Eintrag
   falls neues Verzeichnis -> zwischenblattdruck
       +1 zeile im Array
   falls Verzeichnis -> loop, andernfalls
       ausdruck mit shellexecutewait("sumatrapdf.exe" ...)
   +1 zeile im Array (für nächste datei oder verzeichnis)
enddo verzeichnisarray

* EOF

Wie muß ich vorgehen um Meldungen (= Meldungsfenster wie "Im Batchmodus können keine PDF/a gedruckt werden" o.ä.) vom shellexecutierten Programm (aka SumatraPDF) abzufragen, die auftauchen KÖNNEN aber nicht mÜSSEN, (zwecks Log-Datei-Eintrag) und zu bestätigen, damit der Ausdruck - der meist über Nacht erfolgt - nicht an dieser Stelle stehen bleibt und das Meldefenster auf eine Benutzeraktion wartet?

Ein ähnliches Problem tritt auf wenn Excel ausgedruckt wird, aber noch kein Druckbereich definiert wurde.

Ich muß shellexecutewait verwenden, da sonst die Reihenfolge der Dokumente innerhalb eines Verzeichnisses nicht stimmt.

Meinem Verständnis nach müßte ein Task im Hintergrund auf solche Meldungsfenster lauern, dann ein OK absetzen und einen Eintrag in der Log-Datei vornehmen. Aber wie unterscheide ich solche Meldefenster programmtechnisch von einem Programmfenster das ich in der Zwischenzeit gestartet habe (und das nicht unter dem Kontext meines Druckprogrammes läuft)? Wie sieht das Programmtechnisch aus?

Danke für jede Hilfe

LG