Sorgu için arama sonuçları: workbooks.open

...File_Name = "Fişler" File_Exists = Dir(File_Path & File_Name & "*.xlsx") If File_Exists <> "" Then Set WB = Workbooks.Open(File_Path & File_Exists) Else MsgBox "Dosya bulunmadı!", vbCritical End If End Sub Public Function GetLocalPath(ByVal Path As...

Aşağıdaki gibi deneyebilirsiniz. isim değişkenine ahmet - mehmet neye ihtiyacınız varsa ekleyip kullanın. Sub kod() dsy = thisworkbook.path & "\Fisler" & isim & ".xlsx" Workbooks.Open dsy End Sub

tam yer olarak değilde klasötler hep farklı yerlerde ve farklı isimlerde..mevcut klasör için bir çözüm yokmuydu..birde ismi fişler ile başlayan dosya için istemiştim yani fişler ahmet fişler mehmet bi sürü böyle dosya var..fişler den sonra başka isimler var yani..

Merhaba, Dosya yolunu kendinize göre uyarlayıp deneyiniz. Sub kod() dsy = "C:\Users\kullanici\Desktop\Fisler.xlsx" Workbooks.Open dsy End Sub

Çok çok teşekkürler Muzaffer Ali bey. Elinize sağlık.

...kodu kullanın Private Sub Label592_Click() Dim Say As Long Dim Sayfa As Worksheet Dim SonSatir As Long Application.Workbooks.Open Environ("UserProfile") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value Set Sayfa = Worksheets("dışarıstj") Say =...

Benzer bir sorunuzu cevaplamıştım. Aynı mantıkla; Sub Kaydet() AnaDosya = ActiveWorkbook.FullName ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Date & ".xlsm" Workbooks.Open AnaDosya End Sub

TEŞEKKÜR EDERİM FAYDALI OLDU. ANA DOSYA AÇIK KALIYOR. ANA DOSYA AÇIKKEN SADECE KAYIT İŞLEMİNİ HALLEDEMEDİM. Sub Kaydet() AnaDosya = ActiveWorkbook.FullName ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE" & ".xlsm" Workbooks.Open AnaDosya End Sub

...itibaren yapıştıracak. Kırmızı satırı seçip, konu başlığında belirtiğim hatayı veriyor. Rica etsem bakabilir misiniz. Application.Workbooks.Open "C:\Users\" & Environ("UserName") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value dosya_adi = ListBox4.Value Dim say As Integer Dim...

...satırı seçip, "Range sınıfının PasteSpecial yöntemi başarısız" diye hata veriyor. Bunun için de yardım edebilir misiniz. Application.Workbooks.Open "C:\Users\" & Environ("UserName") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value dosya_adi = ListBox4.Value Dim say As Integer Dim...

Teşekkürler sayın dEdE sizin gönderdiğiniz kod ile de çalıştı.

Dener misiniz? Application.Workbooks.Open Environ("UserProfile") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.List(ListBox4.ListIndex, 0)

Sayın DoğanD ilginiz için teşekkür ederim son gönderdiğiniz kod ile düzeldi.

...Dosya yolunu tek başına Destkop olarak belirtemezsiniz. Çünkü aslında o yol gerçekte "C:\Users\dogan.dulger\Desktop" gibi görünüyor. Aşağıdaki gibi dener misiniz? Application.Workbooks.Open "C:\Users\" & Environ("UserName") & "\Desktop\STAJYER_ÖĞRENCİ_PUANTAJLARI\" & ListBox4.Value & ".xlsx"

Sayın DoğanD yine aynı hatayı verdi. Dosya Türü : Microsoft Excel 97-2003 Çalışma Sayfası (.xls) Böyle de denedim. Yine hata verdi.

Merhaba, En alttaki satırın sonuna & ".xlsx" ekleyip dener misiniz? Tabii bu dosya Excel ise yada sürümü ".xlsx" ise. Application.Workbooks.Open "Destkop" & "\" & "STAJYER_ÖĞRENCİ_PUANTAJLARI" & "\" & ListBox4.Value & ".xlsx"

...Listbox'taki listelenen Excel dosyalarının herhangi birine tıklandığında ismi tıklanan dosyanın açılması gerekiyor. Ama dosya bulunamadı diye hata veriyor. Nerede hata var yardımcı olabilir misiniz. Application.Workbooks.Open "Destkop" & "\" & "STAJYER_ÖĞRENCİ_PUANTAJLARI" & "\" & ListBox4.Value

Dener misiniz? Sub Kaydet() AnaDosya = ActiveWorkbook.FullName ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & DateAdd("d", 1, Date) & " KONYA TARİFE" & ".xlsm" Workbooks.Open AnaDosya End Sub

Birden fazla excel sayfası var, bunları farklı kullancılar dolduruyor. Ben tek bir excel sayfasında görmek istiyorum bu mümkün mü?

...' Her bir Excel dosyasını açın ve birleştirin Do While dosya <> "" ' Excel dosyasını açın Set acilan_dosya = Workbooks.Open(klasor_yolu & dosya) ' İlk sayfayı alın ve yeni bir sayfaya yapıştırın Set ws = acilan_dosya.Sheets(1) ws.Copy...