D bölümü bölümü olmayan bilgisayarda da çalışması?

[mars2]

İyi Akşamlar;
Tabloma D bölümündeki takip klasöründen veri almaktayım.
Dosya = "D:\takip\LİSTESİ.xlsx"
Ancak, tablomu D bölümü olmayan bir başka bilgisyarda kullandığımda hata vermekte, bu sorunu nasıl çözülebilinir.

 

[Haluk]

Katılım2 Eylül 2004

İlginç soru....

.

 

[ÖmerFaruk]

D yok C varsa Dyi C yapın. Ya da diğer harfler. O sürücünün altında takip isimli klasör ve altında da LİSTESİ.xlsx dosyası olması da şart.

 

[halit3]

Bunu denermisiniz.

surucu = Mid(CreateObject("wscript.Shell").SpecialFolders.Item("Desktop"), 1, 1)
Dosya = surucu & ":\takip\LİSTESİ.xlsx"

veya

surucu = Mid(ThisWorkbook.Path, 1, 1)
Dosya = surucu & ":\takip\LİSTESİ.xlsx"

 

[mars2]

İyi Günler;

İlginize teşekkür edereim ancak, cevaplarınıza biraz geç cevap verebildim. Çünkü uygulama dosyam işyerinde olması nedeniyle;
uygulama dosyamı yukarıda da bahsettiğim gibi farklı bilgisayarda kullanmaktayım. İş gereği buğün a bilgisayarında, yarın b bilgisayarında,

surucu = Mid(CreateObject("wscript.Shell").SpecialFolders.Item("Desktop"), 1, 1)
Dosya = surucu & ":\takip\LİSTESİ.xlsx"

kodu aşağıdaki, revize ettiğimde hata vermektedir.

surucu = Mid(CreateObject("wscript.Shell").SpecialFolders.Item("Desktop"), 1, 1)
Dosya = surucu & ":\takip\LİSTESİ.xlsx"
Workbooks.Open Filename:=dosya

...... öğesini bulamadık, dosya taşınmmış veya silinmiş olabilir hatası vermektedir.

 

[halit3]

Yukarıdaki (LİSTESİ.xlsx ) dosyasına ait şimdiki klasör adresinin görüntüsünü buraya eklermisiniz.
mesela bendeki örnekte D sürücüsünün örnek kalasörün içindeki DENEME klasörü var bunun içinde de LİSTESİ.xls dosyası var adreside tam şöyle

D:\örnek\DENEME\LİSTESİ.xls

 

[mars2]

İşyerindeki A Bilgisayarın HD si C ve D ye bölünmüş, ancak B bilgisayarının HD'si sadece C mevcut, flaş bellekteki mevcut uygulamayı hangi bilgisayara takarsan takayım her seferinde kodu düzeltmeden ve hata vermeden ve sorunsuz çalışması amaçlanmaktadır.

takip klasörün içinde LİSTESİ.xlsx dir.

 

[halit3]

kodu çalıştırdığınız dosya nerede duruyor takip klasörünün içinde mi duruyor yoksa dışında mı duruyor.
veya masa üstünde mi duruyor.

 

[YUSUF44]

Dosyanın olup olmadığı şöyle bir kodla kontrol edilebiliyormuş:

Sub CheckFileExists ()
 
Dim strFileName As String
Dim strFileExists As String
 
    strFileName = "C:\Users\Nikola\Desktop\VBA articles\Test File Exists.xlsx"
    strFileExists = Dir(strFileName)
 
   If strFileExists = "" Then
        MsgBox "The selected file doesn't exist"
    Else
        MsgBox "The selected file exists"
    End If
 
End Sub

Bu kod şöyle güncellenebilir muhtemelen:

Sub CheckFileExists()
 
Dim strFileName As String
Dim strFileExists As String
 
    strFileName = "D:\takip\LİSTESİ.xlsm"
    strFileExists = Dir(strFileName)
 
    If strFileExists = "" Then
        strFileName = "C:\takip\LİSTESİ.xlsm"
        strFileExists = Dir(strFileName)
    Else
        GoTo 10
    End If
    If strFileExists = "" Then
        MsgBox "Dosya bulunamadı!"
        Exit Sub
    Else
        GoTo 10
    End If
10:
    'Buraya sizin kodlarını gelecek
End Sub

Kaynak:

VBA ファイルやフォルダが存在するかどうかを確認する

VBAでは、Dir関数を使用してファイルやフォルダーが存在するかどうかを確認することができます。 Dirコマンドを使ってファイルが存在するかどうかを確認する

www.automateexcel.com

Ayrıca:

Klasörde dosya yoksa makro ile işlemi atlama !!!

Merhaba Arkadaşlar, Ben D:\Boyahane klasörü içindeki excel dosyalarını açarak bazı işlemler yapıyorum. Ancak bazen D:\Boyahane içerisinde o dosya olmayabiliyor. Bu durumda Makro işlemi yaparken dosya olmadığı için hata uyarısı veriyor. İşte ben bu hata ile karşılaşıldığında hata vermeden diğer...

www.excel.web.tr

 

[halit3]

cevabınız biraz gecikiyor örnek dosyada
Takip klasörünü bilgisayarda nereye çıkartırsanız çıkartın içindeki deneme.xls dosyasındaki kodu çalıştırdığınız zaman LİSTE.xls dosyasını açmaktadır.

 

[mars2]

Sayın halit3;

Cevabınız ve ilginiz için teşekkürler.

 

[izcik]

Ya da şöyle olabilir. Bilgisayara çalışma esnasında (işi yürütebilmek için) bir flash disk takılır, sürücü adı D olacaktır. Bu da denenebilir.