Vba ile Metin alma sihirbazı

[a_self_lion]

Selam Aradaşlar,

Kullanmış olduğumuz paket program belli bir dizine xls dosyası atıyor. Ben bunları her açmak istediğimde Dosya alma sihirbazı deverey giriyor. Ve Makro ile kaydettiğim zaman aşağıdaki kodlar oluştu. Kodları çalıştırınca istediğim sonucu alıyorum. Fakat Sorun benim Herzaman aynı dosyayı açmak istemediğimden yani dosya aç bölümü de seçtiğim gibi bana dosyayı seçme fırsatı verse ve benim seçmiş olduğum dosyayı bu kodları işleterek açmam mümkünmüdür acaba.

Siyah olan bölümü benim seçmemi nasıl sağlayabilir.

Workbooks.OpenText Filename:="C:\SYMPHONY\EXCEL\MINI1007.XLS", Origin:=857 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(1, 2), _
TrailingMinusNumbers:=True
Range("1:1,4:4,6:6,8:8").Select
Range("A8").Activate
Selection.Delete Shift:=xlUp
Cells.Select
With Selection.Font
.Name = "Arial Tur"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A1").Select
ActiveWindow.SmallScroll Down:=-6
Rows("1:4").Select
Selection.Font.Bold = True
Range("A1").Select

 

[Recep İpek]

Kodlarınızı aşağıdaki şekilde deneyiniz.

Dim dosya
dosya = Application.GetOpenFilename
If dosya = False Then Exit Sub
Workbooks.OpenText Filename:=dosya, Origin:=857 _

 

[a_self_lion]

Teşekkür ederim sayın Ripek Tam istediğim gibi olmuş.