不知如何改？请高手指教？
本帖最后由 chinatyq 于 2013-02-25 20:27:46 编辑 一个excel表
A B
1 aa bb
2 1111 上台公司
3 2222 日期公司
4 3333 明显增加
...

tt="公司"
txtSQL = "select * from [sheet1$] Where bb like '%" & tt & "%'" 对”公司“进行模糊查询

xlRs.Open txtSQL, xlConn, adOpenKeyset, adLockOptimistic
xlCnt = xlRs.RecordCount

For j = 1 To xlCnt
If xlRs.EOF = False Then


st = st & xlRs("aa") & " " & xlRs("bb") & vbCrLf



End If
Next
Open "c:\china.txt" For Output As #1
Print #1, st
Close

当打开china.txt文件,却显示为
1111 上台公司
1111 上台公司 并不显示“2222 日期公司”

问题出在st = st & xlRs("aa") & " " & xlRs("bb") & vbCrLf 不知如何改？请高手指教？

[解决办法]
st = st & xlRs("aa") & " " & xlRs("bb") & vbCrLf
xlRs.MoveNext