Farklı Bilgisayarlarda Kapalı Dosya Açma Sorunu

[Feylosof]

İyi günler diliyorum.

Private Sub CommandButton4_Click()
'On Error GoTo hata

    Dim XL_App As Object, WB As Object
    
    Set XL_App = VBA.CreateObject("Excel.Application")
    XL_App.Visible = False
    
    Set WB = XL_App.Workbooks.Open(ThisWorkbook.Path & "\" & ComboBox1.Value)
    WB.Worksheets(Label5.Caption).PrintOut
    
    WB.Close 0
    XL_App.Quit
    
    Set WB = Nothing
    Set XL_App = Nothing
'hata: MsgBox Label5.Caption & " " & "ayı bulunamadı"

End Sub

Sayın @Korhan Ayhan yazmıştı bu kodu. Evdeki bilgisayarda sorunsuz çalıştığı halde okuldaki bilgisayarda resimdeki hatayı veriyor. Neden olabilir acaba. Her iki bilgisayarda da office2010 32 bit yüklü

 

[Muzaffer Ali]

Merhaba.
Okuldaki Office, 2003 yada daha eski bir sürüm olmalı.
Sadece "xls"uzantılı dosyaları açabiliyor.
Dosyayı evde farklı kaydet seçeneği ile "xls" uzantılı olarak kaydedip okula götürüp deneyin.

 

[Feylosof]

@Muzaffer Ali Bey ilginiz için teşekkür ederim. Her iki bilgisayarda da 2010 32 bit yüklü olduğu için bu kısmı hiç düşünmedim. Daha önce de bu bilgisayarlara farklı sürüm yüklenmedi.

 

[Muzaffer Ali]

DYK_ARSIV.xlsm dosyasını siz kendiniz manuel açınca herhangi bir hata veriyor mu?

 

[Feylosof]

DYK_ARSIV.xlsm dosyasını siz kendiniz manuel açınca herhangi bir hata veriyor mu?

Herhangi bir hata vermiyor hocam. Sorunsuz dosya.

 

[Muzaffer Ali]

Kodda herhangi bir sorun yok.
Başka ne gibi bir sorun olabileceğini bilemiyorum.

 

[Feylosof]

Kodda herhangi bir sorun yok.
Başka ne gibi bir sorun olabileceğini bilemiyorum.

Hocam çok garip bir durum oldu. Klasörün içine xls olarak kaydettim açtı. xlsm dosyasını sildim bu sefer xls açmadı. Hem xlsm hem de xls dosyalarının ikisi olursa açıyor.

 

[Muzaffer Ali]

Dosyalarınızı paylaşırsanız kontrol edeyim.

 

[Feylosof]

Hocam buyrun

 

[Muzaffer Ali]

Aşağıdaki kod ile denedim.
Herhangi bir sorun yok açılıyor.

Sub Test()
    Dim XL_App As Object, WB As Object
    Set XL_App = VBA.CreateObject("Excel.Application")
    XL_App.Visible = True
    Set WB = XL_App.Workbooks.Open(ThisWorkbook.Path & "\DYK_ARŞİV.xlsm")
End Sub

Büyük ihtimalle diğer dosyada sorun var.

 

[Feylosof]

Aşağıdaki kod ile denedim.
Herhangi bir sorun yok açılıyor.

Sub Test()
    Dim XL_App As Object, WB As Object
    Set XL_App = VBA.CreateObject("Excel.Application")
    XL_App.Visible = True
    Set WB = XL_App.Workbooks.Open(ThisWorkbook.Path & "\DYK_ARŞİV.xlsm")
End Sub

Büyük ihtimalle diğer dosyada sorun var.

Üstadım çok teşekkür ederim sizi yordum. Yarın okul bilgisayarında tekrar deneyeceğim. Evdeki bilgisayarda sorunsuz çalışıyor zaten.

 

[Feylosof]

@Muzaffer Ali Bey
Sanırım hatanın kaynağı şu kod: Bu kodu pasifize edince dosyayı açıyor.

Private Sub UserForm_Initialize()
Set con = VBA.CreateObject("adodb.Connection"): Set rs = VBA.CreateObject("adodb.Recordset")
        con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
        ThisWorkbook.Path & "\DYK_ARŞİV.xlsm" & ";extended properties=""Excel 12.0;hdr=no"""
       With UserForm13.ListBox1           
            .ColumnCount = 30
            .ColumnWidths = "130;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80;80"
            ListBox1.ColumnHeads = False
            End With

End Sub

 

[Feylosof]

Bir de olay şunda düğümleniyor sanki userformun başında yeralan kodda...
Aşağıdaki kodu silince biri çalışır hale geliyor, diğer button bozuluyor, ekleyince açma yazdırma düğmesi bozuluyor. Bu durumu çözebilir miyiz

Dim con, rs

 

[Muzaffer Ali]

Dosyanız bende hiçbir hata vermediği için bir çözüm de üretemiyorum.

 

[Feylosof]

Peki üstadım. Çok teşekkür ediyorum.