arşivleme işlemi

sinemomec · 2 Ocak 2023

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

Kod:

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 · 2 Ocak 2023

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

tukayf · 2 Ocak 2023

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 · 2 Ocak 2023

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 · 2 Ocak 2023

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 · 2 Ocak 2023

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

tukayf · 2 Ocak 2023

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 · 2 Ocak 2023

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

Kod:

Set oWSHShell = Nothing

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

sinemomec · 2 Ocak 2023

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 · 2 Ocak 2023

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

sinemomec · 2 Ocak 2023

onuda yaptım bir düzelme olmadı.