s1!a1 de yazan çalışma kitabını aç

[hsayar]

deneme isimli bir çalışma kitabım onun içindede sayfa1 isimli çalışma sayfam var
a1 hücresindede hsayar yazıyor diyelim.

Dosya Yolu = c:\test\
(Sayfa1 in olduğu dosya yolu, mesala dosyayı açmak için c:\test\deneme.xls kullanıyorsak dosya yolumuzda c:\test\ olacaktır)
Dosya Adı = hsayar.xls (a1 hücresinde sadece hsayar yazıyor .xls yi biz ekleyeceğiz.)

Şimdi bir command buton ile dosya yolu\dosyaadını Aç demek için nasıl bir makro yazılmalıdır.

eğer o isme sahip dosya yok ise nasıl hata mesajı alınır

yani bu işlem ama değişkenlere bağlanacak

    Workbooks.Open Filename:="C:\Documents and Settings\xx\Belgelerim\www.xls"

 

[Orion1]

Aşağıdaki kodları deneyiniz.

Sub dosya_ac()
On Error GoTo yok
Dim yol, dosya As String
yol = "C:\Test\"
dosya = Sheets("Sayfa1").Range("A1").Value & ".xls"
Workbooks.Open (yol & dosya)
Exit Sub
yok:
MsgBox "Dosya Bulunamdı"
End Sub

 

[hsayar]

hocam hızınız için teşekkür ederim bu elbette çözüm olacaktır ama dosya yolunu
Aktif çalışam kitabı hangi klasörde ise o olsun
yani
c:\test te ise c:\test yok
c:\test\1 de ise c:\test\1 gibi

bu arada goto yu kullanmayıda kavradım

 

[Orion1]

Kodlarınızdaki yol kodunu kırmızı şaretlediğim yol kodu ile değiştirp deneyiniz.
Sub dosya_ac()
On Error GoTo yok
Dim yol, dosya As String
yol = ThisWorkbook.Path & "\"
dosya = Sheets("Sayfa1").Range("A1").Value & ".xls"
Workbooks.Open (yol & dosya)
Exit Sub
yok:
MsgBox "Dosya Bulunamdı"
End Sub

 

[hsayar]

Kodlarınızdaki yol kodunu kırmızı şaretlediğim yol kodu ile değiştirp deneyiniz.
Sub dosya_ac()
On Error GoTo yok
Dim yol, dosya As String
yol = ThisWorkbook.Path & "\"
dosya = Sheets("Sayfa1").Range("A1").Value & ".xls"
Workbooks.Open (yol & dosya)
Exit Sub
yok:
MsgBox "Dosya Bulunamdı"
End Sub

BU hali tamamdır hocam teşekkür ederim.

 

[Orion1]

BU hali tamamdır hocam teşekkür ederim.

Rica ederim.
İyi çalışmalar.

 

[hsayar]

Buda benden yoksa oluştur

Sub dosya_ac()
Dim s1 As Worksheet, s2 As Worksheet, s3 As Worksheet
Set s1 = Sheets("günlük")
Set s2 = Sheets("tsb")
Set s3 = Sheets("devirler")
Set s4 = Sheets("Aylık")
a = WorksheetFunction.Text(s1.Cells(1, 1), "ddmmyy")
b = WorksheetFunction.Text(s1.Cells(1, 1), "mmyyyy")
MsgBox a & "/" & b


On Error GoTo yok                                   ' yok işlemine gider
Dim yol, dosya As String                            'Değişkenler
'yol = "C:\Test\"                                   ' Sabit ise Açılacak kitabın Yolunun yazılı olduğu hücre bilgileri
yol = ThisWorkbook.Path & "\"                       ' mevcut çalışma kitabının olduğu yol
'dosya = Sheets("Sayfa1").Range("A1").Value & ".xls" 'Açılacak kitabın adının yazılı olduğu hücre bilgileri
dosya = b                                           ' Başka bir değişkenden alıyorsanız
Workbooks.Open (yol & dosya)                        'Çalışma kitabını Aç
Exit Sub                                            'İşlemden çık
yok:                                                'Yok İşlemi
MsgBox "Dosya Bulunamdı"                            'Olmadığına dair mesaj gönder
'yoksa oluştur
    Workbooks.Add
    ChDir yol
    ActiveWorkbook.SaveAs Filename:= _
        yol & dosya, FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
End Sub                                             'İşlemmi bitir.

 

[baydeniro]

Paylaşım İçin Teşekkürler

Sayın orion2, yol = ThisWorkbook.Path & "\" satırındaki .Path'in işlevi nedir ?

 

[Orion1]

Sayın orion2, yol = ThisWorkbook.Path & "\" satırındaki .Path'in işlevi nedir ?

Dosyanın bulunduğu klasörün yolunu verir.

msgbox ThisWorkbook.Path

yazarak deneyebilirsiniz.

 

[baydeniro]

Teşekkürler

Sayın orion2, açıklama için teşekkür ederim. Şimdi anladım. Sağlıcakla kalın.