VB åben .xls

Private Sub CommandButton1_Click()
    If Not WB_Loaded("G:\X\X.xls") Then
        Workbooks.Open "G:\X\X.xls"
    Else
        Windows("X.xls").Activate
    End If
End Sub

Public Function WB_Loaded(WB) As Boolean
    Dim W As Workbook
    For Each W In Workbooks
        If W.Name = WB Then
            WB_Loaded = True
            Exit Function
        End If
    Next W
    WB_Loaded = False
End Function

et svar

nej åbner det selv om det er åbnet.

åben "X" men hvis "X" er True skal den aktivere den og hvis den ikke er skal den åbne den og aktivere den...

mappe 2 er den som den skal åbne hvis den ikke er åben.
Dim i, o, p As Integer
Dim arr(4 To 300, 1) As Variant

Windows("Mappe2.xls").Activate

For i = 4 To 300
    arr(i, 0) = Sheets("Ark2").Cells(i, 1).Value
    arr(i, 1) = Sheets("Ark2").Cells(i, 11).Value
Next i


Windows("Mappe1.xls").Activate

For o = 3 To 76
    For p = 4 To 300
        If Sheets("Ark1").Cells(o, 3).Value = arr(p, 0) Then
            Sheets("Ark1").Cells(o, 5) = arr(p, 1)
            Exit For
        End If
    Next p
Next o

kabbaks forslag fungerer fint hvis du ændrer linien:

    If Not WB_Loaded("G:\X\X.xls") Then

til
    If Not WB_Loaded("X.xls") Then

Hans funktion checker på mappenavnet - W.Name - og ikke på stien.

jeps, brynil.
alternativt

On Error Resume Next
Workbooks("mappe2.xls").Activate
If Err.Number <> 0 Then Workbooks.Open "c:\mappe2.xls"

Og hvis jeg lige stjæler bak's forslag, som er det korteste, til dit spm http://www.eksperten.dk/spm/718397, så kan du klare dig med:

Dim i, o, p As Integer
Dim arr(4 To 300, 1) As Variant

Application.ScreenUpdating = False

On Error Resume Next
Workbooks("mappe2.xls").Activate
If Err.Number <> 0 Then Workbooks.Open "C:\Mappe2.xls"

For i = 4 To 300
    arr(i, 0) = Sheets("Ark2").Cells(i, 1).Value
    arr(i, 1) = Sheets("Ark2").Cells(i, 11).Value
Next i
   
ActiveWorkbook.Close

Windows("Mappe1.xls").Activate

For o = 3 To 76
    For p = 4 To 300
        If Sheets("Ark1").Cells(o, 3).Value = arr(p, 0) Then
            Sheets("Ark1").Cells(o, 5) = arr(p, 1)
            Exit For
        End If
    Next p
Next o
   
Application.ScreenUpdating = True

svar til bak. brynil du har på det første spørgsmål

Humm