"şu" isimde bir dosya var ise aç,yok ise filan adrese...

[takoo]

merhaba ustalar.
"şu" isimde bir dosya var ise onu aç, eğer yok ise filanca adrese(bu adres öyle olmalı ki; başka bir bilgisayarda da işlesin,yolu bulamamazlık yapmasın.örneğin ben şöyle bir adres belirlemiştim "C:\Users\ÇAĞDAŞ İNTERNET\Desktop\Yeni Klasör\" ,başka bir bilgisayarda ÇAĞDAŞ İNTERNET diye biradres olmadığı için hata verdi) yine aynı isimde bir dosya ekle ve onu aç. bunu nasıl ifade edebiliriz diye soracaktım.

kusura bakmazsanız bir sorum daha olacaktı.aslında bu önemli bi konu programlama ile uğraşanların şu küçük ayrıntıyı bilmesi lazım. neyse fazla uzattım; bir nesnenin bulunduğu hali nasıl ifade edebiliriz?mesela
Document.Open FileName:="t1.doc" bu, dosyayı açar. benim öğre3nmek istediğim bahsedilen dosyanın açık veya kapalı olma durumu.yani t1.doc açık mı? eğer açık ise .....gibi

 

[N.Ziya Hiçdurmaz]

Belirtilen dosyanın açık olup olmadığına bakar açık değilse açar

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("C:\test.xls") Then
Workbooks.Open "C:\test.xls"
End If
End Sub