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