Dosya yolu

[mars2]

İyi Günler;

Anaklasörüm "D" e analiste.xls dosyası bulunmakta,
Tablo klasöe deskop"ta bulunmakta olup içinde tablo2.xlsm dosyası bulunmaktadır.

anaklsörümü ve analiste.xlsx dosyamı bir başka bilgisayara ve farklı bölümlere taşıdığımda her seferinde Workbooks.Open Filename:= yolunu değiştirmemek için aşağıdaki kodu uyarlamaya çalıştım.

On Error Resume Next
Dim klasor As Workbook, dosyaadı As Workbook

Ans = MsgBox("Verilerin Güncellenecek mi?", vbQuestion + vbYesNo, "Günceleme")

Select Case Ans

Case vbYes

klasor = ThisWorkbook.Path & "\ANALİSTE"
dosyaadı = Sheets("Analiste.xls")

Workbooks.Open Filename:= klasor & "\" & dosyaadı
Sheets("liste").Select

...
end sub

Ancak, kodu çalıştırdığımda;

Automation error
Çok zararlı hata mesajı almaktayım.


nerede hata yapmaktayım ve yardımlarınızı beklemekteyim.

 

[askm]

On error satırından önce Application.DisplayAlerts = False ekleyin.

 

[merakli_72]

selam,
dosyaadı = Sheets("Analiste.xls")
böyle bir kullanım olamaz
dosyaadı = Sheets("Analiste.xls").name
diyebilirsiniz

 

[mars2]

İlginize teşekkürler, ancak hata aynen devam etmektedir.

 

[PLİNT]

İlginize teşekkürler, ancak hata aynen devam etmektedir.

Merhaba
Kodların bulunduğu dosyanızın yanında "ANALİSTE" adlı klasör varsa ve "analiste" adlı excel dosyası bu klasörün içerisinde ise

[SIZE="2"]klasor = ThisWorkbook.Path & "\ANALİSTE"
dosyaadı = "Analiste.xls"
Workbooks.Open Filename:=klasor & "\" & dosyaadı
Workbooks(dosyaadı).Sheets("liste").Select[/SIZE]

veya

[SIZE="2"]Workbooks.Open Filename:=ThisWorkbook.Path & "\ANALİSTE\" & "Analiste.xls"
Workbooks("Analiste.xls").Sheets("liste").Select [/SIZE]

 

[mars2]

İyi Günler;

İlginiz için teşekkür ederim.
Kodu kendi uygulamam uyarladığım zaman

Run-time error '1004':
öğesi bulmadı. taşınmış, yeniden adlandırılmış veya silinmiş olbalir hatası vermektedir.

xls dosya klasörün içinde mevcuttur. Hata neden olabilir.

 

[mars2]

ANALİSTE klasörü ile veri aldığım dosyanın bulunduğu klasör ayrı ayrı bulunmaktadır. bu nedenden dolayı hata verebilir mi, vermesi halinde çözüm ne olabilir.

 

[mars2]

İyi Günler;
Konu hakkında yardımlarınızı beklemekteyim.

 

[PLİNT]

Merhaba

Ek dosyayı deneyelim dosyalarınızın durumu onun gibimi?
Kod içindeki açılacak dosya uzantısını ayarlarsınız.
http://www.dosya.tc/server10/ferwfw/tasinan_klasor.zip.html

Makrolu dosyanın bulunduğu klasörün, yanında bulunan başka bir klasörün içindeki dosyayı aç

Private Sub CommandButton1_Click()
yol = ThisWorkbook.Path
klas = Split(yol, "\")(UBound(Split(yol, "\")))
adres = Mid(yol, 1, InStr(yol, klas) - 1)
klasor = adres & "ANALİSTE"
dosyaadı = "Analiste.xlsx"  [COLOR="Blue"]'VEYA dosyaadı = "Analiste.xls"[/COLOR]
Workbooks.Open Filename:=klasor & "\" & dosyaadı
Workbooks(dosyaadı).Sheets("liste").Select
End Sub

 

[mars2]

Sayın Plint;
İlgi ve alakanız için teşekkürler. Sorun çözüldü

 

[Celal.t]

klasör oluşturma

Merhaba arkadaşlar.izlediğim videoda çalışmasına ragmen kendi oluşturduğum
klasör ve dosya açma işlemi çalışmıyor.harici her komut çalışıyor.

'----------------------------------Klasör oluşturma yapılcak

Set Klasör = CreateObject("scripting.FilesystemObject") 'burada klasör objesi oluşturup,klasör açabilmek için klasöre sisem objesi ekledik.
Klasöryolu = ThisWorkbook.Path & "\" & Tb3_Temsilci & "\" & Tb3_Firmaadi

Buldum = Klasör.FolderExists(Klasöryolu) 'klasör youldaki klasörü aç dedik

If Buldum = True Then 'Eğer klasör bulunursa
Bilgimesaji (Tb3_Firmaadi & vbNewLine & "Adlı klasör mevcuttur")


Else

Klasör.createfolder Klasöryolu

End If
'--------------------------Ornek dosya oluşturkma

Ornekdosya = ThisWorkbook.Path & "\ BosTeklif.xlsm"
Yenidosya = Klasöryolu & "\" & Tb3_Firmaadi & ".xlsm"
Dosyaxlsm = Tb3_Firmaadi & ".xlsm"

FileCopy Ornekdosya, Yenidosya
Workbooks.Open Yenidosya
Set WsOrnek = Workbooks(Dosyaxlsm).Worksheets("Ornek")

WsOrnek.Cells(7, "C") = Tb3_Firmaadi





Bilgimesaji (Mesaj)

Call Temizle3_Firmabilgileri
Tb3_Firmaadi = ""



End Sub





Not:değişkenler tanımladım as variant olarak.sonra klasör oluşturulurken
dosya yolunda tb3temsilci veya tb3firma adına deger girdiğim zaman klasör oluşmuyor.ikisinden birisini boş bıraktığım için klasör oluşuyor.
fakat buseferde oluşanklasörde dosyayı oluşturamadım.
videodaki kodun aynısı

lütfen yardımedebilirmisiniz