Dosya uzantısına göre dosyayı açma

[dsaffethoscan]

Merhaba benim sorunum yıllardır eski bir office sürümüne kullanıyordum. Yeni yüklenen office ile eski office 97-2003 uyumlu olarak dosyaları kaydetmek yerine xlsm kaydetmeye başladım. 17 yıldır her satış için bir excell dosyası kaydetmiştim. Bu dosyalar bir tabloda kayıtlı. Bu tablodan makro ile eski kayıtları aşağıdaki gibi açtırıyordum. Şimdi klasörde xls ve xlsm dosyaları olduğu için yeni dosyaları açtıramıyorum. Kodda xlsm yapsam eskileri açtıramayacağım. xls dosyası yoksa xlsm dosyasını aç gibi kodu değiştirebilir miyim?
Kabaca kodu böyle nasıl değiştirebilirim?
If Workbooks.Open Filename:="\\server\Formlar\" & ActiveCell.Value & ".xls" = True Then Workbooks.Open Filename:="\\server\Formlar\" & ActiveCell.Value & ".xls"
Else Workbooks.Open Filename:="\\server\Formlar\" & ActiveCell.Value & ".xlsm"

Sub Secimi_Ac()
i = ActiveCell.Row
Range("B" & i).Select
Workbooks.Open Filename:="\\server\Formlar\" & ActiveCell.Value & ".xls"
End Sub

 

[Muzaffer Ali]

Merhaba.

Uzantıyı hiç yazmadan deneyiniz.
Hangisi varsa onu açar.
İkisi de varsa "xlsx" uzantılı olanı açar.

 

[dsaffethoscan]

Merhaba.

Uzantıyı hiç yazmadan deneyiniz.
Hangisi varsa onu açar.
İkisi de varsa "xlsx" uzantılı olanı açar.

dosya bulunamıyor. Yazımınız denetleyin veya farlı bir yol deneyin diyor

 

[Muzaffer Ali]

Bende hata olmuyor dosya açılıyor. 2019 kullanıyorum belki ondandır.
Aşağıdaki şekilde deneyin.

Sub Secimi_Ac()
    Dim Dosya As String
    Dosya = "\\server\Formlar\" & ActiveCell.Value & ".xls"
    
    If Dir(Dosya) <> "" Then
        Workbooks.Open Filename:=Dosya
    Else
        Workbooks.Open Filename:=Dosya & "x"
    End If
End Sub

 

[dsaffethoscan]

Akşam deneyeceğim. Şimdi acil birkaç iş çıktı.

 

[ÖmerBey]

Merhaba,
Alternatif olarak denenebilir.

Sub kod()
Dim yol As String, dsy As String
yol = "\\server\Formlar\"
dsy = Dir(yol & Cells(ActiveCell.Row, "B").Value & ".xls*")
If dsy <> "" Then Workbooks.Open yol & dsy
End Sub

 

[dsaffethoscan]

Merhaba,
Alternatif olarak denenebilir.

Sub kod()
Dim yol As String, dsy As String
yol = "\\server\Formlar\"
dsy = Dir(yol & Cells(ActiveCell.Row, "B").Value & ".xls*")
If dsy <> "" Then Workbooks.Open yol & dsy
End Sub

Üstteki çalışmadı ama bu kod çalıştı. Teşekkür ederim.

 

[ÖmerBey]

Rica ederim,
Ancak üstteki kodun da çalışması gerek. Kendi kodunuzun başında kullandığınız, B sütunu seçtiren aşağıdaki satırları o kodun da başına ilave edip deneyiniz.

i = ActiveCell.Row
Range("B" & i).Select

İyi çalışmalar...