不知如何改？请高手指教？
本帖最后由 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
