Kapalı Dosyadan Veri Alma Hata (Workbooks.Open)

[yusuf1284]

selectedworkbook:
With fd
    .InitialFileName = ActiveWorkbook.Path & "\"
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Excel Dosyaları", "*.xlsx"
    If .Show = -1 Then
        selectedworkbook = .SelectedItems(1)
    End If
End With
'Eğer kullanıcı bir çalışma kitabı seçti ise
If selectedworkbook <> "" Then
    Set wb = Workbooks.Open(selectedworkbook, UpdateLinks:=0, ReadOnly:=0, AddToMru:=False, Notify:=False)
    'wb.Windows(1).Visible = False

Bu kodlarla 1004 hatası alıyor dosayı elle kendim açtığım da aşağıdaki 2 uyarıyı vermekte dosyalar askeri olduğundan paylaşamıyorum tanıdığım hocalar özelden isterse atacağım dosyayı. Yapmak istediğim dosyayı açıp içindeki tüm verileri makro çalıştırdığım Excel'e aktarmak. Ado nesnesini denedim o da olmadı

 

[Muzaffer Ali]

Merhaba.
Dosyayı aşağıdaki kod ile açabilirsiniz.

Sub Test()
    Dim Wb As Workbook
    With Application.FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel Dosyaları", "*.xlsx"
        .Show
        If .SelectedItems.Count > 0 Then
            Set Wb = Workbooks.Open(.SelectedItems(1), UpdateLinks:=0, ReadOnly:=0, AddToMru:=False, Notify:=False)
        End If
    End With
End Sub

Dosyada kaç sayfa var ve hangi sayfadaki verileri atacaksınız?

 

[yusuf1284]

Hocam "GuncelYakalamaEmirleriSorgulama" adında bir sayfa var sayfa içersinde B8 den başlayan veriler var ama yine hata verdi

 

[Haluk]

Hata mesajı zaten dosyanın bozuk olduğunu söylüyor...... VBA ile açmak da işe yaramaz.

.

 

[Muzaffer Ali]

Dosyayı elle açtığınızda hata verse de hiç açılmıyor mu?
Eğer açılıyorsa bozuk dosyayı onarmak yerine tüm sayfaları yeni bir Excel dosyasına kopyalayıp kullanın.

 

[yusuf1284]

Hata mesajı zaten dosyanın bozuk olduğunu söylüyor...... VBA ile açmak da işe yaramaz.

Hocam kendim açtığımda uyarılardan sonra açılıyor

Dosyayı elle açtığınızda hata verse de hiç açılmıyor mu?
Eğer açılıyorsa bozuk dosyayı onarmak yerine tüm sayfaları yeni bir Excel dosyasına kopyalayıp kullanın.

Hocam uyarları kapattıktan sonra dosya kullanılıyor dosyayı kaydet dediğimde farklı kaydet sekmesi çıkıyor bu şekilde dosyalar çok olduğundan hepsiyle her hafta uğraşmak zor oluyor. Amacım verileri bozuk olmayan excel aktarmak hocam her dosya için ayrı bir sayfa oluşturacağım fakat ilk veri almada sorun yaşıyorum

 

[Muzaffer Ali]

Normalde kodun hata vermemesi lazım. Dosyayı görmek lazım.
Dosyadaki özel bilgileri silip yerine benzer veriler yazarak paylaşabilirsiniz