Sorgu için arama sonuçları: SaveAs

...= "Şifre Hatırlatma" Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To =...

...& "\" TempFileName = "Şifre Hatırlatma" Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To = "deneme@hotmail.com" .CC = "" .bcc = ""...

kod bu tekrar bakabilir miyiz?

...kaydet ve kapat Application.DisplayAlerts = False If Dir(dosyaAdi) = "" Then wbYeni.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook Else wbYeni.Save End If...

Siz baktınız mı acaba ? Şimdi denedim. Aman yine aynı sadece anahtar kelime büyükse sadece büyük yazan verileri getiriyor. Excel örneğini atmıştım. Excel sürümünün farklı olması değiştirir mi bu durumu bilmiyorum. bendeki 2013 verisiyon office

...kaydet ve kapat Application.DisplayAlerts = False If Dir(dosyaAdi) = "" Then wbYeni.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook Else wbYeni.Save End If...

...kaydet ve kapat Application.DisplayAlerts = False If Dir(dosyaAdi) = "" Then wbYeni.SaveAs dosyaAdi, FileFormat:=xlOpenXMLWorkbook Else wbYeni.Save End If...

kaydettiği exceller açılmıyor tam olarak ne yapmam lazım

Eğer sadece ThisWorkbook.SaveAs savePath, FileFormat:=xlOpenXMLWorkbookMacroEnabled satırını değiştirirseniz, dosyanın doğru formatta kaydedilmesini sağlayabilirsiniz. Ancak, burada birkaç önemli şey var: Eğer dosyanızda herhangi bir makro varsa ve .xlsm olarak kaydediyorsanız, bu format doğru...

...currentDate = Format(Date, "yyyy-mm-dd") saveFile = "ExportedData_" & currentDate & ".xlsx" saveFile = Application.GetSaveAsFilename(InitialFileName:=saveFile, fileFilter:="Excel Workbooks (*.xlsx),*.xlsx") If saveFile <> "False" Then wb.SaveAs Filename:=saveFile...

...address = Replace(WorkRng.address, ":", "-") address = Replace(address, "$", "") address = Replace(address, ".", "") saveFile = Application.GetSaveAsFilename(InitialFileName:=address, fileFilter:="Excel Workbooks (*.xlsx),*.xlsx") wb.SaveAs Filename:=saveFile wb.Close Application.CutCopyMode...

...wb.Password = "" wb.WritePassword = "" Application.DisplayAlerts = False wb.SaveAs Filename:=currentFilePath, FileFormat:=xlExcel8, Password:="", WriteResPassword:="" Application.DisplayAlerts = True...

Merhaba. Tam anlatamadım sanırım. (Ya da ben sizi anlayamadım) Benim raporu hazırlayan xlsm uzantılı bir Excelim var. Butona bastığımda sekmedeki butonları kaldırıp, N1:N8 arasındaki yazıları silip, xlsx uzantısıyla sadece rapor olarak kaydetmesini istiyorum. (VBA dosyasını da silip) Buton...

Merhaba. Önceki sürümlerde çalışması için *.xls formatında kaydetmelisiniz ve dosya biçimini de belirtmelisiniz. Örnek: ActiveWorkbook.SaveAs Filename:=DosyaAdi & ".xls", FileFormat:=xlExcel8

...Sub CommandButton2_Click() DosyaAdi = Range("d5") Application.DisplayAlerts = False Sheets("Rapor").Copy ActiveWorkbook.SaveAs (DosyaAdi & ".xlsx") Sheets("Rapor").Shapes(1).Delete Sheets("Rapor").Range("N1:N8").ClearContents Sheets("Rapor").Shapes(1).Delete...

bende bunu anlatmaya çalışıyordum. Teşekkürler

...komutu, mevcut dosyanın belirlenen ad ve konumda bir kopyasını oluştururken, dosyayı açık bırakması açısından farklı bir işlev sunar. SaveAs ise dosyanın adını ve konumunu değiştirerek mevcut dosyayı yeni adla kaydedip kapatır.İki şekildede kullanılabilir. Eğer mevcut çalışma dosyanızın...

hocam kodunuzda yeniDosya.SaveAs yerine yeniDosya.SaveCopyAs şeklinde yazılsa daha işlevsel. sizin SaveCopyAs ile dosyanın kopyasını istediği isimle oluşturur. Hali hazırda daha önce açtığı excel dosyası hala açık kalır. SaveAs te ise daha önce açtığı excel dosyası kapanır. yeni dosya açılmış...

Sub SaveAsCemWithoutMacro() Dim dosyaAdi As String Dim masaustu As String Dim hedefKlasor As String Dim tamDosyaYolu As String Dim yeniDosya As Workbook dosyaAdi = Trim(Range("A1").Value) If dosyaAdi = "" Then MsgBox "A1 hücresine bir dosya adı giriniz!"...

Merhaba, teşekkürler yanıtınız için ancak aynısı oldu. Şifre kaldırma işlemi tamamlandı. yazıyor ve değişen bir şey yok.