Sorgu için arama sonuçları: SaveAs

Merhaba, desteğiniz için teşekkürler. Dosya yolu ve şifreyi doğru olarak giriyorum, msgbox çalışıyor ancak şifreler kalkmadı.

...= Dir(folderPath & "*.xlsx") Do While fileName <> "" Set wb = Workbooks.Open(folderPath & fileName, Password:=password) wb.SaveAs folderPath & "unlocked_" & fileName wb.Close fileName = Dir Loop MsgBox "Tüm dosyalar başarıyla şifresiz hale...

...kontrol edin.", vbCritical Exit Sub End If Cad.Visible = True ' DWG Kaydetme Cad.Application.ActiveDocument.SaveAs ActiveWorkbook.Path & "\" & Replace(ActiveWorkbook.Name, ".xlsm", ".dwg") ' Çizim ve Yakınlaştırma Cad.ActiveDocument.SendCommand "LINE " &...

...Application.ScreenUpdating = True Dim Cad As Object Set Cad = CreateObject("AutoCad.Application") Cad.Application.ActiveDocument.SaveAs ActiveWorkbook.Path & "/" & _ Replace(ActiveWorkbook.Name, ".xlsm", ".dwg") Cad.Visible = True Cad.ActiveDocument.SendCommand "Line " & koordinat & " "...

Emeğinize sağlık, teşekkür ederim. Ama bu seçenek çok zaman alacak. 17.8GB excell dosyam var. Hepsi de farklı klasörlerde ve farklı yerlerde. Sorunum tekrar ederse, önerinizi uygulayacağım. Teşekkürler. İyi çalışmalar.

...kitabını aç Set wb = Workbooks.Open(folderPath & fileName) ' Dosyayı Excel 97-2003 formatında kaydet wb.SaveAs newFolderPath & Replace(fileName, ".xlsx", ".xls"), FileFormat:=xlExcel8 ' Çalışma kitabını kapat wb.Close SaveChanges:=False...

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