Sorgu için arama sonuçları: SaveAs

...' A1 sütununu gizle wsNew.Columns("A").Hidden = True ' Yeni dosyayı kaydet Application.DisplayAlerts = False wb_New.SaveAs Filename:=folderPathWithName & ("Laufkarte") & ("_") & ActiveSheet.Range("C6").Text & ("_") & ActiveSheet.Range("C13").Text & "Pcs" &...

...MsgBox "Folder already exists" End If ActiveSheet.Copy Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=folderPathWithName & ("Laufkarte") & ("_") & ActiveSheet.Range("C6").Text & ("_") & ActiveSheet.Range("C13").Text & ("Pcs") &...

...1, vbComp.CodeModule.CountOfLines dosyaAdi = "C:\Users\Tuncer\Desktop\Teklifler\sayfa1.xlsx" ThisWorkbook.SaveAs Filename:=dosyaAdi, FileFormat:=xlOpenXMLWorkbook MsgBox "Sayfa kaydedildi ve kodlar silindi.", vbInformation End Sub Evren Gizlen Hocamızın bana...

...dosya yolunu belirleyin saveFilePath = folderPath & "Birlesmis_Dosya.xlsx" ' Yeni çalışma kitabını kaydet newWorkbook.SaveAs fileName:=saveFilePath, FileFormat:=xlOpenXMLWorkbook newWorkbook.Close MsgBox "CSV dosyaları birleştirildi ve '" & saveFilePath & "'...

...dosya yolunu belirleyin saveFilePath = folderPath & "Birlesmis_Dosya.xlsx" ' Yeni çalışma kitabını kaydet newWorkbook.SaveAs fileName:=saveFilePath, FileFormat:=xlOpenXMLWorkbook newWorkbook.Close MsgBox "CSV dosyaları birleştirildi ve '" & saveFilePath & "'...

...dosya yolunu belirleyin saveFilePath = folderPath & "Birlesmis_Dosya.xlsx" ' Yeni çalışma kitabını kaydet newWorkbook.SaveAs Filename:=saveFilePath, FileFormat:=xlOpenXMLWorkbook newWorkbook.Close MsgBox "CSV dosyaları birleştirildi ve '" & saveFilePath & "'...

Abi aynı buda dosyaları üst cevaptaki gibi orjinal csv dosyasına çevirmekte. ve malesef her dosya için onay istiyor. 400 dosya için mümkün değil.

...' Yeni dosya adını belirle newFileName = Replace(csvFile, ".csv", ".xlsx") ' Aynı konuma .xlsx olarak kaydet wb.SaveAs Filename:=csvFolder & newFileName, FileFormat:=xlOpenXMLWorkbook ' Çalışma kitabını kapat wb.Close False ' Sonraki CSV...

...Yeni dosya adını belirle newFileName = Replace(csvFile, ".csv", ".xlsx") ' Aynı konuma .xlsx olarak kaydet wb.SaveAs Filename:=csvFolder & newFileName, FileFormat:=xlOpenXMLWorkbook ' Çalışma kitabını kapat wb.Close False '...

sutunları csv dosyası (;) ile ayrılmamış. Dış kaynaktan veri alıyoruz bu dosyayı csv olarak kaydederken bildiğimiz excel.deki sutunlar olarak her veri ayrı sutuna kaydediliyor. Burada nasıl yol izleriz.

wb.SaveAs ad & "\" & fs.GetBaseName(dosya) & "." & uzanti2, FileFormat:=FileFormatNum '6 '-4158 'xlText burada hata veriyor nedendir

Abi harikasınız, çok işime yarayacak birşeydi. Ama ([ baştaki CODE]Sub ConvertCSVtoXLSX() ve sondaki [/CODE] yazılı yeri kopyalamadım f5basınca macro name çıktı kaydettim q diye run yaptım compile error: expected: expression diye bir yazı çıktı

...Yeni dosya adını belirle newFileName = Replace(csvFile, ".csv", ".xlsx") ' Aynı konuma .xlsx olarak kaydet wb.SaveAs Filename:=csvFolder & newFileName, FileFormat:=xlOpenXMLWorkbook ' Çalışma kitabını kapat wb.Close False '...

...edebilirsiniz veya ' en başta kullanıya Dosyanın ismini belirlemesini sağlayabilirsiniz veya ... tempSheet.Copy ActiveWorkbook.SaveAs Filename:=RaporYolAd, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False ActiveWorkbook.Close SaveChanges:=False ' Sayfayı silerken...

teşekkürler arkadaşım. ancak ilgili F1 sayfasında koşullu biçimlendirmeler var. Onları almıyor

...Set newbook = Workbooks.Add ThisWorkbook.Sheets(sayfa).Cells.Copy newbook.Sheets(1).Range("A1").PasteSpecial xlPasteValuesAndNumberFormats newbook.SaveAs fileName:=Yol ActiveWorkbook.Close Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

Necati Bey Merhaba, Kodu referansla birlikte uyguladım. Çalıştı. Ancak bazı sınıflarda tablo boş. Sadece günler yazıyor. Hata ile ilgili bir görsel ekledim. https://hizliresim.com/h1t1sro

...= True .MoveRight Unit:=wdCharacter, Count:=1 Wend End With .AutoFitBehavior (wdAutoFitWindow) End With wrdDoc.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".docx" wrdDoc.Close False Set wrdDoc = Nothing Next y wrdApp.Quit Set wrdApp = Nothing Application.StatusBar = False MsgBox...

Necati Bey emeğinize sağlık yordum sizi. Ancak sizin kodları denediğimde wrdDoc.Tables(1).AutoFitBehavior (wdAutoFitWindow) kısmında not defined hatası alıyorum. kendi kodlarımı denediğimde derslerdeki birleştirme kodu çalışmıyor. acaba neyi yanlış yapıyorum ?

...MergeTo:=.cell(j, k) End If End With Next k Next j wrdDoc.Tables(1).AutoFitBehavior (wdAutoFitWindow) wrdDoc.SaveAs ThisWorkbook.Path & "\" & Range("a" & 3).Text & ".docx" wrdDoc.Close False Set wrdDoc = Nothing wrdApp.Quit Set wrdApp = Nothing MsgBox "Belge...