code vba import file ตามชื่อนำหน้า

[pondslam]

สวัสดีครับ รบกวนพี่ๆ แก้ไข code นี้ให้หน่อยครับ ตรงคำว่า Sheets("O_SURVEY1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\CSS_MISSING\O_SURVEY1.TXT", Destination:=Range("$A$1"))
ความต้องการคือ ต้องการเปิดไฟล์ที่ขึ้นต้นด้วย O_SURVEY1 ส่วนข้างหลังชื่อจะเป็นอะไรก็ได้ ซึ่งผมใช้ "*" แล้วมันไม่ Run ครับ ไม่ทราบต้องทำยังไงขอบคุณครับ

Sub Import_data()
'
' Import_data Macro
'

'
Sheets("O_SURVEY1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;D:\CSS_MISSING\O_SURVEY1.TXT", Destination:=Range("$A$1"))

.Name = "O_SURVEY2"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 874
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False

[snasui]

แนบไฟล์ Excel พร้อม Code ล่าสุดในไฟล์นั้นมาอีกรอบครับ

สำหรับการวาง Code ในช่องความเห็นกรุณาอ่านกฎการใช้บอร์ดข้อ 5 ด้านบน จะได้สะดวกในการอ่านและคัดลอกไปทดสอบครับ