NEDEN .xls UZANTILI GÖNDERMİYOR?

[turkanet]

NEDEN .xls UZANTILI G�NDERMÝYOR?

Sub Mail_ActiveSheet()
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "dd-mm-yy")
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Romanya " & ActiveSheet.Name & "." & " Yükleme" & ""
.SendMail "deneme@hotmail.com", _
"Loading Plan"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close False
End With
Application.ScreenUpdating = True
End Sub

yukarıdaki kod ile Romanya 14. Yükleme yazabiliyorum fakat dosya .dat uzantılı gidiyor
dosyayı kendi uzantısı olan .xls ile nasıl gönderebilirim?

(aşağıdaki satırla "Romanya Yükleme 14 olarak ve .xls olarak gidiyordu zaten.
.SaveAs "Romanya " & "Yükleme " & ActiveSheet.Name & ""


teşekkürler

 

[turkanet]

cevap bekliyorum

 

[cyberwolf1980]

bu kodu dosyaya yaz ve ıslet

Sub MAIL_AT()
Application.Dialogs(xlDialogSendMail).Show
End Sub

ıstersen bu kaydı bır tusada aktarabılırsın

kolay gelsın :icelim:

 

[cyberwolf1980]

bu koduda sadece aktıf sayfayı maıl atmak ıcın kullanabılırsın ok ?

Sub sayfa_at()
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
Application.CutCopyMode = False
Range("A1").Select
Application.Dialogs(xlDialogSendMail).Show
End Sub

 

[turkanet]

YARDIM İÇİN TEÞEKKÜRLER FAKAT BEN BUNU KASTETMEMİÞTİM. ZATEN AMACIM TÜM KİTABI YOLLAMAK DEÐİL. SADECE YOLLARKEN İSTEDİÐİM İSİMLE YOLLAMASI. YİNE DE TEÞEKKÜRLER.

HALA YARDIMA İHTİYACIM VAR :dua:

 

[turkanet]

BU KİTABI NASIL
"Romanya Yükleme 14" olarak DEÐİL DE,
"Romanya 14. Yükleme" OLARAK YOLLARIM?


TEÞEKKÜRLER

 

[cyberwolf1980]

oda kolay 5 dk beklermısın

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

.SaveAs "Romanya " & ActiveSheet.Name & " .Yükleme"

veya

.SaveAs "Romanya " & ActiveSheet.Name & " .Yükleme.xls"

veya

ad="Romanya " & ActiveSheet.Name & " .Yükleme"
.SaveAs ad

 

[turkanet]

DENİYORUM...

 

[cyberwolf1980]

Sub ISIMLI_SAYFA_GONDERME()
'
' ISIMLI_SAYFA_GONDERME Makro
' CYBERWOLF1980@GMAIL.COM
'

'
Sheets("Sayfa1").Select
Sheets("Sayfa1").Copy
ChDir "C:\"
ActiveWorkbook.SaveAs Filename:= _
"C:\ISIM.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.Dialogs(xlDialogSendMail).Show
Sheets("Sayfa1").Select
Range("A1").Select
' Use with Caution!!!!
' Be very careful not to delete your Personal Workbook
On Error Resume Next
Dim Proceed1 As Long
Dim Proceed2 As Long
Proceed1 = MsgBox("DOSYA ILE ISLEMINIZ BITTIMI? BU DOSYA KENDINI SILECEKTIR! ", vbExclamation + vbYesNo, "Delete Workbook")
If Not Proceed1 = vbYes Then Exit Sub
Proceed2 = MsgBox("BU SON UYARI. DEVAM ETMEK ICIN EVETI TIKLAYIN, CIKMAK ICIN HAYIR. ", vbExclamation + vbYesNo, "Delete Workbook")
If Not Proceed2 = vbYes Then Exit Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.EnableEvents = False
ActiveWorkbook.ChangeFileAccess xlReadOnly
Kill ActiveWorkbook.FullName
ActiveWorkbook.Close False
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
turkanet, kodu calıstır bakalım ısını gorecekmı ?

not : kodda yer alan ISIM.XLS yı sen stedıgın gıbı degıstırebılırsın
ıyı gunler

 

[turkanet]

.SaveAs "Romanya " & ActiveSheet.Name & ". Yükleme.xls"

YAPINA HERÞEY İSTEDİÐİM GİBİ OLDU
MİNNETTARIM...
:dua: :bravo: :hey: :mutlu: