郁闷装B的是你自己谢谢。。。问个问题只能斑竹答？我发效果只是无聊放下不行？
你要斑竹答为什么要点我的文件？

问T也要虚心。。。。

PS：希望你能对计算机有怜爱之心……instr+mid不是非用不可尽量不要用……

你自己可以比较2个过程对资源的消耗和时间....
你的过程好象一次只能截一段……=。=

你的代码颜色=。=
帮你着色吧~

Sub GetStr_BSslore(StrSource, StrBegin, StrEnd As String)
Dim in_star, in_end As Integer
StrStar1 = InStr(StrSource, StrBegin) + Len(StrBegin)
StrEnd1 = InStr(StrSource, StrEnd)
MiddleCode = Mid(StrSource, StrStar1, StrEnd1 - StrStar1)
End Function '截取两段代码的中间部分

忘了说，自己不是能么？不去try只自己能提高……