Sorgu için arama sonuçları: SaveAs

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

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.

Merhaba, desteğiniz için teşekkürler. Dosya yolu ve şifreyi doğru olarak giriyorum, msgbox çalışıyor ancak şifreler kalkmadı.

...= Dir(folderPath & "*.xlsx") Do While fileName <> "" Set wb = Workbooks.Open(folderPath & fileName, Password:=password) wb.SaveAs folderPath & "unlocked_" & fileName wb.Close fileName = Dir Loop MsgBox "Tüm dosyalar başarıyla şifresiz hale...

...kontrol edin.", vbCritical Exit Sub End If Cad.Visible = True ' DWG Kaydetme Cad.Application.ActiveDocument.SaveAs ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xlsm", ".dwg") ' Çizim ve Yakınlaştırma Cad.ActiveDocument.SendCommand "LINE " &...

...Application.ScreenUpdating = True Dim Cad As Object Set Cad = CreateObject("AutoCad.Application") Cad.Application.ActiveDocument.SaveAs ActiveWorkbook.Path & "/" & _ Replace(ActiveWorkbook.Name, ".xlsm", ".dwg") Cad.Visible = True Cad.ActiveDocument.SendCommand "Line " & koordinat & " "...

Emeğinize sağlık, teşekkür ederim. Ama bu seçenek çok zaman alacak. 17.8GB excell dosyam var. Hepsi de farklı klasörlerde ve farklı yerlerde. Sorunum tekrar ederse, önerinizi uygulayacağım. Teşekkürler. İyi çalışmalar.

...kitabını aç Set wb = Workbooks.Open(folderPath & fileName) ' Dosyayı Excel 97-2003 formatında kaydet wb.SaveAs newFolderPath & Replace(fileName, ".xlsx", ".xls"), FileFormat:=xlExcel8 ' Çalışma kitabını kapat wb.Close SaveChanges:=False...