Excell Formatı

[HOSTES09]

Bilgisayarımda; birden fazla, farklı formatta, binlerce excell dosyası var. Bazı verileri kopyala yapıştır yaparken, (format farklılığı yüzünden sanırım) değerler değişiyor. Bilgisayarımdaki tüm excell dosyalarını aynı anda aynı formata dönüştürmenin bir yolu var mı? Formatı değişen excell dosyalarımın içindeki değerler de değişir mi? 17 yıllık bilgilerin değişmesi beni zor duruma düşürmesin istiyorum. Yardımlarınız için şimdiden teşekkür ederim.
Örnek dosyalar ektedir.

 

[walabi]

Format, exceldeki verilerin metin, sayı, tarih gibi görünümleri ile ilgili bir konu benim bildiğim. Ancak sizin bahsettiğiniz şekil itibari ile ilgili dosyaları tek bir görünüme sokmak sanırım.

Sanırım yapılabilir , ancak sıkıntılı ve meşakketli bir iş diye düşünüyorum.

Verileri Kopyala/Yapıştır yaptığınızda formül içeren hücreleri içerik ile beraber taşımış olursunuz. Kopyala / Özel Yapıştır / Değerleri adımlarını deneyin.

 

[HOSTES09]

Format, exceldeki verilerin metin, sayı, tarih gibi görünümleri ile ilgili bir konu benim bildiğim. Ancak sizin bahsettiğiniz şekil itibari ile ilgili dosyaları tek bir görünüme sokmak sanırım.

Sanırım yapılabilir , ancak sıkıntılı ve meşakketli bir iş diye düşünüyorum.

Verileri Kopyala/Yapıştır yaptığınızda formül içeren hücreleri içerik ile beraber taşımış olursunuz. Kopyala / Özel Yapıştır / Değerleri adımlarını deneyin.

Değerleri yapıştır da denedim. 2024 olan tarih; 2028 olarak geçiyor.
Çalışma kitabı formatlarını da farklı kaydet yaparak, aynı formatta yaptım. Ama çözüm olmadı.

 

[HOSTES09]

ÇÖZDÜM...
Excell, dosya, seçenekler, kaydet sekmesinde
Dosyaları bu biçimde kaydet seçeneğinde Excell 97-2003 Çalışma Kitabı
seçtim.Kaydettim. Hepsinde de düzeldi.

 

[systran]

Kendi sorununu kendi çözen ?

 

[ccuneyt13]

Merhaba,
Sorudan soruyu anlamamıştım ama çözümünüzden soruyu anladım
Bunun için yapay zekadan bir kod alıp uyarladım.

Diyelim formatını 97-2003 yapmak istediğiniz 100 adet excel var bir klasöre bunları toplayın.
Örneğin, Masaüstünde DENEME olsun adı,
Kodda bu dosya yolu değiştirin aşağıda belirttiğim satırı.
Şunu yapıyor, içine atılan dosyaları kendisi açıp farklı kaydet yapıp değiştirilenler adında yeni bir klasör açıp içine atıyor.
Değişenler DENEME nin içinde kalmaya devam ediyor, değişmişlerde Değiştirilenler isimli klasörün içine atılmış oluyor.


17 yıllık çok fazla dosyayı tek tek değiştirmek çok zor olmayacağını düşünüp işinize yarar diye iletmek istedim.

folderPath = "C:\Users\Dosya Yolu\" ' Buraya klasör yolunu yazın sondaki \ olması gerekli.
Bu koyu yazdığım yere formatını değiştirmek istediğiniz excelleri atacağınız klasörün yolunu yazacaksınız.

Sub Excel972003()
    Dim folderPath As String
    Dim newFolderPath As String
    Dim fileName As String
    Dim wb As Workbook
Application.ScreenUpdating = False
    ' Klasör yolunu belirtin
    folderPath = "C:\Users\Dosya Yolu\" ' Buraya klasör yolunu yazın sondaki \ olması gerekli.
    newFolderPath = folderPath & "Değiştirilenler\"

    ' Değiştirilenler klasörünü oluştur
    If Dir(newFolderPath, vbDirectory) = "" Then
        MkDir newFolderPath
    End If

    ' Klasördeki ilk dosyayı al
    fileName = Dir(folderPath & "*.xlsx")

    ' Klasördeki tüm dosyaları dönüştür ve taşı
    Do While fileName <> ""
        ' Çalışma 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
       
        ' Sonraki dosyayı al
        fileName = Dir
    Loop
Application.ScreenUpdating = True
    MsgBox "Tüm dosyalar dönüştürüldü ve taşındı!"
End Sub

 

[HOSTES09]

Merhaba,
Sorudan soruyu anlamamıştım ama çözümünüzden soruyu anladım
Bunun için yapay zekadan bir kod alıp uyarladım.

Diyelim formatını 97-2003 yapmak istediğiniz 100 adet excel var bir klasöre bunları toplayın.
Örneğin, Masaüstünde DENEME olsun adı,
Kodda bu dosya yolu değiştirin aşağıda belirttiğim satırı.
Şunu yapıyor, içine atılan dosyaları kendisi açıp farklı kaydet yapıp değiştirilenler adında yeni bir klasör açıp içine atıyor.
Değişenler DENEME nin içinde kalmaya devam ediyor, değişmişlerde Değiştirilenler isimli klasörün içine atılmış oluyor.


17 yıllık çok fazla dosyayı tek tek değiştirmek çok zor olmayacağını düşünüp işinize yarar diye iletmek istedim.

folderPath = "C:\Users\Dosya Yolu\" ' Buraya klasör yolunu yazın sondaki \ olması gerekli.
Bu koyu yazdığım yere formatını değiştirmek istediğiniz excelleri atacağınız klasörün yolunu yazacaksınız.

Sub Excel972003()
    Dim folderPath As String
    Dim newFolderPath As String
    Dim fileName As String
    Dim wb As Workbook
Application.ScreenUpdating = False
    ' Klasör yolunu belirtin
    folderPath = "C:\Users\Dosya Yolu\" ' Buraya klasör yolunu yazın sondaki \ olması gerekli.
    newFolderPath = folderPath & "Değiştirilenler\"

    ' Değiştirilenler klasörünü oluştur
    If Dir(newFolderPath, vbDirectory) = "" Then
        MkDir newFolderPath
    End If

    ' Klasördeki ilk dosyayı al
    fileName = Dir(folderPath & "*.xlsx")

    ' Klasördeki tüm dosyaları dönüştür ve taşı
    Do While fileName <> ""
        ' Çalışma 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
      
        ' Sonraki dosyayı al
        fileName = Dir
    Loop
Application.ScreenUpdating = True
    MsgBox "Tüm dosyalar dönüştürüldü ve taşındı!"
End Sub

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.