Sorgu için arama sonuçları: SaveAs

...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 End If...

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 End If...

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

...yazdığı şekliyle txt dosyasına aktarması için nasıl bir düzenleme yapılabilir? desteğiniz için şimdiden teşekkürler, iyi pazarlar. Sub saveAsTXT() Dim myPath As String Dim myFileName As String Num = 12 myPath = ThisWorkbook.Path myFileName = myPath & "\temp_" & Num & ".txt"...

...Application.DisplayAlerts = False Sheets("Yoklama").Select Sheets("Yoklama").Copy ActiveWorkbook.SaveAs Filename:= _ ThisWorkbook.Path & "/" & "Deneme_" & isim1 & "_" & isim2 & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWindow.Close MsgBox...

Bu çalışma ihtiyacımı tam olarak karşıladı. Diğer 8 ve 9. mesajdaki kodlar la da yapılabiliyor fakat ADO tecrübemin olmamasından dolayı ve bu kodda sayfalara ayır, dosyalara ayır ve yazdır seçenekleri olduğu için bana daha iyi geldi. Yardımız çok kıymetliydi. İlginizden dolayı çok teşekkür ediyorum.

...Cells.EntireColumn.AutoFit Range("A1").Select Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:=Yol & DosyaSy & Liste(i), _ FileFormat:=Surum, CreateBackup:=False ActiveWorkbook.Close Savechanges:=False...

...Cells.EntireColumn.AutoFit Range("A1").Select Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:=Yol & DosyaSy & Liste(i), _ FileFormat:=Surum, CreateBackup:=False ActiveWorkbook.Close Savechanges:=False...

...için kullanılabilir. Özellikle otomatik yedekleme işlemleri için faydalıdır. Private Sub SaveWorkbook(filePath As String) ThisWorkbook.SaveAs filePath End Sub 5. Kullanıcıdan Girdi Alma Kullanıcıdan bilgi almak için kullanılabilir. Bu bilgi daha sonra başka işlemler için kullanılabilir...