CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

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?

Synes godt om

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

Synes godt om

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.

Synes godt om

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

Synes godt om

Slettet bruger

28. januar 2003 - 13:34 #4

Eksempel:

Dim testVar
testvar = [A1]

Synes godt om

kindk Nybegynder

28. januar 2003 - 20:09 #5

I er simpelthen for seje!
Blackadder dine svar virkede. Tak for hjælpen!

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Se alle it-kurser fra Computerworld Kurser

IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Se alle it-kurser

Flere spørgsmål fra Office & Kontorpakker kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
2 pc-er med fælles folder på onedrive Af KurtG i Office & Kontorpakker	2	22/07/202417:17	23/07/202410:40
Microsoft booke mødelokale UDEN mig selv. Af Jørgen Kirkegaard i Office & Kontorpakker	1	15/07/202410:10	15/07/202417:40
Outlook -hyppighed for synkronisering POP3-konto Af Bård Jensen i Office & Kontorpakker	3	12/06/202420:40	13/06/202413:34
Aomei Backupper pro til Outlook Af barth i Office & Kontorpakker	2	30/05/202414:59	30/05/202420:33
Print tosidet opslag til pdf fra Publisher Af KurtG i Office & Kontorpakker	13	27/05/202413:20	29/05/202409:36

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS