delphi Excel 实现工作组的翻译

wujinyuan 2015-01-12 04:54:42

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

翻译成Delphi 语法

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

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

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

...全文

115 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

wujinyuan 2015-01-13

打赏
举报

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

wujinyuan 2015-01-13