Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: medic am April 16, 2012, 21:15:38 Nachmittag

Titel: Office 2007: Pfad zum speichern einfügen?
Beitrag von: medic am April 16, 2012, 21:15:38 Nachmittag

Hallo, ich habe folgenden Code von Beverly erhalten:

Code: Visual Basic

1. Sub Kopieren()
2.    Dim rngZelle As Range
3.    Dim arrTabellen()
4.    Dim lngZaehler As Long
5.    Dim wksTab As Worksheet
6.    For Each rngZelle In Columns(1).SpecialCells(xlCellTypeConstants)
7.       If UCase(rngZelle) = "X" Then
8.          On Error Resume Next
9.          Set wksTab = Worksheets(rngZelle.Offset(0, 1).Value)
10.          On Error GoTo 0
11.          If Not wksTab Is Nothing Then
12.             ReDim Preserve arrTabellen(0 To lngZaehler)
13.             arrTabellen(lngZaehler) = rngZelle.Offset(0, 1)
14.             lngZaehler = lngZaehler + 1
15.          End If
16.          Set wksTab = Nothing
17.       End If
18.    Next rngZelle
19.    Worksheets(arrTabellen()).Copy
20. End Sub
21.  

Wie kann ich denn in einer Zelle einen Pfad angeben, unter denn die die aufgelisteten Namen der Tabellenblätter abgespeichert werden sollen?
Also z.B. sPfad = Worksheets("Tabelle1").Range("R11")

Titel: Antw:Office 2007: Pfad zum speichern einfügen?
Beitrag von: Beverly am April 17, 2012, 08:53:07 Vormittag

Hi,

zum Speichern reicht aber nicht der Pfad alleine aus, es muss natürlich auch ein Dateiname vorhanden sein. Soll der in einer anderen Zelle stehen oder beides komplett in einer einzigen Zelle?

Bis später,
Karin

Titel: Antw:Office 2007: Pfad zum speichern einfügen?
Beitrag von: medic am April 17, 2012, 22:37:02 Nachmittag

Sorry, war heute offline.
Ich würde den Pfad mit Dateiname in einer Zelle angeben. Bei einem Export-Script, dass ich öfters nutze habe ich bisher immer
^{saveAs sPfad xlNormal}
genutzt und den Exportpfad in einer Zelle (z.B. \...\letzes Verzeichnis\Dateiname) angegeben.

Mal nebenbei blöd gefragt: xlNormal speichert die Datei ja als *.xls ab. Wie muss der Befehl lauten, wenn ich *.xlsx speichern will? Dieses Kompatibilitätsgehabe vom 2007 nervt manchmal. Macht es aber nicht bei allen (exportierten) Dateien und auch nicht immer  :-\

Titel: Antw:Office 2007: Pfad zum speichern einfügen?
Beitrag von: Beverly am April 24, 2012, 09:26:21 Vormittag

Hi,

dann lasse doch xlNormal weg. Falls der Dateiname ohne Dateiendung in der Zelle steht, musst du einfach noch ".xlsx" daran hängen also

Code: [Auswählen]

saveAs sPfad & ".xlsx"
Bis später,
Karin

Titel: Antw:Office 2007: Pfad zum speichern einfügen?
Beitrag von: medic am April 24, 2012, 14:19:09 Nachmittag

oh Mann, das einfache lag so Nahe ::)
Danke für den knotenplatzenden Tip.

Schon eine Idee wegen dem speichern über den pfad in der zelle? :-[ :-\

Titel: Antw:Office 2007: Pfad zum speichern einfügen?
Beitrag von: Beverly am April 29, 2012, 07:54:41 Vormittag

Hi,

ich verstehe nicht so ganz, wo da noch ein Problem ist.

Bis später,
Karin

Titel: Antw:Office 2007: Pfad zum speichern einfügen?
Beitrag von: mumpel am April 30, 2012, 09:42:28 Vormittag

Hallo!

@ medic

Ich darf Dich bitten, in Zukunft den Code-Tag zu verwenden, wenn Du hier Code posten möchtest. Diese Minischrift ist schlecht fürs Auge und nicht zu entziffern.

Gruß, René

Titel: Antw: Office 2007: Pfad zum speichern einfügen?
Beitrag von: mumpel am April 30, 2012, 09:53:41 Vormittag

Kleiner Tipp noch:
Das einfache Anhängen der Dateiendung ist nicht zu empfehlen, da fehleranfällig (Datei kann für Excel aufgrund falscher Formatzuordnung im Dateiheader unlesbar werden). Daher besser mit "FileFormat" arbeiten.
ActiveWorkbook.SaveAs Filename:=sPfad, FileFormat:=IIf(Val(Application.Version)> 11, 51, xlNormal)

Titel: Office 2007: Antw: Office 2007: Pfad zum speichern einfügen?
Beitrag von: medic am Mai 11, 2012, 08:08:04 Vormittag

Hallo mumpel,
kann ich deine Codezeilen

Zitat von: mumpel am April 30, 2012, 09:53:41 Vormittag

ActiveWorkbook.SaveAs Filename:=sPfad, FileFormat:=IIf(Val(Application.Version)> 11, 51, xlNormal)

einfach einfügen und wird die Datei dann als *.xlsx gespeichert?

Titel: Antw: Office 2007: Pfad zum speichern einfügen?
Beitrag von: medic am Mai 11, 2012, 08:14:23 Vormittag

Zitat von: Beverly am April 29, 2012, 07:54:41 Vormittag

Hi,
ich verstehe nicht so ganz, wo da noch ein Problem ist.
Bis später,
Karin

Oha, also....
ich hatte ja deine Codezeilen in dem ersten Beitrag eingefügt und habe das Problem oder die Vorstellung, den Pfad, unter dem die Datei gespeichert werden soll, in einer Zelle anzugeben (z.B. in die zelle R11 in der Tabelle 1). Das bekomme ich irgendwie nicht hin. Ich habe versucht, den Code (sPfad = Worksheets("Tabelle1").Range("R11")), den ich in anderen Script schon genutzt habe, irgendwie in dein Script einzubauen, aber es funzt nicht.