Dim rstr As StringFor Each c As Col In Tables("表B").Cols rstr = rstr & c.Name & "|"NextOutput.SHOW(RSTR)
试试这个