Avatar billede jklausen Juniormester
30. marts 2007 - 21:02 Der er 10 kommentarer og
1 løsning

gemme regneark m. makro

Jeg gemmer et regneark med:

ActiveWorkbook.SaveAs Range("b18").Value & ".xls"

hvor cellen b18 angiver stedet hvor filen skal gemmes f.eks (c:\test.xls)
Det virker fint, men næste gang jeg vil gemme findes filen, og her virker det også fint hvis jeg vil overskrive, men hvis jeg vælger cancel eller no fås vbs-fejl.
Hvordan kan jeg slippe af med denne fejlmedd. og blot skippe makroen hvis cancel eller no vælges?
Avatar billede excelent Ekspert
30. marts 2007 - 21:10 #1
On Error Resume Next
ActiveWorkbook.SaveAs Range("b18").Value & ".xls"
Avatar billede jklausen Juniormester
30. marts 2007 - 21:30 #2
super, send lige et svar
Avatar billede jklausen Juniormester
30. marts 2007 - 21:31 #3
jeg mener: super Mr. excelent, send lige et svar!
Avatar billede excelent Ekspert
30. marts 2007 - 21:32 #4
lol :-) velbekom
Avatar billede jklausen Juniormester
30. marts 2007 - 21:37 #5
Jeg tror lige der skal lidt mere på for næste linie fortæller jo at filen er gemt - hvordan klare vi det?
Hvis vi annulere skal den bare hoppe ud, hvis vi gemmer skal den vise boxen.

On Error Resume Next
ActiveWorkbook.SaveAs Range("b18").Value & ".xls"
MsgBox "Filen er nu gemt", vbOKOnly, "Information!"
Avatar billede jklausen Juniormester
30. marts 2007 - 21:41 #6
jeg ville gætte på:
on Error end sub
men det virker ikke!
Avatar billede excelent Ekspert
30. marts 2007 - 21:53 #7
fx.

On Error GoTo om
ActiveWorkbook.SaveAs Range("A1").Value & ".xls"
MsgBox "Filen er nu gemt", vbOKOnly, "Information!"
om:
Avatar billede jklausen Juniormester
30. marts 2007 - 22:03 #8
dur ikke, den går til om: hver gang?
Avatar billede excelent Ekspert
30. marts 2007 - 22:07 #9
virker ok her - må jeg se din kode
Avatar billede jklausen Juniormester
30. marts 2007 - 22:14 #10
Ok, så har jeg lige fundet fejlen jeg kopierede dit indslag og fik dermed A1 og ikke b18 !!!
så den del er ok. Mange tak.


Sub Macro5()
'
' Macro5 Macro


On Error GoTo om
ActiveWorkbook.SaveAs Range("A1").Value & ".xls"
MsgBox "Filen er nu gemt", vbOKOnly, "Information!"

om:
MsgBox "Filen er om", vbOKOnly, "Information!"


End Sub
Avatar billede excelent Ekspert
30. marts 2007 - 22:19 #11
ups ja det var en smutter :-)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester