Sorgu için arama sonuçları: SaveAs

...= Format(Now, "hh.mm.ss") Set ws1 = Sheets(Format(Now, "hh.mm.ss")) ' Excel dosyasını kaydet ws1.Copy ActiveWorkbook.SaveAs "C:\" & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xlsx" ActiveWorkbook.Close False ' CSV dosyasını kaydet...

...= ActiveSheet.UsedRange.Value----- Filename = "C:\ " & isim & " " & Format(Now, "DD.MM.YYYY hh.mm.ss") & ".xlsx" ActiveWorkbook.SaveAs Filename, FileFormat:=xlOpenXMLWorkbook ActiveWorkbook.Close False Set TargetWorkbook = CreateObject("Excel.Application") TargetWorkbook.Workbooks.Add...

...2)).Value = bslk .Range("A2").Resize(UBound(dz), UBound(dz, 2)).Value = dz .Columns("A:H").AutoFit End With b = b + 1 w1.SaveAs Filename:=yol & "Stok" & b & ".xls", FileFormat:=xlExcel8 w1.Close 0 Next Application.ScreenUpdating = True MsgBox "İşlem tamam" End Sub

...' Dizin yoksa oluştur If Not fs.FolderExists(folderPath) Then fs.CreateFolder folderPath End If ' Taslağı belirli dizine kaydet mailItem.SaveAs folderPath & "\" & "ExcelToPDFDraft.msg" ' Nesneleri serbest bırak Set fs = Nothing End Sub

...As String DosyaAdi = Format(Date, "dd mmmm yyyy dddd") & " " & " - TEST " & ".xlsb" ActiveWorkbook.Save ThisWorkbook.Save ThisWorkbook.SaveAs Filename:="C:\Users\Monster\Desktop\PROJE TEST\" & DosyaAdi, FileFormat:=xlExcel12 Call ANATABLOYAGIT Call Delete_Module ActiveWorkbook.Save...

Eğer hem orijinal dosyadaki kodları silmek ve hem de farklı kaydet ile bir kopyasını almak isterseniz. ThisWorkbook.SaveAs Filename:="d:\Desktop\" & DosyaAdi, FileFormat:=xlExcel12 satırını silmeyin aşağıdaki gibi bir üst satırda dosyayı kaydedebilirsiniz. ThisWorkbook.Save ThisWorkbook.SaveAs...

Module32 de bulunan "FARKLIKAYDETTEST" kodu içinde bulunan ThisWorkbook.SaveAs Filename:="d:\Desktop\" & DosyaAdi, FileFormat:=xlExcel12 Satırı dosyayı masaüstüne farklı kaydediyor. Orijinal dosyadaki kodların hiçbiri silinmemiş oluyor. Orijinal dosyayı farklı kaydetmek yerine normal kaydetmek...

Merhaba sayın hocam bu kodu çalıştırdığımda sadece son sayfaki veriyi ayrı sayfaya kaydediyor. Diğer sayfalar hiç olmuyor. Bir yerde mi yanlışlık yapıyorum acaba? Teşekkürler şimdiden.

...= Sheets("MKTT").Range("b5").Value & " " & Sheets("MKTT").Range("b6").Value & " " & Sheets("MKTT").Range("b7").Value & " " & Sheets("MKTT").Range("b8").Value Application.DisplayAlerts = False wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56 Application.DisplayAlerts = True wbkopya.Close

...Error GoTo 0 ' Hedef dosya yoksa oluştur If hedefKitap Is Nothing Then Set hedefKitap = Workbooks.Add hedefKitap.SaveAs dosyaYolu End If Dim satir As Long Dim hedefSatir As Long Dim ws As Worksheet ' Her bir çalışma kitabını kontrol...

Ömerbey hocam, Doğru mu anladım.ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(DateAdd("M",-1,Date), "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True Yok eğer bu tanım değişkenler tanımlanırken yapılacak ise hangi satırda. Bu iş ne kadar bildiğimi\bilmediğimi şöyle...

Merhaba, Dosyanız bu satırda isimlendirilip kaydediliyor. Buradaki Date ifadesinde değişiklik yapmanız gerekiyor. ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True Bir ay öncesi için DateAdd("M",-1,Date) ifadesini...

...Range("A1").PasteSpecial Range("A1").Select Columns.AutoFit Say = Say + 1 ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.Close 0...

...görmüştüm, FileFormat:=xlCSV, Local:=True olarak değiştirdiğimde sonuç aldım. Tekrar çok teşekkür ederim. Bu arada faydalanan olur düşüncesiyle kodun son halini aşağıya yazıyorum. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(39, 1).Text & ".csv", FileFormat:=xlCSV, Local:=True

Merhaba. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(3, 4).Text & ".csv", FileFormat:=xlCSVUTF8

ActiveWorkbook.SaveAs Filename:= ThisWorkbook.Path & "\" & Cells(3, 4).Value & ".xlsm" Yukarıdaki kod Korhan bey'e ait. Benim ihtiyacım yol ve dosya adı yukarıdaki kod ile aynı, yalnız formatı xlsm değil "csv" olarak nasıl kaydedebilirim.

Necdet Hocam 2016 türkçe ile çalıştırmak ne yapmalıyız? Dosya yolu doğru değil hatası verdi.

Ancak ben hücreleri seçmek istemiyorum sarı ile boyadığım hücreler zaten sabit kendisi seçip göndermesini istiyorum birde maile excell dosyası olarak değilde direk yapıştırmasını nasıl sağlayabilirim

...= -4143 Else 'You use Excel 2007 FileExtStr = ".xlsx": FileFormatNum = 51 End If With Dest .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next .SendMail "", _ "This is the...

Korhan hocam, yukarıdaki kodu "dosya adını" hücreden al olarak uyarlamak istedim, her zamanki gibi beceremedim. Benim kaydedeceğim dosya csv formatında. Yardımınızı rica ediyorum. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Cells(1, 20).Value & ".csv", FileFormat:=xlCSV, Local:=True