dim caizhi1 as string
dim caizhi2 as string
dim caizhi as string
dim dianzulv1 as double
dim dianzulv2 as double
dim midu1 as double
dim midu2 as double
dim zhijing as double
dim jiejubi as double
dim jiemianji as double
dim zhouchang as double
dim dianzusichangdu as double
dim zhongliang as double
dim quanshu as double
dim jieju as double
dim dianzulv as double
dim midu as double
dim zuzhi as double
private sub command1_click()
dim xlapp as object
dim xlworkbook as object
dim xlworkshee