Merhaba, e-posta ile excel'de bir aralık göndermek için kodunuzu kullanıyorum. Aralığı iptal edersem, bir çalışma zamanı hatası alıyorum. Bunu önlemek ve ayrıca ekteki sütunları otomatik olarak sığdırmak için bir kod veya mesaj kutusu eklemek mümkün mü? Kodun bir kısmı aşağıda
Teşekkür
/media/kunena/emoticons/smile.png
Dize Olarak xFile Dim
xFormat'ı İstediğiniz Uzunlukta Kısın
Çalışma Kitabı Olarak Dim Wb
Çalışma Kitabı Olarak Dim Wb2
Dim Ws As Çalışma Sayfası
FilePath'i Dize Olarak Karartın
Dim DosyaAdı String
OutlookApp'i Nesne Olarak Karartın
OutlookMail'i Nesne Olarak Karartın
Aralık Olarak Dim WorkRng
xTitleId = "Örnek"
S
et WorkRng = Uygulama.Seçim
WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) olarak ayarlayın
Application.ScreenUpdating = Yanlış
Application.DisplayAlerts = Yanlış
Wb'yi Ayarla = Application.ActiveWorkbook
Wb.Çalışma Sayfaları.Ekle
Ws = Application.ActiveSheet'i ayarlayın
WorkRng.Copy Ws.Cells(1, 1)
Ws.Kopya
Wb2 = Application.ActiveWorkbook olarak ayarlayın
Vaka Seç Wb.FileFormat
Vaka xlOpenXMLÇalışma Kitabı:
xFile = ".xlsx"
xFormat = xlOpenXMLÇalışma Kitabı
Vaka xlOpenXMLWorkbookMacroEnabled:
Eğer Wb2.HasVBProject ise
xFile = ".xlsm"
xFormat = xlOpenXMLÇalışma KitabıMakro Etkin
başka
xFile = ".xlsx"
xFormat = xlOpenXMLÇalışma Kitabı
Eğer son
Örnek Excel8:
xFile = ".xls"
xFormat = Excel8
Vaka xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Select End