29. august 2006 - 11:32Der er
5 kommentarer og 1 løsning
VBA: Fejlbesked ved Annulering af gem
Hejsa.
Jeg har en forholdsvis stor makro, som hver gang køres når der gemmes eller printes.
Det er et ark jeg bruger til arbejdet, som bruger det i produktionen, og der bruget et dokument pr. skift.
Den gemmer selv på serveren, udfra nogle præ-definerede værdier + variabler. Mit spørgsmål er så, kan man, hvis der gemmes ved en fejl, altså under samme filnavn, få den til selv at sætte ex "_2" bagved ?
Hov... Problemet ligger også i , at når jeg har sat Application.DisplayAlerts til True, og der ligger en fil i forvejen, og jeg så trykker på "Nej" Eller "Annuler", så kommer der bagefter en msgbox hvor der kun står "400" i.
Public Sub GEM() Dim Sti As String, I As Integer, strSaveQF25 As String, A As String Sti = "C:\data\" strSaveQF25 = "Test" A = Dir(Sti & strSaveQF25 & ".xls") If A = "" Then ActiveWorkbook.SaveAs Sti & strSaveQF25 Else For I = 1 To 10 A = Dir(Sti & strSaveQF25 & "_" & I & ".xls") If A = "" Then ActiveWorkbook.SaveAs Sti & strSaveQF25 & "_" & I Exit For End If Next End If End Sub
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.
