walla ben anlamam yoksa yardım ederdim

abi bende soru bitmez. excel'de select data source ekranı açtırıp ordan kullanıcının seçtiği csv dosyasını açmasını sağlamak istiyorum. açılan dosyada belli işlemler yapılacak, onlarla ilgili komutları hallettim ama dosyayı açtıramadım. elimde örnek var ama şifreli olduğu için göremiyorum nası yapıldığını. yardıma falan baktım ama orda da pek bişey bulamadım. belki de kıt ingilizcemden dolayı bulduğumu anlamadım. hangi komutları kullanacagım konusunda bi yol gösterirseniz ben gerisini halletmeye çalışırım. ben makro kaydetmeye başlayıp veri> dış verial menüsünü kullandım. şöyle bişey oluşuyo: Sub Macro8 With ActiveSheet. QueryTables. Add(Connection:= _ "TEXT;C:\Documents and Settings\?\My Documents\?\?. csv" _, Destination:=Range("A1")) . Name = "?" . FieldNames = True. RowNumbers = False. FillAdjacentFormulas = False. PreserveFormatting = True. RefreshOnFileOpen = False. RefreshStyle = xlInsertDeleteCells. SavePassword = False. SaveData = True. AdjustColumnWidth = True. RefreshPeriod = 0. TextFilePromptOnRefresh = False. TextFilePlatform = 857. TextFileStartRow = 1. TextFileParseType = xlFixedWidth. TextFileTextQualifier = xlTextQualifierDoubleQuote. TextFileConsecutiveDelimiter = False. TextFileTabDelimiter = True. TextFileSemicolonDelimiter = False. TextFileCommaDelimiter = False. TextFileSpaceDelimiter = False. TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1, 1) . TextFileFixedColumnWidths = Array(9, 29, 10, 11, 12, 5, 22) . TextFileTrailingMinusNumbers = True. Refresh BackgroundQuery:=False End With End Sub C:\Documents and Settings\?\My Documents\?\?. csv işte benim derdim bu dosyanın herdefasında kullanıcı tarafından seçilmesi.