Dosya Açık Değilse Başka Dosyayı Aç Makrosu

[baydeniro]

Merhaba arkadaşlar. Aşağıdaki makroyu şu işlemi yapacak şekilde oluşturamadım.

Parolası QW olan SATIS dosyasını aç, eğer açık değilse/açılmamış ise SIPARIS dosyasını aç.



Sub AC ()

Workbooks.Open Filename:="C:\SATIS.Xls", Password:=("QW"),
If C:\SATIS açık değilse Then
Workbooks.Open Filename:="C:\SIPARIS.Xls"

End Sub

 

[Huseyinkis]

Function WorkbookOpen(WorkBookName As String) As Boolean
WorkbookOpen = False
On Error GoTo WorkBookNotOpen
If Len(Application.Workbooks(WorkBookName).Name) > 0 Then
WorkbookOpen = True
Exit Function
End If
WorkBookNotOpen:
End Function
--------------------------------------------------------
Sub AA()
If Not WorkbookOpen("SATIŞ.xls") Then
Workbooks.Open "C:\SIPARIS.Xls"
End If
End Sub

 

[hamitcan]

Alternatif;

Sub IsWorkBookOpen()
''''''''''''''''''''''''''''''''''''''''''
'Written by www.ozgrid.com
'Test to see if a Workbook is open.
''''''''''''''''''''''''''''''''''''''''''
Dim wBook As Workbook
    On Error Resume Next
    Set wBook = Workbooks("C:\SATIS.Xls")
        If wBook Is Nothing Then 'Not open
            MsgBox "Dosya açık değil", _
            vbCritical, "OzGrid.com"
            Workbooks.Open Filename:="C:\SIPARIS.Xls"
            Set wBook = Nothing
            On Error GoTo 0
        End If
End Sub

 

[Levent Menteşoğlu]

Aşağıdaki linkide incelemenizi öneririm.

http://www.excel.web.tr/f48/acyk-dosya-hk-t62069.html

 

[baydeniro]

Sayın üstadlar hepinize çok teşekkür ederim. Sayenize yeni ufuklara yelken açıyorum. Sağolun varolun, sağlıcakla kalın.

 

[baydeniro]

gerçekten çok teşekkür ederim.