怎样获取表？

如下：


<P>'<I></I> get<I></I> the<I></I> first<I></I> table<I></I> in<I></I> the<I></I> table<I></I> on<I></I> contents
dim<I></I> ptabcollection<I></I> as<I></I> istandalonetablecollection
dim<I></I> psttable<I></I> as<I></I> istandalonetable
dim<I></I> pdisptable2<I></I> as<I></I> idisplaytable
dim<I></I> pttable<I></I> as<I></I> itable
set<I></I> ptabcollection<I></I> =<I></I> pmap
if<I></I> ptabcollection.standalonetablecount<I></I> =<I></I> 0<I></I> then
msgbox<I></I> "must<I></I> have<I></I> atleast<I></I> one<I></I> table"
exit<I></I> sub
end<I></I> if</P>
<P>pmap并没有赋给ptabcollection<I></I> 什么，于是出现"must<I></I> have<I></I> atleast<I></I> one<I></I> table"的错误，应怎样修改？？？<I></I> <I></I> 请帮帮忙！！！<I></I> <I></I> <I></I> <I></I> </P>