Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1076to1080
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

WIN32-API Dialog mit Dateinamevorblendung möglich?

WIN32-API Dialog mit Dateinamevorblendung möglich?
03.06.2009 11:13:45
Werner
Hallo Excelgemeinde,
ich beschäftige mich zur Zeit mit dem WIN32 API-Dialog (Öffnen/Speichern).
Durch setzen der bestimmten Flags erreiche ich "fast" alle meine Wünsche.
Ein Problem/Frage habe ich aber noch:
Ist es möglich bei dem Dialog "Speichern"
Userbild
einen Dateinamen (Projekte.xls) vorzublenden?
Userbild
Ich bin für jede Anregung dankbar.
Hier meine Testdatei:
https://www.herber.de/bbs/user/62178.xls
Danke und Gruß
Werner

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WIN32-API Dialog mit Dateinamevorblendung möglich?
03.06.2009 11:50:59
Kawensmann
Hallo,
versuch's so:

With OFN
'.lpstrFile = String(4096, vbNullChar)
.lpstrFile = "Project.xls"
.nMaxFile = 4096


Gruß
Kawensmann

Genau danach habe ich gesucht!
03.06.2009 11:54:17
Werner
Hallo Kawensmann,
genau danach habe ich gesucht, DANKE!
Gruß
Werner
Funktionierte nicht, mit diesem Zusatz aber geht's
03.06.2009 13:44:19
Werner
Hallo Kawensmann,
der Versuch sah zuerst gut aus ...
funktionierte aber dann doch nicht.
Es fehlten die aufgefüllten NullChar, womit die Funktion abbrach.
Nach folgender Ergänzung geht es aber jetzt:
    '*************** ohne Dateinamenvorgabe ***********************
    '.lpstrFile = String(4096, vbNullChar)
    
    '**************************NEU********************************
    '*************** mit Dateinamenvorgabe ***********************
    NullStr = ""
    For i = 1 To (4096 - Len(InitialDir & "\" & "Projekte.xls"))
       NullStr = NullStr & vbNullChar
    Next i
    .lpstrFile = "Projekte.xls" & NullStr
    '*************************************************************
Danke aber für den Ansatz, der war goldrichtig!
Gruß
Werner
Anzeige
AW: Funktionierte nicht, mit diesem Zusatz aber geht's
03.06.2009 15:09:39
Kawensmann
Ich hatte zuerst auch ein vbNullChar angehängt, aber bei mir ( WIN XP Prof. SP 2, Excel 2003 SP3) hat's auch ohne funktioniert...

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige