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

VBA: relativer Datei Pfad

Forumthread: VBA: relativer Datei Pfad

VBA: relativer Datei Pfad
28.09.2017 10:19:12
Nati
Hi Leute,
ich möchte gerne ein Template für Powerpoint per Excel übernehmen, klappt auch:
oPPTApp.ActivePresentation.ApplyTemplate _
Filename:="C:\Users\F343237808\AppData\Roaming\Microsoft\Templates\Blank.potx"
Problem:
der Pfad sollte variabel sein, d.h. diese Zahl "F343237808" sollte je nach User angegeben werden, Blank.potx ist bei jedem User gleich ( der Rest sollte auch gleich sein außer eben die 3.Nummer)
Sonst gibt das einen Fehler bei anderen Usern, da Excel auf einen ungültigen Pfad verweist.
Wäre mega, wenn mir jemand dabei helfen könnte.
LG Nati
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA: relativer Datei Pfad
28.09.2017 10:28:47
UweD
Hallo
so?
    Dim Benutzer As String, Pfad As String
    Dim oPPTApp
        
    Benutzer = InputBox(" Deine Pfadangage ", "Benutzer", "F343237808")
    Pfad = "C:\Users\" & Benutzer & "\AppData\Roaming\Microsoft\Templates\Blank.potx"
    If Dir(Pfad) = "" Then
        MsgBox "Datei nicht vorhaanden"
        Exit Sub
    End If
    oPPTApp.ActivePresentation.ApplyTemplate _
        Filename:=Pfad

LG UweD
Anzeige
AW: API special Folder
28.09.2017 11:39:52
Fennek
Hallo,
es geht auch komplizierter:
https://dbwiki.net/wiki/VBA_Tipp:_Spezielle_Verzeichnisse_ermitteln
siehe AppData
ungeprüft: %AppDate%\Roaming\Microsoft\...
mfg
Dann nimm doch...
28.09.2017 12:00:18
Case
Hallo, :-)
... "Environ("AppData")": ;-)
Filename:=Environ("AppData") & "\Microsoft\Templates\Blank.potx"
Servus
Case
Anzeige
;

Forumthreads zu verwandten Themen

VBA-relativer Pfad
Manuel Walch
Hallo,

mit untenstehendem Befehl wird ein Bild auf einem relativen Pfad aufgerufen und in einem Bildfeld abgebildet:

ChDir ThisWorkbook.Path & "\"
Image1.Picture = LoadPicture("Dokumentenpool\Screenshots\PA5.1.jpg")

Das funktioniert aber nur, wenn die Datei auf einer Festp...
30.08.2003 17:00:05
Thread-ID: 302397
3 Beiträge
Absoluter vs. Relativer Pfadname
Mahdia

Hallo zusammen,
Ich will eine Datei öffnen. Ich habe das Befehl wie folgend geschrieben:
open "Pfad und Dateiname" For Input As 2
Da viele Leute mit diesem Makro arbeiten und die zu bearbeitende Datei immer im selben Verzeichniss liegt wie die Excelliste mit dem Makro, brauche ich e...
14.12.2005 16:16:19
Thread-ID: 708829
2 Beiträge
VBA-relativer Pfad
Manuel Walch
Hallo,

mit untenstehendem Befehl wird ein Bild auf einem relativen Pfad aufgerufen und in einem Bildfeld abgebildet:

ChDir ThisWorkbook.Path & "\"
Image1.Picture = LoadPicture("Dokumentenpool\Screenshots\PA5.1.jpg")

Das funktioniert aber nur, wenn die Datei auf einer Festp...
30.08.2003 17:00:05
Thread-ID: 302397
3 Beiträge
VBA-relativer Pfad
Manuel Walch
Hallo,

mit untenstehendem Befehl wird ein Bild auf einem relativen Pfad aufgerufen und in einem Bildfeld abgebildet:

ChDir ThisWorkbook.Path & "\"
Image1.Picture = LoadPicture("Dokumentenpool\Screenshots\PA5.1.jpg")

Das funktioniert aber nur, wenn die Datei auf einer Festp...
30.08.2003 17:00:05
Thread-ID: 302397
3 Beiträge
Konstanten Pfad definieren aus Inhalt Txt-Datei?!
Till

Hallo Leute,
Momentan verweise ich auf einen Pfad im Netzwerk über folgende Definition.


Option Explicit
Private Const cPath As String = "\\172.16.3.3\archiv_video\Polling Data\"   'Konstante Pfadvorgabe
Da es dem Benutzer fr...
03.12.2008 09:36:00
Thread-ID: 1029703
8 Beiträge
txt in Excel umwandeln
Larissa

Hallo,
ich habe folgendes Problem. Ich habe eine txt-Datei, die ich in Excel importieren möchte.
Folgenden Code habe ich bisher:
Sub txttoxls(ByVal File As String, ByVal zWkb As String) Dim txt As String Dim Buffer As String Dim acLine As Long Dim acCol As Long acLine = 0 acRow = 1...
18.12.2015 10:42:45
Thread-ID: 1465015
9 Beiträge
Makro in benutzerdefinierte Funktion umwandeln
Hannes

Hallo liebe Excel-Gemeinde,Ich habe unten stehenden Code als Makro hinter ein Textfeld gelegt. Er funktioniert soweit. Lieber hätte ich aber das ganze als benutzerdefinierte Funktion direkt in die Zelle "G42" gelegt.
Ich habe es auch versucht, aber irgendwie schaffe ich es nicht. Ich erhalte...
06.02.2003 17:22:23
Thread-ID: 215175
3 Beiträge
VBA-relativer Pfad
Manuel Walch
Hallo,

mit untenstehendem Befehl wird ein Bild auf einem relativen Pfad aufgerufen und in einem Bildfeld abgebildet:

ChDir ThisWorkbook.Path & "\"
Image1.Picture = LoadPicture("Dokumentenpool\Screenshots\PA5.1.jpg")

Das funktioniert aber nur, wenn die Datei auf einer Festp...
30.08.2003 17:00:05
Thread-ID: 302397
3 Beiträge
Umwandeln xls in txt
baronf

Guten Morgen,
ich habe folgendes Problem - eine Exceldatei besteht aus drei Spalten - diese Einträge sollen als in eine Text-datei - die Datensätze durch ein Semikolon getrennt werden! Die Textdatei soll als Datenimport genutzt werden.
Wie kann ich eine TXT-Datei schaffen - nur üner ein...
20.12.2006 09:18:15
Thread-ID: 830996
5 Beiträge
TXT Datei in UTF8 umwandeln
UweD
Hallo
Momentan habe ich diese Ausgangssituation.
Auf einem Serverlaufwerk liegt eine Datei : \\Server\Verz\TT\Datei.TXT
Diese öffne ich durch Doppelklick in Notepad um dann "Speichern unter" mit Codierung UTF-8 in C:\Temp\NeuerName.txt zu speichern.
Anschließend wird die Neue Datei...
31.03.2021 11:50:45
Thread-ID: 1823508
3 Beiträge
Umwandeln Benutzerdefinierte Zellen in Z
Markus
Hallo Forum,
ich möchte eine benutzerdefinierte Formatierung "123 4567 000" kopieren und als Gesamtzahl in die neue Zelle einfügen. Zur Zeit gebe ich in diese Zellen nur die letzten drei Ziffern einer Nummer ein, möchte aber die Gesamtzahl in eine neue Zelle einfügen. Vielen Dank für Euer Schwar...
14.07.2021 13:24:15
Thread-ID: 1839060
8 Beiträge
VBA-relativer Pfad
Manuel Walch
Hallo,

mit untenstehendem Befehl wird ein Bild auf einem relativen Pfad aufgerufen und in einem Bildfeld abgebildet:

ChDir ThisWorkbook.Path & "\"
Image1.Picture = LoadPicture("Dokumentenpool\Screenshots\PA5.1.jpg")

Das funktioniert aber nur, wenn die Datei auf einer Festp...
30.08.2003 17:00:05
Thread-ID: 302397
3 Beiträge

Beliebteste Forumthreads (12 Monate)

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