Belirlenen dosya uzantısı dosyası oluşturulması

[BedirHan_]

Arkadaşlar merhabalar sitemizde yeni üyeyim yardımlarınızı bekliyorum.

Boş bir Excel Sayfasına Command Butonu Ekledim. Bu butona tıkladığımda kullanıcıya nereye kayıt edileceğini ve dosya adını soran, uzantısını önceden belirlediğim bir dosya açmasını istiyorum. Dosyanın uzantısı örneğin .xfw olacak.

Kullanıcıya dosya uzantısı sormayacak olması mühim.

 

[Orion1]

Çıkan inputboxa dosya yolunu ve adını giriniz.

Sub dosyaac59()
Dim EVNShell As Object, dosya
dosya = InputBox("Dosya yolunu ve adını ve uzantısını giriniz:", "DOSYA AÇ")
If dosya = "" Then Exit Sub
If Dir(dosya) = "" Then MsgBox "Dosya Bulunamadı.!", vbCritical: Exit Sub
Set EVNShell = CreateObject("WScript.Shell")
EVNShell.Run (dosya)
End Sub