[Yardım]  Dosya Yolunu Açamama Hatası

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Dosya Yolunu Açamama Hatası

İleti#1)  erseldemirel2 » 12 Tem 2019 00:04

Arkadaşlar; bilgisayarımdaki excel dosyam makro ile iş yeri sunucudaki başka bir bilgisayardaki excel dosyasını açmalı.

Workbooks.Open "/fileserver/deneme/deneme.xls"

Ancak benim bilgisayarımın fileserver sunucu daki deneme klasörüne erişim izni yoksa excel bu yola erişemediği için bu deneme.xls dosyasını doğal olarak açamayacaktır. Böyle birşey olunca run time hatası alıyorum. Bunun yerine excel dosyası yetkim olmadığı için açamassa; bana msgbox ile “erişim izniniz yok sistem yöneticinizle görüşün” gibi uyarı verebilirmi? Run time verip çökmesini istemiyorum. Aşağıdaki çözüm yolu olabilir ama On error goto dışında önerileriniz varmıdır?

On error goto hata:
‘Kodlarım
Hata:
Msgbox “.....”
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 485
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Dosya Yolunu Açamama Hatası

İleti#2)  Ali ÖZ » 12 Tem 2019 07:37

\\fileserver\deneme\deneme.xls
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9888
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: Dosya Yolunu Açamama Hatası

İleti#3)  erseldemirel2 » 12 Tem 2019 13:09

Ali ÖZ yazdı:\\fileserver\deneme\deneme.xls



Sorum anlaşılmamış olabilir. Dosya yoluna ulaşmakda sorunum yok. Ancak bana yasaklanırsa dosya yolu bir uyarı vermesini istiyorum excel in
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 485
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Dosya Yolunu Açamama Hatası

İleti#4)  ahmetilhan282 » 12 Tem 2019 21:50

Kod: Tümünü seç
Sub deneme()
    Dim dosya As String, fso As Object
    dosya = "//fileserver/deneme/deneme.xls"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(dosya) = True Then
        Workbooks.Open dosya
    Else
        MsgBox "Dosyayı açma yetkiniz yok!", vbCritical, "HATA"
    End If
    Set fso = Nothing
End Sub
Kullanıcı avatarı
ahmetilhan282
Site Dostu
 
Adı Soyadı:Ahmet İLHAN
Kayıt: 15 Oca 2014 00:04
Konum: Adana
Meslek: Güvenlik
Yaş: 29
İleti: 873
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Mersin

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: Dosya Yolunu Açamama Hatası

İleti#5)  erseldemirel2 » 12 Tem 2019 22:08

ahmetilhan282 yazdı:
Kod: Tümünü seç
Sub deneme()
    Dim dosya As String, fso As Object
    dosya = "//fileserver/deneme/deneme.xls"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If fso.FileExists(dosya) = True Then
        Workbooks.Open dosya
    Else
        MsgBox "Dosyayı açma yetkiniz yok!", vbCritical, "HATA"
    End If
    Set fso = Nothing
End Sub



Çok güzel bir çözüm oldu elinize sağlık. ;)
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Siteye Alışmış
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 485
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot], Google [Bot] ve 0 misafir

Bumerang - Yazarkafe