Avatar billede kindk Nybegynder
28. januar 2003 - 01:02 Der er 3 kommentarer og
2 løsninger

VBA eller macroer i Excel. If exist goto ...

Hej alle eksperter.

Jeg kunne rigtig godt bruge en hjæpende hånd til en lille funktion Excell.

Det går ud på jeg ønsker at checke om der ligger en fil på et bestemt drev, hvis der ikke gør det skal den åbne et ark, hvis den eksisterer åbnes et andet.

Lidt ála de gode gamle dos dage, hvor man i en simpel .bat fil kunne skrive nogen i denne stil:

if exist c:\temp\tempark.xls goto ok

:fejl
c:\temp\fejlark.xls
goto quit

:ok
c:\temp\tempark.xls

:quit



Kan man dette?
Avatar billede jkrons Professor
28. januar 2003 - 08:58 #1
Her er en primitiv måde at gøre det på. Jeg ved det kan gøres mere elegant, men jeg kan bare ikke lige huske det i hovedet, og jeg har ikke adgang til Excel herfra.

Sub TestForFil()
On Error GoTo erha
    Workbooks.Open FileName:="C:\Dokumenter\Jan2.xls"
    ActiveWorkbook.Close
    'do something
erha:
    If Err.Number = 1004 Then
        'do something else
    End If

End Sub
Avatar billede Slettet bruger
28. januar 2003 - 08:59 #2
Prøv denne her:

---------------------
Public Sub openFile()

Dim soegeFil As String

soegeFil = Dir("F:\WIN.INI")

If soegeFil = "" Then
    Workbooks.Open ("C:\fejl.xls")
Else
    Workbooks.Open ("C:\ok.xls")
End If

End Sub
----------------

Den skal indsættes i et kodemodul i Excel.
Avatar billede kindk Nybegynder
28. januar 2003 - 13:24 #3
Tak for jeres svar.
Et lille tillægsspørgsmål.

Hvordan tildeler man en variabel fra en celle.


Pft
Avatar billede Slettet bruger
28. januar 2003 - 13:34 #4
Eksempel:

Dim testVar
testvar = [A1]
Avatar billede kindk Nybegynder
28. januar 2003 - 20:09 #5
I er simpelthen for seje!
Blackadder dine svar virkede. Tak for hjælpen!
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
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

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