ถ้าจะดึงไฟล์เข้ามาโครลิ้ง ในเอกซ์เซลล แบบ ให้เลือกไฟล์ที่ต้องการเปิดได้ หลังจาก run macro link ต้องทำงัยค่ะ

Sub Im()
'
' Im Macro
' áÁâ¤Ã¶Ù¡ºÑ¹·Ö¡ ³ Çѹ·Õè 1/7/2012 â´Â Ch Chaiya
'

'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\Ch Chaiya\Desktop\A pen2.TXT", Destination:= _
        Range("K24"))
        .Name = "A pen2_5"
        .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 = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1)
        .TextFileTrailingMinusNumbers = True
        .Refresh BackgroundQuery:=False
    End With
    Range("K24:M31").Select
    Selection.Copy
    Range("I5").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Range("K24:M31").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("I5:J7").Select
    Selection.Cut
    Application.CutCopyMode = False
    Selection.Copy
    Range("C3").Select
    ActiveSheet.Paste
    Range("K5:L7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("G3").Select
    ActiveSheet.Paste
    Range("I5:P7").Select
    Range("P7").Activate
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("K8").Select
End Sub
Sub Delete()
'
' Delete Macro
' áÁâ¤Ã¶Ù¡ºÑ¹·Ö¡ ³ Çѹ·Õè 1/7/2012 â´Â Ch Chaiya
'

'
    Range("G3:H5").Select
    Range("H5").Activate
    Selection.ClearContents
    Range("C3:D5").Select
    Range("D5").Activate
    Selection.ClearContents
    Range("N11").Select
End Sub