Sorgu için arama sonuçları: SaveAs

...yeniDosyaYolu = yol1 & Replace(ThisWorkbook.Name, ".xlsm", ".xlsx") ThisWorkbook.SaveAs Filename:=yeniDosyaYolu, FileFormat:=xlOpenXMLWorkbook ThisWorkbook.Close SaveChanges:=False End Sub Bu kod, mevcut .xlsm dosyanızı .xlsx formatında belirtilen yedekleme klasörüne...

Teşekkür ederim şablonu oluşturdum ama her başlangıçta açıyor son çıktıda logo ve vektörler bulunmuyor?

...= True .Execute Replace:=wdReplaceAll End With Next r End With Next j l = 0 wrdDoc.SaveAs ThisWorkbook.Path & "\" & Range("a" & i).Text & ".docx" wrdDoc.Close False Set wrdDoc = Nothing Next i wrdApp.Quit Set wrdApp =...

Necati bey ellerinize sağlık çok teşekkür ederim. Bunların sayfaların belli yerlerine vektör görsel ekleyeceğim tam olarak kod yapısını nereye nasıl yazabilirim. (1 logo, 2 vektör şekil)

...With .InlineShapes(l) .Height = 150 .Width = 250 End With End With Next l = 0 wrdDoc.SaveAs ThisWorkbook.Path & "\" & Range("a" & i).Text & ".docx" wrdDoc.Close False Set wrdDoc = Nothing Next wrdApp.Quit Set wrdApp =...

Merhaba, Son kodlarınız benim için yeterli. Kısa ve basit. Destek için teşekkürler.

...Sub AnaFikir() Dim DosyaAD As String DosyaAD = ThisWorkbook.Path & "\" & Worksheets("Veri").Range("A1").Value & ".xlsx" Sheets("Veri").Copy ActiveWorkbook.SaveAs Filename:=DosyaAD, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=False...

...' Kullanıcı "Evet" derse, dosya mevcut olanın üzerine kaydediliyor. Sheets("Veri").Copy ActiveWorkbook.SaveAs Filename:=DosyaAD, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=False Else ' Kullanıcı...

...& b & ":E" & b)) End If Next Application.ScreenUpdating = False Set w1 = Workbooks.Add alan.Copy w1.Sheets(1).Range("A1") w1.SaveAs isim w1.Close 0 Application.ScreenUpdating = True End If Next MsgBox "İşlem tamam" End Sub

Deneyiniz. Kendi dosyanızı göre düzenlersiniz. File_Name = Range("A1").Value & Range("A3").Value & ".xlsx" Workbooks.Add ActiveWorkbook.SaveAs File_Name

...On Error Resume Next ActiveSheet.Copy DsyYol = CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\" Dsy = ActiveSheet.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") ActiveWorkbook.SaveAs DsyYol & Dsy ActiveWorkbook.Close SaveChanges:=False End Sub

Merhaba benim dosyam xlsm uzantılı ve desktopta, SAYFA_BOYUT_RAPORU diye bir sayfa yarattı ama boş ve ekteki gibi debug hatası verdi. Teşekkür ederim.

...iCount Loop Set nWB = Workbooks.Add With nWB .Sheets(1).Paste .SaveAs fileName:=myFolder & "\" & fName & ".xlsx", FileFormat:=51 .Close True End With End If Next...

...NewBook.Sheets(1) SH.Columns(i).Copy SHT.Cells(1, 1) Application.CutCopyMode = False NewBook.SaveAs fileName:=desktopFolderPath & "\" & fileName & ".xlsx" NewBook.Close Set SHT = Nothing Set NewBook = Nothing...

Çok teşekkürler. Sorunsuz çalışıyor. Merak ettiğim için soruyorum, bunların farkı nedir? Açma parolası mevcut olan şifreyi kaldırmak için, yeni açma parolası da sıfırdan şifre koymak için , değiştirme parolası ve yeni değiştirme parolası nedir:) acma_paralası = 12 degistirme_parolası = 13...

..."~$" Then Set wb = Workbooks.Open(dosya, Password:=acma_paralası, WriteResPassword:=degistirme_parolası) Application.DisplayAlerts = False wb.SaveAs Filename:=dosya, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False wb.Close False...

Hocam makro çalıştırdığımda yine bu ekran geliyor

..."~$" Then Set wb = Workbooks.Open(dosya, Password:=acma_paralası, WriteResPassword:=degistirme_parolası) Application.DisplayAlerts = False wb.SaveAs Filename:=dosya, FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False wb.Close False...

Hocam üstteki kodu denedim ama dosya açarken uzantı değiştirilmiş gibi birşey diyordu File format bölümünü xlOpenXMLWorkbook olarak değiştirdim. Sorun çözüldü. Fakat; tek klasörü secebiliyorum. Bir klasörü seçip alttaki klasörleri de kapsayacak şekilde nasıl yapabilirim Düzeltme: dosyalarda dış...

...Set wb = Workbooks.Open(pth & "\" & dosya, Password:=acma_paralası, WriteResPassword:=degistirme_parolası) Range("A1").Select ActiveWorkbook.SaveAs Filename:=pth & "\" & dosya, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False dosya...