28. januar 2003 - 01:02Der 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:
Hos Computerworld it-jobbank er vi stolte af at fortsætte det gode partnerskab med folkene bag IT-DAY – efter vores mening Danmarks bedste karrieremesse for unge og erfarne it-kandidater.
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
I er simpelthen for seje! Blackadder dine svar virkede. Tak for hjælpen!
Synes godt om
Ny brugerNybegynder
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.
