Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.07.2015 18:40:36 |
Florian S. |
|
|
Speichern unter Pfard ordner selber Wählen |
20.07.2015 22:02:03 |
Gast11098 |
|
|
|
21.07.2015 08:06:22 |
Florian S. |
|
|
|
21.07.2015 17:39:38 |
Gast11098 |
|
|
Von:
Gast11098 |
Datum:
20.07.2015 22:02:03 |
Views:
1260 |
Rating:
|
Antwort:
|
Thema:
Speichern unter Pfard ordner selber Wählen |
Lass es einfach vom Nutzer auswählen:
Option Explicit 'Variablendeklaration erzwingen
Sub PDF()
'
' PDF Makro
'
'
Const C_ROOT = "C:\Users\Benutzer\Desktop\Ergebnisse\"
On Error GoTo ErrHandler
Dim wks As Excel.Worksheet
Dim strFilename As String
Dim vntVisiblePrev As Variant
Set wks = Worksheets("Auswertung PDF")
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Speicherort für PDF-Datei auswählen ..."
.InitialView = msoFileDialogViewList
.InitialFileName = C_ROOT
Call .Show
If .SelectedItems.Count > 0 Then
'Hat der Nutzer hat den Pfad verlassen?
If 0 <> StrComp(Left$(.SelectedItems(1), Len(C_ROOT)), C_ROOT, vbTextCompare) Then
Stop
'<reagiere irgendwie darauf>
Exit Sub
End If
'der vom Nutzer ausgewählte Pfad
strFilename = .SelectedItems(1) & "\"
'Achtung:
' Hier wird nur geprüft ob die Zelle einen Inhalt hat.
' Es wird nicht geprüft ob er auch gültig ist!
If Trim$(wks.Range("B5")) = "" Then
Call MsgBox("In '" & wks.Name & "!B5' wurde kein Dateiname festgelegt.", _
vbExclamation)
Exit Sub
End If
'den Pfad um den Dateinamen ergänzen
strFilename = strFilename & Trim$(wks.Range("B5").Text) & ".pdf"
'Bem.:
' Zum Exportieren muss das Blatt sichtbar sein
vntVisiblePrev = wks.Visible '< aktuelle Einstellung merken
wks.Visible = xlSheetVisible '< Blatt sichtbar machen
Call wks.ExportAsFixedFormat( _
Type:=xlTypePDF, _
Filename:=strFilename, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=True)
wks.Visible = vntVisiblePrev '< alte Einstellung wiederherstellen
End If
End With
Exit Sub
ErrHandler:
Call MsgBox(Err.Description, vbCritical, "Fehler " & Err.Number)
End Sub
Gruß
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
20.07.2015 18:40:36 |
Florian S. |
|
|
Speichern unter Pfard ordner selber Wählen |
20.07.2015 22:02:03 |
Gast11098 |
|
|
|
21.07.2015 08:06:22 |
Florian S. |
|
|
|
21.07.2015 17:39:38 |
Gast11098 |
|
|