"Attachments\出库单.xls")'打开模板DimSheetAsXLS.Sheet=Book.Sheets(0)Sheet(6,6).Value="制单人:"&User.Name'修改模板,加入制单人信息Book.Build()'生成细节区Book.Save("c:\reports\test.xls")'保存工作簿DimProcAsNewProcess'打开工作簿Proc.File="c:\reports\test.xls"Proc.Start()按钮或菜单72Row当前选定的行DimdrAsRow=Tables("订单").Current按钮或菜单73Row删除选定行Tables("订单").Current.Delete()按钮或菜单74Row克隆第一行Tables("订单").Rows(0).Clone()按钮或菜单75Row移除当前表的选定行CurrentTable.Current.Remove()按钮或菜单移除和删除是不同的,移除只是使得表中暂时不再包括该行,就像该行从来没有被加载过一样;不管你是否保存文件,下次打开后,被移除的行还会出现。76Row序号列自动赋值WithTables("常用代码")ForiASinteger=0To.Rows.Count-1.Rows(i)("xh")=i+1NextEndWith按钮或菜单77Table第一行CurrentTable.Position=0按钮或菜单78Table最末行CurrentTable.Position=CurrentTable.Rows.Count-1按钮或菜单79Table上一行CurrentTable.Position=CurrentTable.Position-1按钮或菜单80Table下一行CurrentTable.Position=CurrentTable.Position+1按钮或菜单
全文预览
