Voor alle gebruikers altijd opslaan op bureaublad!

[FvdF]

Beste forumleden,

Ik zoek een oplossing om een excel actief workbook op elke PC op het bureaublad op te slaan met een vastgestelde naam stelling in het bijgaande script.

Het huidige script werkt goed alleen moet dus op elk willekeurige pc ook werken! De uiteindelijke file TEST160112.txt moet dus altijd op elke willekeurige pc op het bureaublad komen.

=========
ActiveWorkbook.SaveAs Filename:="D:\@Mijn Documenten\Desktop\TEST" & Format(Datum, "yymmdd") & ".txt", _
FileFormat:=20, CreateBackup:=False
=========

Mvgr,
FvdF

 

[edmoor]

ActiveWorkbook.SaveAs Filename:=Environ("USERPROFILE")"\Desktop\TEST" & Format(Datum, "yymmdd") & ".txt", _
FileFormat:=20, CreateBackup:=False

 

[FvdF]

Ik krijg hierop een compileer fout

Verwacht: instructie einde

"\Desktop\TEST"

Grt,
FvdF

 

[edmoor]

Klopt, ik vergat het & teken
Environ("USERPROFILE") & "\Desktop\TEST"

 

[FvdF]

Beste Edmoor,

Het ziet er naar uit dat dit gaat werken, bedankt voor je snelle hulp.

:thumb:

Grt,
FvdF

 

[snb]

Het buroblad lijkt me darvoor niet bedoeld.

waarom niet gewoon in de documentendirectory ?

Sub M_snb()
  MsgBox CreateObject("wscript.shell").specialfolders(5)
End Sub

in plaats van het buroblad.

Sub M_snb()
  MsgBox CreateObject("wscript.shell").specialfolders(10)
End Sub

 

[HSV]

Ik meende dat desktop → specialfolders(4) is.

 

[snb]

@HSV

Omdat wscript.shell naar windows verwijst, en iedere windowsversie andere indexen gebruikt zul je het zelf even moeten testen voor W98SE, XP, Vista, W7, W8, W8.1, W10 etc.....

 

[HSV]

Zowel 4 als 10 geven hetzelfde resultaat.
Nu werk ik met W10, maar in W7 werkte specialfolders(4) idem dito.

Ik zal eens wat gaan zoeken waar de getallen naar verwijzen.

 

[snb]

Overzicht van Windows XP.


'1 C:\Documents and Settings\All Users.WINDOWS\Menu Start
'2 C:\Documents and Settings\All Users.WINDOWS\Menu Start\Programma's
'3 C:\Documents and Settings\All Users.WINDOWS\Menu Start\Programma's\Opstarten

'4 C:\Documents and Settings\snb\Bureaublad
'5 C:\Documents and Settings\snb\Application Data
'6 C:\Documents and Settings\snb\Netwerkprinteromgeving
'7 C:\Documents and Settings\snb\Sjablonen
'8 C:\WINDOWS\Fonts
'9 C:\Documents and Settings\snb\NetHood

'10 C:\Documents and Settings\snb\Bureaublad
'11 C:\Documents and Settings\snb\Menu Start
'12 C:\Documents and Settings\snb\SendTo
'13 C:\Documents and Settings\snb\Onlangs geopend
'14 C:\Documents and Settings\snb\Menu Start\Programma's\Opstarten
'15 C:\Documents and Settings\snb\Favorieten
'16 G:\
'17 C:\Documents and Settings\snb\Menu Start\Programma's

 

[HSV]

Zo ziet het er bij mij uit in W10.

1   C:\ProgramData\Microsoft\Windows\Start Menu
2   C:\ProgramData\Microsoft\Windows\Start Menu\Programs   
3   C:\ProgramData\Microsoft\Windows\StartMenu\Programs\StartUp 
4   C:\Users\HSV\Desktop   
5   C:\Users\HSV\AppData\Roaming 
6   C:\Users\HSV\AppData\Roaming\Microsoft\Windows\PrinterShortcuts    
7   C:\Users\HSV\AppData\Roaming\Microsoft\Windows\Templates 
8   C:\Windows\Fonts 
9   C:\Users\HSV\AppData\Roaming\Microsoft\Windows\NetworkShortcuts 
10   C:\Users\HSV\Desktop    
11   C:\Users\HSV\AppData\Roaming\Microsoft\Windows\Start Menu 
12   C:\Users\HSV\AppData\Roaming\Microsoft\Windows\SendTo    
13   C:\Users\HSV\AppData\Roaming\Microsoft\Windows\Recent 
14   C:\Users\HSV\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup 
15   C:\Users\HSV\Favorites    
16    C:\Users\HSV\Documents 
17   C:\Users\HSV\AppData\Roaming\Microsoft\Windows\Start Menu\Programs