Sorgu için arama sonuçları: SaveAs

Çok teşekkür ederim. Korhan Hocama teşekkür ederken vakit kaybetmişim, cevabınızı yeni gördüm. Her iki kodu ayrı ayrı denedim, gayet güzel çalışıyor, sağolun.

Yine KORHAN Hocam. Çok teşekkür ederim.

...filePath = folderPath & "ÖIŞIK-2025" & "_" & Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, FileFormat:=xlCSV, CreateBackup:=False, Local:=True newWb.Close SaveChanges:=False Next startRow Application.DisplayAlerts = True...

...oluştur filePath = folderPath & baseName & "_" & Format(partIndex, "00") & ".csv" ' CSV olarak kaydet newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, _ Local:=True...

...filePath = folderPath & "ÖIŞIK-2025" & "_" & _ Format(partIndex, "00") & ".csv" newWb.SaveAs Filename:=filePath, _ FileFormat:=xlCSV, _ CreateBackup:=False, local:=True newWb.Close SaveChanges:=False Next...

...Set wbYeni = dictDosya(key) wbYeni.Sheets("Veriler").Columns("A:H").AutoFit Application.DisplayAlerts = False wbYeni.SaveAs Filename:=key & ".xlsx", FileFormat:=51 Application.DisplayAlerts = True wbYeni.Close False Next key MsgBox "İşlem...

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

...Range("A1").Select 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...

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