Case "icasa.htm",""
wb.AddPageTitle("","pageheader","IDR","艾迪尔国际家居")
With wb.AddGrid("","g1")
.Add("c12","艾迪尔古典", "./images/tab.png", "gdqjal.htm")
.Add("c13","艾迪尔轻奢", "./images/tab.png", "qsqjal.htm")
.Add("c14","艾迪尔国际馆", "./images/search.png", "iwood.htm")
.Add("c15","木作客户报备", "./images/cell.png", "xkf.htm")
.Add("c16","部门工作日报", "./images/toast.png", "gzrb.htm")
End With
e.WriteString(wb.Build)
End Select
哪里出来问题