how to specify the filename

G

gptg13

i use this macro to import data from a worbook


Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=Áñ÷åßá Excel;DBQ=D:\MY
WORKBOOK.xls;DefaultDir=D:;DriverId=790;MaxBufferSize=20480;PageTimeout=5;"
_
, Destination:=Range("A1"))
..CommandText = Array( _
"SELECT `MY SHEET$`.F1, `MY SHEET$`.F3, `MY SHEET$`.F4, `MY
SHEET$`.F5, `MY SHEET$`.F6, `MY SHEET$`.F8, `MY SHEET$`.F9, `MY
SHEET$`.F10, `MY SHEET$`.F11, `á" _
, _
"ãùíéóôéêÝò10$`.F13" & Chr(13) & "" & Chr(10) & "FROM
`D:\ÏÌÉËÏÓ 1Ã ÊÁÔÇÃÏÑÉÁÓ`.`MY SHEET$` `MY SHEET$`" _
)
..Name = "N A M E"
..FieldNames = True
..RowNumbers = False
..FillAdjacentFormulas = False
..PreserveFormatting = True
..RefreshOnFileOpen = False
..BackgroundQuery = True
..RefreshStyle = xlInsertDeleteCells
..SavePassword = True
..SaveData = True
..AdjustColumnWidth = True
..RefreshPeriod = 0
..PreserveColumnInfo = True
..Refresh BackgroundQuery:=False
End With
End Sub

I want the user to choose the workbook.How can i do it.
Thanks in advance.
 
Top