Sorgu için arama sonuçları: SaveAs

...Dim ws As Worksheet Application.DisplayAlerts = False For Each ws In ThisWorkbook.Worksheets ws.Copy ws_name = ws.Name ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & ws_name ActiveWorkbook.Close Next ws Application.DisplayAlerts = True End Sub Sıra Özellik Açıklama Miktar Birim...

. Teşekkür ederim.

...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 End If Next...

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

...+ 1 dosya_adi = ThisWorkbook.Path & "\word dosya" & " " & sat1 & ".doc" wrdApp.ActiveDocument.SaveAs dosya_adi wrdDoc.Close wrdApp.Quit SaveChanges:=wdSaveChanges Set klasor = Nothing MsgBox "işlem tamam" Else atla: MsgBox "Lütfen Kaynak Klasör Seçimini Yapınız !", vbInformation, "DİKKAT"...

Evet, sonuç dört dörtlük tamam. Yardımcı oldunuz, çok teşekkür ederim.

Merhaba, Kullandığınız kodun farklı kaydet satırına "local:=True" eklemeniz yeterli olacak. Şu şekilde deneyin. newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, local:=True

...Columns.AutoFit Say = Say + 1 'BU KOD ÇALIŞIYOR, ALTTAKİNİ DENEYECEĞİZ ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" & Format(Date, "yyyy_mm") & "_" & Say & " .csv", FileFormat:=xlCSV, Local:=True ActiveWorkbook.SaveAs File_Path & "\" & "GELENNA_" &...

Maalesef yine text dosyası gibi kaydetti. Tek sütunlu kayıt yaptı. İlginize teşekkür ederim. Önerilerinizi bekliyorum. Kesinlikle acil değil.

...filePath = folderPath & baseName & "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False newWb.Close SaveChanges:=False Next startRow...

...filePath = folderPath & baseName & "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False newWb.Close SaveChanges:=False Next startRow...

...Filename:=Kitap_Adı Else deg1 = 1 deg2 = 1 Workbooks.Add For i = Sheets.Count To 2 Step -1 Worksheets(i).Delete Next ActiveWorkbook.SaveAs Filename:=Dosya_Yolu & "\" & Sayfa_Adı, _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False End If For k = 1 To 2 S2.Range("C3:C5").ClearContents...

...Taslak.Copy After:=WB.Sheets(WB.Sheets.Count) WB.Sheets(WB.Sheets.Count).Name = Taslak.Range("A2").Value WB.SaveAs File_Path & "DENEME.xlsx", xlOpenXMLWorkbook WB.Close Set Taslak = Nothing Set S1 = Nothing Set WB = Nothing Set FSO = Nothing With...

...Len(isim)) Then say = say + 1 End If Next If say > 0 Then isim = isim & say ActiveSheet.Name = isim Sheets(1).Select ActiveWorkbook.SaveAs Kitap_Adı ActiveWorkbook.Close False Application.DisplayAlerts = True Else S2.Copy Application.DisplayAlerts = False ActiveSheet.Name = isim...

...= isim Dosya_Yolu = CreateObject("Wscript.Shell").SpecialFolders.Item("Desktop") & "\EXCEL\" & Kitap_Adı Application.DisplayAlerts = False ActiveWorkbook.SaveAs Dosya_Yolu ActiveWorkbook.Close False Application.DisplayAlerts = True Set S2 = Nothing Application.ScreenUpdating = True...

...= S1.Range("C9:C10").Value WB.Sheets(2).Name = S1.Range("A7").Value WB.Sheets(1).Select WB.SaveAs File_Path & "DENEME", xlOpenXMLWorkbookMacroEnabled WB.Close Set S1 = Nothing Set WB = Nothing Set FSO = Nothing With Application...

...olarak Downloads klasörümün altına kaydettim. Sheets("TASLAK").Select Sheets("TASLAK").Copy ChDir "C:\Users\cakma\Downloads" ActiveWorkbook.SaveAs Filename:="C:\Users\cakma\Downloads\deneme1.xlsx", _ FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False...

...& "\EXCEL\" & Kitap_Adı Application.DisplayAlerts = False ActiveWorkbook.SaveAs Dosya_Yolu ActiveWorkbook.Close False Application.DisplayAlerts = True Set Dosya_Sistemi = Nothing Set S1 = Nothing Set S2 = Nothing Application.ScreenUpdating =...

Bu hali benim açımdan çok daha kullanışlı oldu, teşekkürler zahmetiniz için.

Teşekkürler,