Makro ile Outlook Üzerinden Mail Gönderme

[selis]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Görüntülemek için giriş yapmanız gerekmektedir.
(33 satır)

Arkadaşlar herkese merhaba,

Ben outlooktan kodla mail gönderiyorum dosya yolundaki tarih & Malzeme durumu yazan yerı ;
dosya yolu : C:\Users\selis\Desktop\iş yükü için malzeme durumu\HAZİRAN-2021
excel adı : 30.06.2021 - MD YENİ olarak nasıl guncelleyebılırım?
HAZİRAN - 2021 Yazan yer aya göre değişkenlik gösteriyor.

 

Yıllara Göre Ders İsimlerini Tabloya Yerleştirme

Makro ile B sütunu Referanslı Yıl Atama

[ExcelDepo]

Merhaba,

kls = "C:\Users\selis\Desktop\iş yükü için malzeme durumu\" & myDate & "-MALZEME DURUMU"

Üstteki kısma mı müdahale etmek istediniz?

 

[selis]

Evet hocam

 

[selis]

Ben yazdıgım excelı eklesın ıstıyorum sadece bu kodda butun excellerı eklıyor dosya ıcındekı

 

[ExcelDepo]

Görüntülemek için giriş yapmanız gerekmektedir.
(3 satır)

Şuradaki kodları değiştirmeniz gerekir.
For Each ile başlayan ve Next ile biten satırları kaldırıp, dosya.Path yerine eklemek istediğiniz kitap adını ya da kitap adını getirdiğiniz değişkeni yazmanız yeterli olacak @selis

 

[selis]

Görüntülemek için giriş yapmanız gerekmektedir.
(4 satır)

Hocam bu kısmı nasıl yapmam gerekiyor peki ?

 

[selis]

Set ds = CreateObject("Scripting.FileSystemObject")
kls = "C:\Users\selis\Desktop\iş yükü için malzeme durumu\" '24.02.2021 dosyasının içinde iki excel ve bir power bi raporu var bunları boş alıyor"
'If Dir(kls) = "" Then MsgBox "Klasor yok": Exit Sub
Set dc = ds.GetFolder(kls).Files

Hocam burda tum dosyaları eklıyor, ben nasıl belirli bir isimdeki exceli ekletebilirim sadece?

Excel adı : 5.07.2021 - Malzeme Durumu

 

[ExcelDepo]

Görüntülemek için giriş yapmanız gerekmektedir.
(35 satır)

şeklinde olacaktır.