РHB1.SHEETS("sheet1").selectРhb1.sheets(1).rows(1).entirerow.insertРhb1.sheets(1).rows(1).entirerow.insertРsele (ctablename)Рnfieldcount=fcount()Рount=ount()Рhbdygs="A1:"+chr(nfieldcount+64)+"2"РHB1.range(hbdygs).selectР****合并两行作为报表标题*************РHB1.selection.HorizontalAlignment = 3 &&水平方向 2左对齐,3居中,4右对齐РHB1.selection.VerticalAlignment = 2 &&垂直方向 1靠上,2居中,3靠下РHB1.selection.WrapText = .f. && ??РHB1.selection.orientation = 0 && ??РHB1.selection.AddIndent = .f. && ??РHB1.selection.ShrinkToFit = .f. && ??РHB1.selection.MergeCells = .t. && ??РHB1.range(hbdygs).FormulaR1C1 = "请输入报表标题"РHB1.range(hbdygs).Characters.font.name = "隶书"РHB1.range(hbdygs).Characters.font.FontStyle = "常规"РHB1.range(hbdygs).Characters.font.ColorIndex = 1 &&字符颜色Р***根据数据源表结构的宽度设置列的宽度********Рcopy stru exte to temp\term_stru