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

Pfad "Eigene Dateien" auslesen

Forumthread: Pfad "Eigene Dateien" auslesen

Pfad "Eigene Dateien" auslesen
10.03.2008 13:49:43
Vera
Hallo liebe Excelfreunde,
wie bekommt man mittels VBA heraus wo sich das Verzeichnis "Eigene Dateien" befindet?
Manche Anwender haben ja ihr Homeverzeichnis nach 'irgendwohin' verschoben.
Liebe Grüße
Vera

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Pfad "Eigene Dateien" auslesen
10.03.2008 14:45:11
Case
Hallo,
probier mal:

Option Explicit
Private Declare Function SHGetFolderPath Lib "shfolder" Alias "SHGetFolderPathA" _
(ByVal hWndOwner As Long, _
ByVal Folder As Long, _
ByVal hToken As Long, _
ByVal Flags As Long, _
ByVal strPath As String) As Long
Private Const SHGFP_TYPE_CURRENT As Long = 0&
Private Const MAX_PATH As Long = 260&
Public Enum CSIDLS
CSIDL_PERSONAL = &H5&
End Enum
Public Sub Eigene()
MsgBox GetSpecialFolder(CSIDL_PERSONAL)
End Sub
Public Function GetSpecialFolder(ByVal CSIDL As CSIDLS) As String
Dim sPath As String
Dim RetVal As Long
Dim lFlags As Long
sPath = Space$(MAX_PATH)
lFlags = CSIDL
RetVal = SHGetFolderPath(0, lFlags, 0, SHGFP_TYPE_CURRENT, sPath)
GetSpecialFolder = Left$(sPath, InStr(1, sPath, vbNullChar) - 1)
End Function



Servus
Case

Anzeige
AW: Pfad "Eigene Dateien" auslesen
10.03.2008 15:50:13
volti
Hallo Case,
m.E. ist da ein Fehler drin und muss statt
Public Function GetSpecialFolder(ByVal CSIDL As CSIDLS) As String
so heißen:
Public Function GetSpecialFolder(ByVal CSIDL As LONG) As String
CSIDLS ist kein gültiger TYPE.
viele Grüße
Karl-Heinz

AW: Pfad "Eigene Dateien" auslesen
10.03.2008 21:07:00
Vera
Dankeschön! - Ja, das war's
Liebe Grüße
Vera

Anzeige
AW: Pfad "Eigene Dateien" auslesen
10.03.2008 22:11:00
Case
Hallo, Karl-Heinz,
JOU - Du hast recht. Hätte ich mal nach dem kopieren testen sollen. :-)
Servus
Case
;

Forumthreads zu verwandten Themen

Pfad zu Eigene Dateien auslesen
Jogy

Hallo zusammen.
Bei uns liegen die Eigenen Dateien auf einem Netzlaufwerk und können daher nicht mit der Environ Funktion ausgelesen werden.
Über einen Shell Befehl kann ich nun natürlich den entsprechenden Registry Eintrag lesen:
call shell("cmd.exe /c REG QUERY ""HKCU\Software\Mic...
18.03.2009 09:05:11
Thread-ID: 1061276
5 Beiträge
Anzeige
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
VBA Datei speichern gleich wieder öffnen
Timonski

Servus
ich habe eine Exceldatei mit viel VBA und bei einem Tabellenblatt wird die Datei sehr langsam,
dann speicher ich und lad sie gleich wieder...
und diesen Befehl würde ich gern als Icon in der Symbolleiste hinterlegen...
hätte mir da einer einen Vorschlag?
vielen Dank
21.10.2009 09:36:11
Thread-ID: 1110986
4 Beiträge
Alle xls Dateien öffnen
Klaus

Hallo zusammen
Ich möchte alle Exceldateien in einem Verzeichnis nacheinander öffnen, dort per Makro (ist vorhanden) Zeilen und Formeln einfügen, speichern und schliessen.
Danke für Eure Hilfe
29.10.2009 14:45:17
Thread-ID: 1113068
3 Beiträge
Mit VBA Datei auf Server öffnen
egon.kernien@online.de

Hallo Experten!
Ich lasse mit diesem Code eine Exceldatei pda.xls die auf einem Server liegt so öffnen, Daten aus einer Tabelle lesen-kopieren, schliessen.:
ChDir Pfad
strFile = Application.GetOpenFilename
If strFile = "Falsch" Then Exit Sub
Set wbSource = Workbooks.Open(Fi...
03.12.2009 11:32:17
Thread-ID: 1121538
3 Beiträge
XLS Datei versteckt öffnen, GetObject?
Holger

Hallo,
ich öffne während der Laufzeit meines Makros eine Excel Datei, aus der ich Daten auslese.
Das Problem ist, dass automatisch auf die neue Datei der Fokus gelegt wird und das möchte ich nicht.
Ich habe etwas von GetObject gelesen, weiß aber die genaue Anwenung nicht.
Wie ka...
19.10.2010 08:33:05
Thread-ID: 1182989
23 Beiträge
xls-Datei 2003 mit Excel 2010 öffnen
Peter

Guten Abend
Ich habe eine Excel-Datei, die mit Excel 2003 erstellt wurde und Makros enthält. Ich möchte diese neu unter Excel 2010 bearbeiten.
Obwohl ich den Speicherort im Vertrauenscenter als vertrauenswürdiger Ort definiert habe, klappt das nicht.
Ich öffne die Datei mit 2010 und...
08.12.2010 22:55:29
Thread-ID: 1190694
7 Beiträge
Anzeige
vba Datei öffnen, Erweiterung unbekannt
Daniel

Hallo VBA - Experten,
Wie öffne ich in vba eine Exceldatei, ohne dass ich die Dateierweiterung kenne? Mein Problem: ich habe ein Makro erhalten, welches Dateien im Excel 2003 - Format öffnet. Das Öffnen sollte auch funktionieren, wenn die Dateien in einem neueren Format mit anderer Erweiter...
09.04.2011 16:16:22
Thread-ID: 1209733
4 Beiträge
Best. xls-datei in neuer Instanz öffnen - m. User
Jonathan

Hallo liebe Experten,
ich benötige für folgendes Problem eure Unterstützung:
Ich habe eine xls-Datei welche auf einem Netzlaufwerk liegt und worauf einige Leute zugriff haben.
Wird die Datei geöffnet wird über Workbook_open ein Makro ausgeführt und eine UserForm geöffnet.
Soweit...
06.05.2011 18:03:15
Thread-ID: 1213294
2 Beiträge
Anzeige
PDF Dateien öffnen für Excel BS Vista
ropa

Hallo,
wir haben einen Laptop mit dem BS Vista.
Ich muß mit diesem des öfteren aus dem Internet PDF Dateien öffnen um Daten für Excel zu bekommen.
Wenn ich jetzt mit Firefox eine PDF Datei anklicke dann wird diese nicht geöffnet. Das speichern funktioniert jedoch aber das möchte ich...
27.06.2011 11:57:32
Thread-ID: 1219852
2 Beiträge
Öffnen einer Datei per VBA
Christian

Hallo Forum,
ich möchte per VBA eine Datei öffnem, deren Pfad und Namen als Text in einer Zelle steht.
in A1 steht "D:\test.xls"
dann will ich im Macro den Befehl:
Datei$ = Cells(1, 1).Select
verwenden, um den Namen in der Variablen Datei$ zu speichern.
Das geht nicht....
18.08.2011 12:48:10
Thread-ID: 1226611
4 Beiträge
PDF-Datei öffnen
Lars

Hallo
bisher habe ich mit dem Code:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hwnd As Long, ByVal lpOperation As String, _ ByVal lpFile As String, ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long S...
06.09.2011 20:32:44
Thread-ID: 1228841
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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