OLE1中为Excel 另存和打印问题 OLE1中为Excel ,我现在希望当点击按钮时降Excel结果另存到硬盘上Private Sub save_as_Click()End Sub如果点击打印按钮,则降结果用打印机打印出来Private Sub save_as_Click()End Sub应该如何写代码?谢谢 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Dim oWorkbook As Object Set oWorkbook = OLE2.object With oWorkbook .SaveAs "c:\text.xls" '保存 .PrintOut '打印 End With 请问关于dataenvironment数据更新的问题 vb中最小的定式精度能达到0.1ms吗??高手不吝赐教 高手请进,分不够可以再加 求教如何写取得表中某列中数值最大值得sql代码,谢谢!!! 当两个以上的快捷键按下时,才执行后面程序?这一个条件(两个以上的快捷键同时按下)怎么写? 关于VB和OFFICE2000的冲突问题 简单问题,立刻给分。谢谢 VB+sql+access ???? 如何备份正被打开的mdb文件? 如何让程序不在“结束任务->应用程序”中出现? 关于存储过程问题 从剪贴板上粘到OLD控件中的问题
Set oWorkbook = OLE2.object
With oWorkbook
.SaveAs "c:\text.xls" '保存
.PrintOut '打印
End With