 |
如何在VB中调用Excel的工作薄预览功能?
Dim oleExcel as Object
Dim oleWorkbook as Object
Dim OleWorkSheet as Object
set oleExcel=Createobject("Excel.Application")
set oleWorkbook=oleExcel.Workbooks.add
set oleWorkSheet=oleExcel.Workbooks.Worksheets.Add
然后,我填充了一些CELL
希望用 oleWorkSheet.Printpreview 预览,但出现部件要求挂起?
(章文晋)
|
| |
|
 |
要想预览，必须注意两个问题，一个是Excel窗口是可见的，二是当前工作表上必须有内容可以用来打印，空的工作表是不行的。下面这段代码可以实现预览功能：
Set oleExcel = CreateObject("Excel.Application")
Set oleWorkbook = oleExcel.Workbooks.Add
Set oleWorkSheet = oleWorkbook.Sheets.Add
oleExcel.Visible = True
oleExcel.ActiveCell.FormulaR1C1 = "Text"
oleWorkSheet.PrintPreview ' 如果要打印，使用oleWorkSheet.Print
上面的例子是新添加一个文件，如果要打开已有的文件，请参考QA001382 "如何调用Excel打开.xls文件"。
此问题由李海回答。
附加关键字：编程, 源程序, programming, source code, Visual Basic, VB, Office开发, office, ms office, office xp, office 97。
|
| |
|
| |
|
| |
|
|
如何在VB中调用Excel的工作薄预览功能?