Sorgu için arama sonuçları: SaveAs

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

...arşiv\onayli sayac\" FileName = ActiveSheet.Range("A1") ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs FileName:=path & FileName, FileFormat:=51 ActiveSheet.Shapes("CommandButton1").Delete ActiveSheet.Shapes("CommandButton2").Delete...

...kaydetme yolu aşağıdaki gibi biz bu dosyayı bir çok bilgisayarda kullanıyoruz. Ama sadece ALİKARA oturumunda çalışıyor. ActiveWorkbook.SaveAs "c:\Users\ALİKARA\Desktop\" + Format(Date, "dd/mm/yyyy") + " Sigorta şirketine gönderilecek.xlsx" Dosya yolunda yer alan ALİKARA YERİNE...

...musunuz ? ", vbYesNo, "Farklı Kaydet") = vbYes Then Set wb = ActiveWorkbook Sheets("Sheet1").Copy ActiveWorkbook.SaveAs Filename:= _ "C:\Users\060368\Documents\" & fName & ".xlsm" _ ...

Merhaba, İlginiz için teşekkür ederim. Kodu denedim, fakat şöyle bir durum var. Makro çalıştığında öncesinde sadece uyarı kodu geliyordu, kaydetme ekranı hiç görünmeden kaydedilmiştir yazıyordu ve dosya kaydedilmiş oluyordu. Şimdi ilettiğiniz kod ile, ilgili sayfayı farklı bir excel çalışma...

...musunuz ? ", vbYesNo, "Farklı Kaydet") = vbYes Then Set wb = ActiveWorkbook Sheets("Sheet1").Copy ActiveWorkbook.SaveAs Filename:= _ "C:\Users\060368\Documents\" & Range("D7") & ".xlsm" _ ...

...see if cancel button selected If iResponse = vbNo Then End If If iResponse = vbYes Then ActiveWorkbook.SaveAs Filename:= _ "C:\Users\060368\Documents\" & Range("D7") & ".xlsm" _ , FileFormat:=xlOpenXMLWorkbookMacroEnabled...