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

Merhabalar, excel olarak kaydetme kısmında hata verdi neden kaynaklanabilir acaba

hocam merhabalar bu kod kendi bilgisayarımda çalışırken, diğer bilgisayarlarda "Path not found" hatası verip biçimi atmıyor diğer bilgisayarlarada "123" renk özelleştirmesini yapmamıza rağmen neden kaynaklanıyor olabilir hata

...ws.Columns("I:" & ws.Columns(sonSutun).Address(False, False)).Delete End If 'Dosyayı kaydet hedefDosya.SaveAs Filename:=kayitYolu & PRODUCT_CODE & ".xlsx" hedefDosya.Close SaveChanges:=False Next PRODUCT_CODE ' Filtreyi temizle...

Hocam teşekkürler; yeni dosyada yer alan sayfanın isminin de combobox1 de yazan veri olsa nasıl değiştirebiliriz

Merhaba, Deneyiniz... Dim d_adi As String d_adi = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\ROOM DATA\" & ComboBox2.Value & ".xlsx" 'If Dir(d_adi) <> "" Then Kill d_adi Sheets("Format").Copy ActiveWorkbook.SaveAs d_adi, xlOpenXMLWorkbook ActiveWorkbook.Close 0

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