delphi Excel 实现工作组的翻译

[wujinyuan]

在Excel中宏中如下：
Sheets(Array("Sheet1", "Sheet3")).Select

翻译成Delphi 语法

我这样做的主要目的是为了实现一次可以打印多个工作表的容

在Excel可以通过把工作表分组然后打印可实现

现在我想通过在delphi 中操作Excel分组，然后再 通过 ExcelApp.ActiveSheet.PrintPreview 打印

[wujinyuan]

没人…帮我一下吗…

[wujinyuan]

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

[wujinyuan]

整出来了…… 在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; 不然打印预览的是当前活动工作表 自己结账