Ich würde gerne per VBA-Code einen Fileopen-Dialog bzw. "Datei speichern" anstoßen. Geht das ?
Lukas
Application.Dialogs(xlDialogOpen).Show
Application.Dialogs(xlDialogSaveAs).Show
Gruß Otto
hey...nur so kurzes Statement. nicht schlecht.
wie mach ich das aber nun am besten, wenn ich eigentlich nur den dialog zum auswählen brauchen wurde aber dann die Datei erst in meinem makro öffnen möchte?
ich sprech nämlich ein datenblatt der zu öffnenden datei in meinem makro an,...liefert mir das macro irgendwie den namen des geöffneten files oder so ?
mein makro soll nämlich aus dem per makro geöffneten file ein arbeitsblatt "arb1" herauskopieren und in meine derzeit aktuelle arbeitsmappe kopieren....
was meinst du dazu ? geht sowas ?
lukas
Mit folgender Zeile kannst Du den "Datei Öffnen"-Dialog (mit bereits voreingestelltem Ordner!) einblenden:
Application.Dialogs(xlDialogOpen).Show _
("F:\Pfad\Ordner\Unterordner\*.xls")
Bei "Datei Speichern" glaub ich nicht, dass das so einfach geht. Ich hab aber ein ähnliches Problem so gelöst:
nname = InputBox(Title:="Speichern unter ....",prompt:="... folgendem Dateinamen:", Default:="N:\Pfad\Ordner\UnterOrdner\" & ActiveWorkbook.Name)
If nname = "" Then
MsgBox prompt:="Da Sie nichts eingegeben haben, "
" wird das Programm beendet!", Buttons:=vbExclamation
Exit Sub
Else
ActiveWorkbook.SaveAs Filename:=nname, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End If
Ich hoffe, Du kannst damit was anfangen;
Viel Erfolg!
vbChr
wenn der Dateiname, der zu öffnenden Datei, bekannt ist, dann arbeite mit "Workbooks.open "c:\lukas\Datei1.xls"
Willst Du tatsächlich kopieren oder reicht Dir nicht eine Verknüpfung ?
Das Thema "kopieren" habe ich gerade gepostet. Gib mal oben in dem Feld "Suchen" den Begriff "Bernhard" ein. Ansonsten melde Dich nochmal.
Gruß Otto
Ich hab jetzt doch einen FileOpen-Dialog eingebaut...gibts ne Möglichkeit auf den Namen der ausgewählt wurde zu kommen (ohne Endung)?
Lukas