Avatar billede h_s Forsker
09. august 2007 - 19:45 Der er 2 kommentarer og
1 løsning

Msg hvis fil ikke findes

Her er et brudstykke af en makro:

If objWB Is Nothing Then
            Set objWB = Workbooks.Open(Filename:=strFilename, ReadOnly:=True)
End If

Den åbner filen objWB hvis den ikke er åben i forvejen.

Jeg mangler et makrostykke der giver besked, hvis filen ikke findes. ObjWB = Stamdata.xls

Håber I kan hjælpe!
Avatar billede kabbak Professor
09. august 2007 - 22:03 #1
denne er efter hukommelsen, så ingen garenti. ;-))

If objWB Is Nothing Then
if dir(strFilename) <> "" then
            Set objWB = Workbooks.Open(Filename:=strFilename, ReadOnly:=True)
else
msgbox strFilename & " eksisterer ikke"
end if
End If
Avatar billede h_s Forsker
09. august 2007 - 23:31 #2
God hukommelse - Det virker:-)
Smid et svar - Tak for hjælpen!
Avatar billede kabbak Professor
09. august 2007 - 23:55 #3
et svar ;-))
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