Sorgu için arama sonuçları: SaveAs

Merhaba. Tam anlatamadım sanırım. (Ya da ben sizi anlayamadım) Benim raporu hazırlayan xlsm uzantılı bir Excelim var. Butona bastığımda sekmedeki butonları kaldırıp, N1:N8 arasındaki yazıları silip, xlsx uzantısıyla sadece rapor olarak kaydetmesini istiyorum. (VBA dosyasını da silip) Buton...

Merhaba. Önceki sürümlerde çalışması için *.xls formatında kaydetmelisiniz ve dosya biçimini de belirtmelisiniz. Örnek: ActiveWorkbook.SaveAs Filename:=DosyaAdi & ".xls", FileFormat:=xlExcel8

...Sub CommandButton2_Click() DosyaAdi = Range("d5") Application.DisplayAlerts = False Sheets("Rapor").Copy ActiveWorkbook.SaveAs (DosyaAdi & ".xlsx") Sheets("Rapor").Shapes(1).Delete Sheets("Rapor").Range("N1:N8").ClearContents Sheets("Rapor").Shapes(1).Delete...

bende bunu anlatmaya çalışıyordum. Teşekkürler

...komutu, mevcut dosyanın belirlenen ad ve konumda bir kopyasını oluştururken, dosyayı açık bırakması açısından farklı bir işlev sunar. SaveAs ise dosyanın adını ve konumunu değiştirerek mevcut dosyayı yeni adla kaydedip kapatır.İki şekildede kullanılabilir. Eğer mevcut çalışma dosyanızın...

hocam kodunuzda yeniDosya.SaveAs yerine yeniDosya.SaveCopyAs şeklinde yazılsa daha işlevsel. sizin SaveCopyAs ile dosyanın kopyasını istediği isimle oluşturur. Hali hazırda daha önce açtığı excel dosyası hala açık kalır. SaveAs te ise daha önce açtığı excel dosyası kapanır. yeni dosya açılmış...

Sub SaveAsCemWithoutMacro() Dim dosyaAdi As String Dim masaustu As String Dim hedefKlasor As String Dim tamDosyaYolu As String Dim yeniDosya As Workbook dosyaAdi = Trim(Range("A1").Value) If dosyaAdi = "" Then MsgBox "A1 hücresine bir dosya adı giriniz!"...

Merhaba, teşekkürler yanıtınız için ancak aynısı oldu. Şifre kaldırma işlemi tamamlandı. yazıyor ve değişen bir şey yok.

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