Farklı Kaydet Sorunu

[ahmed_ummu]

Merhaba arkadaşlar

Aşağıdaki kodlar ile Çalışma kitabı içindeki bir sayfayı belirtilen adrese farklı kaydediyorum. Ama Excel'in bazı sürümlerinde kırmızı renkli kod satırında hata veriyor. Saveas yöntemi başarısız diye. Uzantıları farklı olduğundan olabilir mi. Benim kullandığım Excel 2010. Excel 2016'da bu hatayı veriyor. Farklı kaydedilecek sayfayı oluşturuyor ama kaydetmiyor. Yardımcı olursanız çok sevinirim.


okuladi = Sheets("sabitler").Range("e5").Value
Set fso = CreateObject("scripting.filesystemobject")
Set wbmevcut = ActiveWorkbook
Sheets(Array("dışarıücr")).Copy
Set wbkopya = ActiveWorkbook

yol = Environ("USERPROFILE") & "\Desktop\OKUL-MUHASEBE_BÜRO_KLASÖRLERİ\ÜCRETLİ_ÖĞRETMEN_PUANTAJLARI"
If Not fso.FileExists(yol) Then
On Error Resume Next
MkDir (yol)
On Error GoTo 0
End If

isim = okuladi

Application.DisplayAlerts = False
wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56
Application.DisplayAlerts = True
wbkopya.Close
MsgBox okuladi & " okuluna ait Ücretli Öğretmen Yükleme Dosyası Oluşturuldu."

 

[Muzaffer Ali]

Hata veren satırı aşağıdaki ile değiştirip deneyin.

wbkopya.SaveAs yol & "\" & isim, FileFormat:=56

Eğer sorun çözülmezse hata mesajının ekran görüntüsünü paylaşın.

 

[ahmed_ummu]

Hata veren satırı aşağıdaki ile değiştirip deneyin.

wbkopya.SaveAs yol & "\" & isim, FileFormat:=56

Eğer sorun çözülmezse hata mesajının ekran görüntüsünü paylaşın.

Merhaba Muzaffer Ali bey Şimdi benim bilgisayarda da aynı hatayı veriyor. Gönderdiğiniz kodları çalıştırınca örnek1 deki hatayı verdi. Benim mevcut kodları çalıştırınca örnek2 deki hatayı verdi.

Farklı kaydedilecek sayfa yeni bir sayfada olarak oluşuyor fakat kaydetme yapmıyor.

 

[ahmed_ummu]

Aşağıdaki kod ile de başka bir sayfayı belirtilen adrese farklı kaydet işlemi yapıyor ama onda bir sorun olmuyor ve farklı kaydediyor.

okuladi = Sheets("sabitler").Range("e5").Value
Set fso = CreateObject("scripting.filesystemobject")
Set wbmevcut = ActiveWorkbook
Sheets(Array("YÜKLEME")).Copy
Set wbkopya = ActiveWorkbook

yol = Environ("USERPROFILE") & "\Desktop\OKUL_MUHASEBE_BÜRO_KLASÖRLERİ\KBS_YÜKLEME"
If Not fso.FileExists(yol) Then
On Error Resume Next
MkDir (yol)
On Error GoTo 0
End If

isim = Format(Date, "mmmm") & " " & Format(Date, "yyyy") & " " & okuladi & " " & " KBS YÜKLEME DOSYASI"

Application.DisplayAlerts = False
wbkopya.SaveAs yol & "\" & isim & ".xls", FileFormat:=56
Application.DisplayAlerts = True
wbkopya.Close
MsgBox ("KBS Yükleme Dosyası Oluşturuldu.")
End Sub

 

[Muzaffer Ali]

Dosyayı paylaşma imkanı varsa paylaşın kontrol edelim.
Eğer paylaşamıyorsanız.
On Error Resume Next ve On Error GoTo 0 satırlarını silin ve hiçbir zaman bunları kullanmayın.
Bu satırlar hataları görmezden gelmeye yarıyor ve sorunları çözmeyi zorlaştırıyor.

 

[ahmed_ummu]

Dosyayı paylaşma imkanı varsa paylaşın kontrol edelim.
Eğer paylaşamıyorsanız.
On Error Resume Next ve On Error GoTo 0 satırlarını silin ve hiçbir zaman bunları kullanmayın.
Bu satırlar hataları görmezden gelmeye yarıyor ve sorunları çözmeyi zorlaştırıyor.

Dosyam gönderiyorum Muzaffer Alim bey

OKUL_MUHASEBE_BÜRO_KLASÖRLERİ klasörü masaüstünde olacak. A_OKUL_MUHASEBE_BÜRO_64_BİT ise çalışma kitabı
VBA penceresi şifresi 14539966

Userform19 da Label590'da kodlar. "Puantaj Oluştur" isimli label. Çalışma kitabınıda bulunan "dışarıstj" sayfasını Masaüstündeki OKUL_MUHASEBE_BÜRO_KLASÖRLERİ klasöründeki "STAJYER_ÖĞRENCİ_PUANTAJLARI" klasörüne farklı kaydedecek.

 

[Muzaffer Ali]

okuladi = Sheets("sabitler").Range("e5").Value

Sabitler sayfasın E5 hücresi boş olduğu için hata veriyor.

 

[ahmed_ummu]

okuladi = Sheets("sabitler").Range("e5").Value

Sabitler sayfasın E5 hücresi boş olduğu için hata veriyor.

Anladım Muzaffer Ali bey. Çok teşekkür ederim. Okullar kendi okul adın yazsın diye boş bırakmıştım.