1、
Dim t As Table = Tables("表A")Dim str As String = ""For Each r As Row In t.rows str &= r("第一列") & "|" & r("第二列") & ","Nextstr = str.trim(",")msgbox(str)
加好友 
发短信
Post By：2017/7/17 11:10:00 [只看该作者]
