Sorgu için arama sonuçları: SaveAs

...Paste:=xlPasteValues Application.CutCopyMode = False Range("A1").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=RaporYolAd, FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True ActiveWorkbook.Close SaveChanges:=False Application.ScreenUpdating = True...

...Paste:=xlPasteValues Application.CutCopyMode = False Range("A1").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=RaporYolAd, FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True ActiveWorkbook.Close SaveChanges:=False Application.ScreenUpdating = True '...

...' Yeni dosyaya ad verin ve kaydedin fileName = baseFileName & "_Part_" & startRow & "_to_" & endRow & ".xlsx" newWorkbook.SaveAs ThisWorkbook.Path & "\" & fileName ' Yeni dosyayı kapatın newWorkbook.Close False ' Sonraki bölüm için...

...' Yeni dosyaya ad verin ve kaydedin fileName = "Data_Part_" & startRow & "_to_" & endRow & ".xlsx" newWorkbook.SaveAs ThisWorkbook.Path & "\" & fileName ' Yeni dosyayı kapatın newWorkbook.Close False ' Sonraki bölüm için başlangıç...

...Call HataTXT(inputFilePath, "Dosya TAŞINMIŞ") ' TAŞINMIŞ dosyayı GERİ YERİNE KOY ActiveWorkbook.SaveAs Filename:=targetPath ' KısaYol oluştur Call ShortcutFile(currentPath, targetPath) ActiveWorkbook.Saved...

....Cells(1, 1).PasteSpecial Paste:=xlPasteValues .Cells(1, 1).PasteSpecial Paste:=xlPasteFormats End With TempWB.SaveAs TempFile, xlHtml TempWB.Close False Set fso = CreateObject("Scripting.FileSystemObject") Set ts = fso.OpenTextFile(TempFile, 1) ' 1 =...

Selamlar, run-time error '1004' hatası veriyor ve maili göndermiyor. debug dediğimde aşağıdaki kodları sarı olarak gösteriyor. With TempWB.PublishObjects.Add( _ SourceType:=xlSourceRange, _ Filename:=TempFile, _ Sheet:=TempWB.Sheets(1).Name, _...

...ExcelDosyaYolu = Environ$("temp") & "\ExcelEki_" & Format(Now, "dd-mm-yy h-mm-ss") & ".xlsx" ThisWorkbook.SaveAs ExcelDosyaYolu EmailItem.Attachments.Add ExcelDosyaYolu EmailItem.Send Application.Wait (Now + TimeValue("0:00:05")) Kill ExcelDosyaYolu End Sub...

...= rangetoHTML(myRange) ExcelDosyaYolu = Environ$("temp") & "\ExcelEki_" & Format(Now, "dd-mm-yy h-mm-ss") & ".xlsx" ThisWorkbook.SaveAs ExcelDosyaYolu EmailItem.Attachments.Add ExcelDosyaYolu EmailItem.Send Application.Wait (Now + TimeValue("0:00:05")) ' 5...

çok teşekkür ederim. Bunu uyguladığımda maili gönderiyor ama run-time error'70': permission denied hatası veriyor.debug dediğimde Kill ExcelDosyaYolu sarı ile işaretli. mail gitmesinde bir sıkıntı yok ama bu sonra sorun çıkarır mı bilmiyorum. birde mail giderken sadece excel eki olarak...

...= rangetoHTML(myRange) ExcelDosyaYolu = Environ$("temp") & "\ExcelEki_" & Format(Now, "dd-mm-yy h-mm-ss") & ".xlsx" ThisWorkbook.SaveAs ExcelDosyaYolu EmailItem.Attachments.Add ExcelDosyaYolu EmailItem.Send Application.Wait (Now + TimeValue("0:00:05")) ' 5...

..."00") & Format(Month(Now), "00") & Year(Now) & "_" & _ Format(Hour(Now), "00") & ":" & Format(Minute(Now), "00") ActiveWorkbook.SaveAs Filename:="D:\CKS\" & DosyaAdi ActiveWindow.ActivateNext Application.DisplayAlerts = False ' ActiveWindow.Close MsgBox "Yedekleme işlemi...

..."00") & Year(Now) & "_" & _ Format(Hour(Now), "00") & Format(Minute(Now), "00") & Format(Second(Now), "00") ActiveWorkbook.SaveAs Filename:="D:\CKS\" & dosyaAdi ActiveWindow.ActivateNext Application.DisplayAlerts = False ActiveWindow.Close End Sub

...eklemek istiyorum bunu nasıl yapabilirim? Sub Yedekle() On Error Resume Next ChDrive ("D") MkDir "D:\CKS" ChDir "D:\CKS" ActiveWorkbook.SaveAs Filename:="Yedek_" & Format(Day(Now), "00") & Format(Month(Now), "00") & Year(Now) ActiveWindow.ActivateNext Application.DisplayAlerts = False...

...On Error Resume Next Dim DosyaAdi As String DosyaAdi = Format(Date, "dd mmmm yyyy dddd") & " " & " - TEST " & ".xlsb" ThisWorkbook.SaveAs Filename:="C:\Users\Monster\Desktop\PROJE TEST\" & DosyaAdi, FileFormat:=xlExcel12 Dim vbComp As VBComponent Dim compName...

HOCAM SAYGILAR TÜM SAYFAYI KOPYALADI

...Paste:=xlPasteValues Application.CutCopyMode = False Range("A1").Select Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=RaporYolAd, FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = True ActiveWorkbook.Close SaveChanges:=False...

Öncelikle eline sağlık. ilk başta bu hatayı verdi bunu halletim ancak Verileri sağlıklı çıkarmıyor hocam @pitchoute

...Paste:=xlPasteAll wsNew.Range("A1").PasteSpecial Paste:=xlPasteFormats Application.DisplayAlerts = False wb_New.SaveAs Filename:=folderPathWithName & ("Laufkarte") & ("_") & ActiveSheet.Range("C7").Text & ("_") & ActiveSheet.Range("C15").Text & ("Pcs") &...

...' A1 sütununu gizle wsNew.Columns("A").Hidden = True ' Yeni dosyayı kaydet Application.DisplayAlerts = False wb_New.SaveAs Filename:=folderPathWithName & ("Laufkarte") & ("_") & ActiveSheet.Range("C6").Text & ("_") & ActiveSheet.Range("C13").Text & "Pcs" &...