EXCEL VBA提取内容

你也没说具体什么区域，我只有大致的编写个例子，你自己按照例子修改吧

Sub xxx()
Dim fPath, st1, st2, wb
fPath = Application.GetOpenFilename("选择文件,*.xls;*.xlsx")
Set st1 = ActiveSheet
If fPath = False Then Exit Sub
Set wb = Workbooks.Open(fPath)
Set st2 = ActiveSheet
st2.Range("a1:e5").Copy st1.Cells(1, 1)
wb.Close
End Sub

上面的程序代码调试正确，你可以需要修改下面这一句：
st2.Range("a1:e5").Copy st1.Cells(1, 1)
例子代码完成的功能是把打开文件的A1:E5复制到当前表的A1，如果复制其它区间请相应修改

下面的语句是复制打开文件的当前表：
Set st2 = ActiveSheet
也可以修改为复制其它表，例如：
Set st2 = ActiveWorkbook.Sheets("清单")

至于加上边框的代码，你可以自己录制宏来学习，下面的代码就可以：
st1.Range("a1:e5").Borders.LineStyle = xlContinuous
希望能解决您的问题。