Office 2007: Pfad zum speichern einfügen?

[medic]

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")

[Beverly]

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

[medic]

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 

[Beverly]

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

[medic]

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?

[Beverly]

Hi,

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

Bis später,
Karin

[mumpel]

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é

[mumpel]

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)

[medic]

Hallo mumpel,
kann ich deine Codezeilen

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

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

[medic]

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.