Sorgu için arama sonuçları: SaveAs

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

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

...' Dosya yolu ve adı belirleyin DosyaYolu = "C:\Users\KullaniciAdi\Desktop\" & SayfaAdi & ".xlsx" ' Kaydedilecek dosyanın yolu ve adı ' Belirtilen sayfayı yeni bir dosya olarak kaydet Sheets(SayfaAdi).Copy ActiveWorkbook.SaveAs DosyaYolu ActiveWorkbook.Close False End Sub

Necdet Bey; Kod çalıştı, teşekkür ederim. Excel içindeki belli bir sayfayı kaydetmek istedim ama olmadı. Yazdığım kod altta Bunu nasıl düzeltiriz ? ThisWorkbook.Sheets("Mizan").SaveAs DosyaYolu

...değeri al DosyaYolu = Sheets("Kayıtlar").Range("B1").Value ' Dosya yolu kontrolü yap If Len(DosyaYolu) > 0 Then ' Aktif çalışma kitabını belirtilen yola kaydet ThisWorkbook.SaveAs DosyaYolu Else MsgBox "Dosya yolu belirtilmedi." End If End Sub

...If isim = Format(Date, "mmmm") & " " & Format(Date, "yyyy") & " " & okuladi & " " & " KBS YÜKLEME DOSYASI" Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56 Application.DisplayAlerts = True wbkopya.Close MsgBox ("KBS Yükleme Dosyası Oluşturuldu.")...

Merhaba Muzaffer Ali bey Şimdi benim bilgisayarda da aynı hatayı veriyor. Gönderdiğiniz kodları çalıştırınca örnek1 deki hatayı verdi. Benim mevcut kodları çalıştırınca örnek2 deki hatayı verdi. Farklı kaydedilecek sayfa yeni bir sayfada olarak oluşuyor fakat kaydetme yapmıyor.

Hata veren satırı aşağıdaki ile değiştirip deneyin. wbkopya.SaveAs yol & "\" & isim, FileFormat:=56 Eğer sorun çözülmezse hata mesajının ekran görüntüsünü paylaşın.

...kitabı içindeki bir sayfayı belirtilen adrese farklı kaydediyorum. Ama Excel'in bazı sürümlerinde kırmızı renkli kod satırında hata veriyor. Saveas yöntemi başarısız diye. Uzantıları farklı olduğundan olabilir mi. Benim kullandığım Excel 2010. Excel 2016'da bu hatayı veriyor. Farklı...

...= ".xlsb" Then FileFormatNum = 50 End If Sheets(Array("aylık")).Copy ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value ActiveWorkbook.SaveAs Klasor & Dosya_Adi & uzanti, FileFormat:=FileFormatNum ActiveWorkbook.Close SaveChanges:=False Application.ScreenUpdating = True...