Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Sendkeys nur im Einzelschrittmodus?
Autor: Behrooz
Datum: 12.06.03 15:54
Hallo zusammen, Ichmöchte mit einem Programm einige Exceltabellen in Postscript-Format speichern und verwnde dafür die Funktion Printout mit der Option PrintToFile. Damit ich den Dateinamen nicht jedesmal eintippen muss verwende ich davor die Funktion SendKeys. Mein Problem ist, dass die Funktion SendKeys zu Laufzeit keine Wirkung zeigt und ich den Dateinamen trotzdem eintippen muss. Im Einzellschrittmodus bzw. im Debug-Modus funktioniert das aber hervorragend. Es funktioniert auch, wenn ich einen Breakepoint vor bzw. bei SendKeys setze und nach Anhalten des Programms sofort mit Run weiter mache. Hier der Ausschnitt aus dem Programm:   Function UAN1PruefDokuSchliessen(erw_) 'speichert und schliesst die Vorlagen für die Prüfdokumentation der Inbetriebsetzer 'Schließt auch Excel! 'Kopfdaten 'Anlagengebundenesachnummer UAN1Blatt.Cells(59, 2).Value = Bhfgsnr 'Projektbezeichnung UAN1Blatt.Cells(59, 11).Value = Zeil1 If Zeil2 <> Empty Then UAN1Blatt.Cells(60, 11).Value = Zeil2 Else UAN1Blatt.Cells(60, 11).Value = Zeil3 End If 'Ausgabe UAN1Blatt.Cells(59, 38).Value = "a" UAN1Blatt.Cells(60, 38).Value = frmMatli.txtDatumAusgabeA If frmMatli.txtDatumAusgabeB.Text <> Empty Then UAN1Blatt.Cells(59, 41).Value = "b" UAN1Blatt.Cells(60, 41).Value = frmMatli.txtDatumAusgabeB End If If frmMatli.txtDatumAusgabeC.Text <> Empty Then UAN1Blatt.Cells(59, 44).Value = "c" UAN1Blatt.Cells(60, 44).Value = frmMatli.txtDatumAusgabeC End If 'Blattnummerierung UAN1Blatt.Cells(59, 49).Value = lfdnr & "." & "1" & blatterweiterung 'Postscript und PDF erstellen sendkeysdatei = sAktProjektPfad & "Pruefdokumente\Signale\" & (Left(ExcelPruefDoku.Workbooks(2).name, (Len(ExcelPruefDoku.Workbooks(2).name) - 4))) & "_" & erw_ & ".ps" & "~" psfile = sAktProjektPfad & "Pruefdokumente\Signale\" & (Left(ExcelPruefDoku.Workbooks(2).name, (Len(ExcelPruefDoku.Workbooks(2).name) - 4))) & "_" & erw_ & ".ps" ' Ein Breakepoint an dieser Stelle und ich kann mit Run weitermachen ohne dass ein ' Fehler passiert. Ohne Breakepoint werde ich aufgerufen den Namen der Datei einzugeben! pdffile = sAktProjektPfad & "Pruefdokumente\Signale\" & (Left(ExcelPruefDoku.Workbooks(2).name, (Len(ExcelPruefDoku.Workbooks(2).name) - 4))) & "_" & erw_ & ".pdf" SendKeys sendkeysdatei 'Dateiname[u] ExcelPruefDoku.Workbooks(1).PrintOut , , , , StandardDrucker.DeviceName, PrintToFile:=True DistillerApp.FileToPDF psfile, pdffile, "" 'Arbeitsmappe speichern (UAN1-Blatt) ExcelPruefDoku.DisplayAlerts = False ExcelPruefDoku.Workbooks(2).SaveAs sAktProjektPfad & "Pruefdokumente\Signale\" & (Left(ExcelPruefDoku.Workbooks(2).name, (Len(ExcelPruefDoku.Workbooks(2).name) - 4))) & "_" & erw_ & ".xls" ExcelPruefDoku.DisplayAlerts = True 'Arbeitsmappe schliessen (UAN2-Blatt) ExcelPruefDoku.Workbooks(2).Close Set UAN1Mappe = Nothing Set UAN1Blatt = Nothing End Function   Ich weiß nicht mehr weiter und konnte auch bisher keine vergleichbaren Probleme in den VB-Foren im Internet finden. Vielen Dank für eure Hilfe.

Sendkeys nur im Einzelschrittmodus?	124	Behrooz	12.06.03 15:54
Re: Sendkeys nur im Einzelschrittmodus?	472	dbayer	12.06.03 17:33
Re: Sendkeys nur im Einzelschrittmodus?	45	Behrooz	13.06.03 10:07
Re: Sendkeys ... Frage2! + AppActivate	55	SourcerRobb	13.06.03 14:33

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen