delphi Excel 实现工作组的翻译

Question

使用       FWorkBook.Sheets[VarArrayOf([‘’Sheet1‘’, ‘’Sheet3‘’])].Select;
  FWorkBook.Sheets[VarArrayOf([1,3])].Select;
都不行……

Answer 1

整出来了……
在Excel中分组方法
FWorkBook.Sheets[VarArrayOf([‘’Sheet1‘’, ‘’Sheet3‘’])].Select;
或  FWorkBook.Sheets[VarArrayOf([1,3])].Select;
或 FWorkBook.Sheets[VarArrayOf(一个可变形array of Variant数组)].Select;打印预览方法注意了。要用
 FExcelApp.ActiveWindow.SelectedSheets.PrintPreview;
不能用 FExcelApp.ActiveSheet.PrintPreview;
不然打印预览的是当前活动工作表自己结账