Tarihi Bugün Olan Dosyayı Açma

  • Konuyu başlatan Konuyu başlatan selis
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

selis

Kullanıcı
Katılım
17 Mar 2021
Mesajlar
721
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba arkadaşlar,
Ben bir excel çalışma sayfasında işlem yapıyorum. Başka bir excel dosyasını açmak istiyorum makroyla ancak excel dosyasının ismi hergün değişiyor, onu koda nasıl tanımlayabilirim?
Şuan bu şekilde kod yazdım. Ama bu dosyanın ismi sürekli değişiyor.
Workbooks.Open("\\fs1-mitas\ENJ\0_Planlama\FR 8.5.1-02_Planlama Takip Formu (rev 1).xlsx").Sheets("Projeler").Select
 
Tik İşaretiyle Satır Kilitleme
Veri Listesinde Değişen Verileri Sıfırlama
Çözüm
Ömer BARAN
Makrolarla işlem yapılırken.
İşlem yapılacak dosyanın AKTİF olması her zaman şart değil zaten.
Ayrıca zorunlu olmadıkça, makro kodlarında ....Select / ...... Activate kodlarının zaten olmamasında yarar var.

Bir'den fazla dosya/sayfa arasında işlem yapan kodlarda,
KİTAP/SAYFA/SATIR/SÜTUN gibi tanımlamalara dikkat etmek lazım.

Verdiğiniz son kod satırlarına baktığımda böyle tanımlamarın eksik olduğunu görüyorum.

Örneğin;
-- dos = .... satırını Set dos = ThisWorkbook diye değiştirin.
-- bunun altına işlem yapılacak SAYFA hangisiyse onun adını kullanarak Set shf = dos.Sheets("xxxxxxx") şeklinde bir satır ekleyin.
-- Workbooks.Open(...... satırının sonundaki .Select kısmına gerek olmaması lazım.
-- dos1 satırına gerek yok gibi görünüyor...
Tarihe göre sırala Oylamaya göre sırala
Sayın @selis .

Dosya isimlerinde bir DÜZEN varsa, bu düzene göre açılacak dosya ismi DEĞİŞKEN olarak tanımlamak mümkün olabilir.

İsimdeki değişim nasıl oluyor ?
Örneğin; .....Formu (rev 1).xlsx deki 1 sayısı mı değişiyor, ya da 8.5.1-02_Pla.... kısmındaki sayılar mı değişiyor vs.

.
 
Oyla 0 Olumsuz oyla
Merhaba Ömer bey teşekkür ederim, aşağıdaki şekilde yapınca çalıştı, ancak şimdide açılan yeni sayfayı aktif etmiyor, neden olabilir sizce?
Dim i As Integer
Dim n As Integer
Dim myDate As Date
Dim dosya As String
dos = ActiveWorkbook.Name

say = Cells(Rows.Count, "A").End(xlUp).Row


myDate = Date
dosya = "FR_8.5.1-51_Sac_İmalat_İş_Planı(rev2)" & "_" & myDate
Workbooks.Open("\\Fs1-mitas\msim\02_Sac_Imalat_Fabrika\01_Üretim_Planlama\01_İş_Planı_Raporu\" & dosya & ".xlsm").Sheets("Güncel Proje Takibi").Select
On Error Resume Next

dos1 = ActiveWorkbook.Name
Windows(dos1).Activate 'dos1 i aktif etmiyor yine ilk açık olan excelden işlem yapıyor.
 
Oyla 0 Olumsuz oyla
Makrolarla işlem yapılırken.
İşlem yapılacak dosyanın AKTİF olması her zaman şart değil zaten.
Ayrıca zorunlu olmadıkça, makro kodlarında ....Select / ...... Activate kodlarının zaten olmamasında yarar var.

Bir'den fazla dosya/sayfa arasında işlem yapan kodlarda,
KİTAP/SAYFA/SATIR/SÜTUN gibi tanımlamalara dikkat etmek lazım.

Verdiğiniz son kod satırlarına baktığımda böyle tanımlamarın eksik olduğunu görüyorum.

Örneğin;
-- dos = .... satırını Set dos = ThisWorkbook diye değiştirin.
-- bunun altına işlem yapılacak SAYFA hangisiyse onun adını kullanarak Set shf = dos.Sheets("xxxxxxx") şeklinde bir satır ekleyin.
-- Workbooks.Open(...... satırının sonundaki .Select kısmına gerek olmaması lazım.
-- dos1 satırına gerek yok gibi görünüyor çünkü dosya değişkeni zaten dosyanın adını gösteriyor.
-- dos1 dediğiniz dosya yeni açıldığına ve ilk dosya için başka bir activate kod satırı olmadığına göre,
açılan yeni dosya zaten aktifdir. Bunun için ....Activate koduna gerek var mı?
vs.

Bence bir adet veri okunacak dosya adı, bir adet veri yazılacak dosya olmak üzere 2 örnek belge ekleyip,
yapmak istediğiniz işlemi açıklayın. Belki de istediğiniz işlem için başka bir kodlama önerilir.

.
 
Oyla 0 Olumsuz oyla
Çözüm
Teşekkür ederim dediğiniz gibi denedim ama select için hata verdi o yüzden koddan silmedim, bide açılan yeni excelde işlem yapmıyor bir türlü yine thisworkbook olarak açtığım excelde işlem yapıyor. Şimdiden teşekkür ederim iyi çalışmalar..
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt