arşivleme işlemi

[sinemomec]

office2010 hata almazsan 2007 böyle bir hata alıyorum sebebi nedir.


Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

Private Sub cmdarşiv_Click()

Sheets("GELENEVRAK").PageSetup.Orientation = xlLandscape
Sheets("GELENEVRAK").PageSetup.Zoom = 77
Sheets("GELENEVRAK").PageSetup.RightHeader = "HALKAPINAR SOSYAL YARDIMLAŞMA VE DAYANIŞMA VAKFI BAŞKANLIĞI GELEN EVRAK LİSTESİ"
Sheets("GELENEVRAK").PageSetup.LeftFooter = Format(Date, "dd/mm/yyyy")
Dim oWSHShell As Object


sor = MsgBox("ARŞİVLEME İŞİ YIL SONU OLARAK YAPILMALIDIR." & vbLf & "AKSİ TAKDİRDE HATALI İŞLEM YAPILMIŞ OLACAKTIR.", vbYesNo + vbInformation, "BİLDİRİ")
If sor = vbNo Then Exit Sub



sor = MsgBox("GELEN EVRAK LİSTESİ ARŞİVLEME YAPILSINMI?" & vbLf & " ARŞİVLEME İŞLEMİ SONUCU TÜM VERİ SIFIRLANACAKTIR!", vbYesNo + vbInformation, "BİLDİRİ")
If sor = vbNo Then Exit Sub

Set oWSHShell = CreateObject("WScript.Shell")
Klasor = oWSHShell.SpecialFolders("Desktop")
Set oWSHShell = Nothing
Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
Sheets("GELENEVRAK").Range("A2:H" & Rows.Count).ClearContents
End Sub

 

[sinemomec]

yardımınızı bekliyorum bir çözüm bulamamadım.

 

[tukayf]

Merhabalar. 2007 için sorunlu bir sürüm olduğuna dair bir çok yerde yorum okumuştum. Hata veren satır hangisi en azından dosyanızın bir kısmını paylaşabilirseniz muhakkak üstatlar bir çözüm üreteceklerdir.

 

[sinemomec]

Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False




bu kısım hata vermektedir.

 

[tukayf]

Tam emin olmamakla birlikte 2007'de pdf kaydetme yoktu o nedenle hata veriyor. Ama çözümü nedir bende bilmiyorum.
Edit:

şöyle bir şey buldum. Bir çok link engelli bende. Bir inceleyiniz. Belki kodda değişiklik yapmadan çözüm bulunabilir.

 

[sinemomec]

2010 bir sorun yaşamadım ancak 2007 hata veriyor

 

[tukayf]

2007 için olan eklentiyi indirip kurar mısınız belki kodda değişiklik yapmadan çözüm olur sorununuza. 2007 de hata vermesi çok normal. Çünkü 2007 de ofis için pdf kaydet olayı yokmuş. Bu nedenle eklenti geliştirilmiş.

 

[necati]

2007' de denedim, bir hata vermedi. Ancak mantıken

Set oWSHShell = Nothing

satırının kodun en sonunda olması gerek.

 

[sinemomec]

tüm kodun en sonunda mı


Set oWSHShell = Nothing olması lazım yoksa



Sheets("GELENEVRAK").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Klasor & "\GELEN EVRAK KAYIT " & Format(Now, "yyyymmdddd hhmmss") & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False

burdamı olması lazım

 

[necati]

End sub satırından bir önce olabilir.

 

[sinemomec]

onuda yaptım bir düzelme olmadı.