Print side | Luk vindue

Saveas virker ikke i Windows 7

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=388
Udskrevet den: 24.Maj.2024 kl. 14:45


Emne: Saveas virker ikke i Windows 7
Besked fra: rassten
Emne: Saveas virker ikke i Windows 7
Posteringsdato: 03.Jul.2011 kl. 13:50
ActiveWorkbook.SaveAs Filename:="C:\ og navnet på arket 

virker fint på en XP, men hvis jeg prøver det samme på en windows 7,
får jeg en fejl besked om at dette ikke kan gøres uden administrator rettigheder.
Jeg har brug for at kunne gemme en fil et sted, så den ikke umiddelbar ses af brugeren.
Men således at makroen kan køres under både xp og 7, samt på dansk og engelsk(us)sporget computere
Har tænkt på at gemme filen sammen sted som original arket, men usynligt eller samme sted
men i en usynlig mappe. Men det kan jeg ikke finde ud af i VBA.

For at opsummer, jeg kan ikke gemme en fil i roden af C-drev


-------------
VH rassten

Arbejde excel 2010
Privat excel 2010



Svar:
Besked fra: Allan
Posteringsdato: 03.Jul.2011 kl. 14:47
Hej rassten,
 
Jeg har haft samme udfordringer, Windows Vista og Windows 7 har skruet lidt op for sikkerheden, gad nok vide af hvilken grund...
 
Jeg ved ikke om det er godt nok, men du kan jo oprette en mappe, det må man nemlig godt Tongue
 
Jeg ville gøre således:
 
If Len(Dir("c:\rassten", vbDirectory)) = 0 Then MkDir "c:\rassten"
ActiveWorkbook.SaveAs Filename:="C:\rassten\test.xls"
 
//Allan


Besked fra: rassten
Posteringsdato: 03.Jul.2011 kl. 15:21
Hej Allan,

En stor tak for  hjælpen, det virker!
Var ved at blive en smule frustreret over min nye computer.

Venlig  hilsen
Rassten


-------------
VH rassten

Arbejde excel 2010
Privat excel 2010


Besked fra: Allan
Posteringsdato: 03.Jul.2011 kl. 15:54
Hej Rassten,
 
Velbekomme.
Jeg kan godt forstå din frustration , jeg røg som sagt også i med begge ben.LOL
 
//Allan
 



Print side | Luk vindue