Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
492to496
492to496
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA: SaveAs Feld in bestimmtem Ordner öffnen

Forumthread: VBA: SaveAs Feld in bestimmtem Ordner öffnen

VBA: SaveAs Feld in bestimmtem Ordner öffnen
28.09.2004 14:36:37
Simon
Guten Tag,
kann mir jemand sagen, wie ich mir das SaveAs-Feld schon in einem bestimmten Pfad / Ordner öffnen lassen kann um nicht immer manuell aus "eigene dateien" dahin zu manövrieren ?!
Danke für eure Antworten !
Simon
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: SaveAs Feld in bestimmtem Ordner öffnen
Marcl
Hallo Simon

Sub speichern()
ort = InputBox("Speicherort?", , "C:\test.xls")
ActiveWorkbook.SaveAs ort
End Sub

Gruß
Marcl
AW: VBA: SaveAs Feld in bestimmtem Ordner öffnen
Andreas
Mit
ChDrive "P:"
ChDir "\mitarbeiter\andreas\"
kannst Du es einstellen
AW: VBA: SaveAs Feld in bestimmtem Ordner öffnen
Marcl
ich denke das geht so:
ChDrive "P:"
ChDir "\mitarbeiter\andreas\"
die beiden Sachen brauche ich nicht, die können gelöscht werden, denke ich.
ort = InputBox("Speicherort?", , "P:\mitarbeiter\andreas\")
ActiveWorkbook.SaveAs ort
Mit den beiden Zeilen wird die Box angezeigt und es steht auch schon der Teil drinnen.
Dann muss noch der Dateiname dazu und fertig.
Gruß
Marcl
Anzeige
AW: VBA: SaveAs Feld in bestimmtem Ordner öffnen
29.09.2004 08:17:05
Simon
danke für die antworten..werd das direkt mal ausprobieren.
bis dahin.
sim
AW: VBA: SaveAs Feld in bestimmtem Ordner öffnen
29.09.2004 08:35:14
Simon
hmm..klappt beides aber würde eure lösungen gerne kombinieren; nämlich so :
ganz am anfang geht je eine input-box für laufwerks- und verzeichnis-abfrage auf und diese eingaben werden dann in ChDrive bzw. ChDir übernommen.
beim speichern kommen in meinem fall noch n paar andere sachen hinzu, deshalb würd ich das gerne so lösen...und das hab ich bisher geschrieben :
laufwerk = InputBox("Speicherlaufwerk der ausgewerteten Daten:", , "F:")
ort = InputBox("Speicherverzeichnis derausgewerteten Daten:", , "\Daten\Sim\August\zielordner\")
ChDrive = laufwerk
ChDir = ort
aber das klappt leider noch nicht..wie muss ich das am ende schreiben ?
danke für eure hilfe.
simsam
Anzeige
AW: VBA: SaveAs Feld in bestimmtem Ordner öffnen
Simon
Prob schon selbst gelöst:
ChDrive laufwerk
ChDir ort
bios dann dann.
simon
;

Forumthreads zu verwandten Themen

ActiveWorkbook.SaveAs
Larissa

Hallo,
jetzt habe ich doch noch eine Frage.
In meinem Makro habe ich die Funktion: ActiveWorkbook.SaveAs 'Name_Datum'
Die Datei wird dann in Eigene Dateien abgespeichert. Wenn an diesem Platz schon eine Datei mit diesem Namen vorliegt, kommt die typische Abfrage, ob die Datei übers...
12.09.2009 17:32:49
Thread-ID: 1102264
3 Beiträge
activeWb.SaveAs funzt nicht wg. Workbook_BeforeSav
norman

Hi alle,
ich haben eine XLA-Datei geschrieben, die bei jedem Start von Excel aktiv ist. In dieser XLA-Datei wird
Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
genutzt, um in einem zentralen DB-System einen Eintrag vorzunehmen und die Datei dann in der BeforeS...
13.03.2010 21:59:44
Thread-ID: 1145651
7 Beiträge
ActiveWorkbook.SaveAs Filename
Sandra

Hallo zusammen,
ich habe mal wieder ein Problem.
Mit dem nachfolgenden Code lasse ich automatisch speichern.
Dim Dateiname As String
Dateiname = oXlSM.Name
ActiveWorkbook.SaveAs Filename:="\\xxxx\Dokumentation\" & Dateiname & ".xml"
Das klappt auch fast. Allerdin...
21.06.2011 16:49:35
Thread-ID: 1219171
3 Beiträge
Anzeige
VBA _pivate_sub save as
Volker

Hallo,
ich habe ein Problem beim Speichern einer Excel Datei. Habe ein Makro im Internet gefunden, dieses eingebaut, funktioniert wunderbar ABER jetzt wird bei jedem speichern das Dialogfeld "Save as" aufgemacht.
ISt es möglich hier eine Abfrage einzubauen, welche prüft ob der Dateinam...
25.04.2012 07:38:29
Thread-ID: 1260797
4 Beiträge
Ausschreiben von Dateien per VBA SaveAs
Dateien

Guten Morgen,
Hab ein kleines Problem und hab mich schon den ganzen Morgen durchs Internet geschlagen und auch viel hier gefunden, aber irgendwie wills bei mir nicht funktionieren ...
Hab mir hier zur Auswertung von Messdaten n kleinen Excel Tabellensatz erschaffen damit ich die Inputfi...
25.05.2012 11:57:01
Thread-ID: 1264893
5 Beiträge
activesheet.saveas txt
Günter

Hallo,
kämpfe mich als Neuling durch VBA.
Ich habe ein xls-Arbeitsblatt mit x Zeilen.
Möchte nun jeweils 5 Zeilen als txt speichern.
Habe dazu folgenden code erstellt
Range("A2:A6").Select
Selection.Copy
Sheets("Tabelle2").Select
ActiveSheet.Paste
Application...
04.08.2013 11:32:56
Thread-ID: 1325650
4 Beiträge
VBA Outlook 2010 Fehler (xlDialogSaveAs).Show
Thorsten

Hallo,
ich versuche eMail-Anhänge zu speichern.
Der genaue Speicherpfad steht in den Anhängen(.xls) der eMail.
Leider ist der Name/ Bezeichnung immer anders.
Die Anhänge werden temporär gespeichert, geöffnet und dann kommt mein Problem:
der Benutzer soll das Speicherverzeich...
07.06.2014 07:21:41
Thread-ID: 1365046
4 Beiträge
ThisWorkbook.SaveAs = Excel Absturz !? - PLS Help
Thorben

Hallo alle zusammen,
folgender Code legt eine Kopie ab und bringt Excel dann zum Absturz!?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Filestring1 = "\Test1.xlsm" Filestring2 = "\Test2.xlsm" If ActiveSheet.Range("G1") = "Bestand 1" = True Then ThisWor...
23.06.2014 14:57:24
Thread-ID: 1367056
6 Beiträge
Workbook.SaveAs einer schreibgeschüzten Datei
Bernhard

Hallo xls-ler, ich habe mein Problem der Automatisierung mit Hilfe der Recherche fast gelöst. Ein letzter Punk ist leider offen:
Der Befehl ActiveWorkbook.SaveAs soll eine Datei die Schreibgeschützt ist überschreiben. Ich dachte dadurch, dass man das Argument WriteResPassword:="test" mit dem...
16.07.2002 15:15:53
Thread-ID: 137076
3 Beiträge
ActiveWorkbook.SaveAs Dateiname aus Strings
Ben

Hallo,
ich habe folgendes VBA Programm als Makro geschrieben:
Dim pfad As String
ActiveSheet.Unprotect
Dim kursbezeichnung As String
kursbezeichnung = range("F2").Value
Application.DisplayAlerts = False
pfad = "C:\1\" & kursbezeichnung & "\Moodlezugangsdaten....
31.03.2015 14:50:36
Thread-ID: 1418235
4 Beiträge
SaveAs (VBA)
Markus

Guten Morgen....
Ich habe ein kleines Problem und komme einfach nicht dahinter, woran es liegt...
Habe eine Exceldatei, die von verschiedenen Personen bearbeitet werden kann...
Diese liegt auf einem Gruppenlaufwerk im Intranet...
Ich möchte das die Originaldatei gespeichert wird...
26.08.2015 08:09:27
Thread-ID: 1444442
3 Beiträge
Fehler bei ActiveWorkbook.Save auf Netzwerk
Henner

Guten Abend zusammen,
ich habe folgende Anweisung im Modul "Diese Arbeitsmappe": Private Sub Workbook_BeforeClose(Cancel As Boolean) ActiveWorkbook.Save End Sub
Das funktioniert soweit auch sehr gut. Die Datei liegt in einem Netzwerk und wird auch von dort geöffnet. Hat man die Datei...
23.10.2015 20:53:56
Thread-ID: 1454065
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige