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

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...

...For i = 2 To ssat With kitaptan.Worksheets("ÖZET LİSTE") If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Murat\Desktop\RAPOR TASLAKLARI" & "\NORMAL.xlsx") kitaba.Worksheets("RAPOR").Range("D9").Value = .Range("I" & i).Value...

...For i = 2 To ssat With kitaptan.Worksheets("ÖZET LİSTE") If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Murat\Desktop\RAPOR TASLAKLARI" & "\NORMAL.xlsx") kitaba.Worksheets("RAPOR").Range("D9").Value = .Range("I" & i).Value...

Bu kod işime baya yarar. fakat ilk aşağıdaki görseldeki hatayı aldım. ve "File" ibaresini "My_File" olarak değiştirince düzeldi. Sonrasında çalıştı ve password yazmam istenilen ekran geldi. şifreyi girdim. ve kod çalıştı gitti belirtilen klasördeki ilk exceli açtı ve aşağıdaki hatayı verdi...

...For i = 2 To ssat With kitaptan.Worksheets("ÖZET LİSTE") If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Murat\Desktop\RAPOR TASLAKLARI" & "\NORMAL.xlsx") kitaba.Worksheets("RAPOR").Range("D9").Value =...

...If InStr(My_File.Name, ".xlsx") > 0 Or InStr(My_File.Name, ".xlsm") > 0 Then ' Excel dosyasını açın Workbooks.Open My_File.Path ' VBA projesini şifreleyin ActiveWorkbook.VBProject.Protect Password:=Pwd ' Excel dosyasını kaydedin ve...

...If .Show = True Then verial = .SelectedItems(1) End If End With If verial <> "" Then Set kitap = Workbooks.Open(verial) Range("F2:AK99999").ClearContents ' H2:AO99999 hücre aralığını silme kitap.ActiveSheet.Range("A2:AF9999").Copy...

If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Yesım\Desktop\ooo" & "\NORMAL.xlsx") kitaba.Worksheets("RAPOR").Range("D9").Value = .Range("I" & i).Value kitaba.Worksheets("RAPOR").Range("D10").Value = .Range("J" & i).Value...

..." dosyası dikkate alınarak ilgili hücrelere değerleri alıp kaydediyor. If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Yesım\Desktop\ooo" & "\NORMAL.xlsx") End If kitaba.Worksheets("RAPOR").Range("D9").Value =...

Set kitaba = Workbooks.Open("C:\Users\Yesım\Desktop\ooo" & "\NORMAL.xls") dosya yolu hatalı

...Resume Next For i = 2 To ssat With kitaptan.Worksheets("LİSTE") If .Range("E" & i).Value = "NORMAL" Then Set kitaba = Workbooks.Open("C:\Users\Yesım\Desktop\ooo" & "\NORMAL.xlsx") End If kitaba.Worksheets("RAPOR").Range("D9").Value =...

Üstteki çalışmadı ama bu kod çalıştı. Teşekkür ederim.