dosya yolu

[Barons]

Merhaba
2 adet excel dosyam var ve birinden diğerini (a.xlsb dosyasını) açmak istiyorum.
Dosya yolunu direk yazınca a.xlsb dosyasını açabiliyorum ancak bu 2 dosyayı başka bir klasör içine koyup klasörün yerini değiştirdiğimde yolu bulamıyor.

Kullandığım kod:

Sub ac ()

Workbooks.Open Dosya Adı: = ActiveWorkbook.Path & "a.xlsb"

End sub

Amacım: klasör bilgisayar içinde nereye kopyalarsam orada açmasını istiyorum.
Teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Sub Dosya_Ac()
    Workbooks.Open ActiveWorkbook.Path & Application.PathSeparator & "a.xlsb"
End Sub

 

[Tevfik_Kursun]

Alternatif olsun
Workbooks.Open Dosya Adı: = ActiveWorkbook.Path & "\a.xlsb"
iyi çalışmalar

 

[Barons]

teşekkürler...her2 kodu VBA module yazarken Dosya Adı yerine ady yazıyor ve hata veriyor burada..klavyeden düzeltemedim...çok ilginç

 

[Barons]

tamam hallettim ve çalışıyor..tekrar çok teşekkür ederim.

 

[Barons]

merhaba
Aşağıdaki ses dosyasının yolunuda aynı şekilde nasıl düzeltebiliriz?


Sub ses()
Call sndPlaySound32("C:\ClickUp.wav", 1)
End Sub

 

[Korhan Ayhan]

Ses dosyası nerede bulunuyor?

 

[Barons]

ses dosyasıda a.xlsb dosyasının olduğu klasörde bulunuyor. "Workbooks.Open Dosya Adı: = ActiveWorkbook.Path & "\a.xlsb" "

 

[Korhan Ayhan]

Deneyiniz.

Sub Ses()
    Call sndPlaySound32(ActiveWorkbook.Path & "\ClickUp.wav", 1)
End Sub

 

[Barons]

çok teşekkürler Korhan bey

 

[Barons]

Korhan bey kodu direk yazdım ama kırmızı oldu ve hata veriyor.
Hata yazısı aşağıdadır;
compile error:
Expected:list separator or )

hatası veriyor...parantez yada çift tırnak hatası sanırım...

 

[Barons]

wav sonundaki tırnağı kaldırınca kırmızı renk siyaha dönüştü ama tıklayınca bu seferde runtime 424 hatası veriyor.Obje gerekli diyor

 

[Korhan Ayhan]

#2 ve #9 nolu mesajımdaki kodları revize ettim. Son hallerini deneyiniz. Ben ikisini de test ettim. Olumlu sonuç aldım.

 

[Barons]

Tamamdır Korhan bey teşekkürler...sorunsuz çalışıyor...elinize sağlık