excel 97 uzantısı

[igultekin2000]

iyi akşamlar; çalıştığım dosyayı farkıl kaydet le masa üstüne atarak , o dosyayı muhasebe programına yüklüyorum. muhasebe programı office 97 uzantısına göre işlem yapıyor. masa üstüne atılan dosyayı tekrar açarak farklı kaydet ile offis97-200 seçeneğiyle tekrar kaydettiğim zaman sorunsuz işlem yapabiliyorum. aynı uzantı gibi durmasına göre illaki farklı kaydet yapmam gerekiyor.

Private Sub CommandButton1_Click()
Klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")

Dosya_Adi = "Muhasebe"
say = CreateObject("Scripting.FileSystemObject").getfolder(Klasor).Files.Count + 1

Sheets(ActiveSheet.Name).Copy
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Klasor & "\" & Dosya_Adi & say & ".xlS", FileFormat:=51
ActiveWindow.Close
MsgBox "işlem tamam"

End Sub

 

[halit3]

Böyle denermisiniz.

ActiveWorkbook.SaveAs Klasor & "\" & Dosya_Adi & say & ".xlS", FileFormat:=-4143

 

[Haluk]

Excel97-2003 için kullanmanız gereken değer;

FileFormat:=xlExcel8

Bilgi için;

https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat


Buna göre, kullanmanız gereken kod şu şekilde;

Private Sub CommandButton1_Click()
    Klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
    
    Dosya_Adi = "Muhasebe"
    say = CreateObject("Scripting.FileSystemObject").getfolder(Klasor).Files.Count + 1
    
    Sheets(ActiveSheet.Name).Copy
    Application.DisplayAlerts = False
    ActiveSheet.DrawingObjects.Delete
    ActiveWorkbook.SaveAs Klasor & "\" & Dosya_Adi & say, FileFormat:=xlExcel8
    ActiveWindow.Close
    MsgBox "işlem tamam"
End Sub

.
.

 

[igultekin2000]

Excel97-2003 için kullanmanız gereken değer;

FileFormat:=xlExcel8

Bilgi için;

https://docs.microsoft.com/en-us/office/vba/api/excel.xlfileformat


Buna göre, kullanmanız gereken kod şu şekilde;

Private Sub CommandButton1_Click()
    Klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop")
   
    Dosya_Adi = "Muhasebe"
    say = CreateObject("Scripting.FileSystemObject").getfolder(Klasor).Files.Count + 1
   
    Sheets(ActiveSheet.Name).Copy
    Application.DisplayAlerts = False
    ActiveSheet.DrawingObjects.Delete
    ActiveWorkbook.SaveAs Klasor & "\" & Dosya_Adi & say, FileFormat:=xlExcel8
    ActiveWindow.Close
    MsgBox "işlem tamam"
End Sub

.
.

Sorunsuz çalışıyor, teşekkür ederim, bayağı faydası oldu. iyi çalışmalar.

 

[igultekin2000]

Böyle denermisiniz.

ActiveWorkbook.SaveAs Klasor & "\" & Dosya_Adi & say & ".xlS", FileFormat:=-4143

Teşekkürler, sorunsuz çalıştı, iyi çalışmalar.