您所在位置：主题：不显示对话框,自动选"是（Y）"
cagd
[专家分：410] 发布于 2008-12-04 23:14:00
执行以下代码,会显示以下对话框:
"在当前位置发现已经存在名为"C:\a1\深沪Ａ股1.XLS"的文件。您希望将该文件替换掉吗？"
每次都要手动选"是（Y）"才行。
极之不方便，如何修改代码，才会不显示对话框,自动选"是（Y）"，谢谢！
OleApp=CREATEOBJECT("Excel.Application") && 打开EXCEL，产生OLE对象
OleApp.Application.Visible=.t. && 置EXCEL可见
OleApp.Application.WorkBooks.Open("C:\a1\深沪Ａ股1.XLS") && 打开EXCEL工作簿
OleApp.Cells.Select && 全选
OleApp.Selection.Font.Size = 10
OleApp.Workbooks[1].SaveAs("C:\a1\深沪Ａ股1.XLS",39) &&用39表示另存为5.0的Excel格式
OleApp.Workbooks.close &&关闭工作簿
OleApp.quit &&退出Excel
RELEASE OleApp &&释放变量 以真正退出 Excel
"在当前位置发现已经存在名为"C:\a1\深沪Ａ股1.XLS"的文件。您希望将该文件替换掉吗？"
每次都要手动选"是（Y）"才行。
极之不方便，如何修改代码，才会不显示对话框,自动选"是（Y）"，谢谢！
OleApp=CREATEOBJECT("Excel.Application") && 打开EXCEL，产生OLE对象
OleApp.Application.Visible=.t. && 置EXCEL可见
OleApp.Application.WorkBooks.Open("C:\a1\深沪Ａ股1.XLS") && 打开EXCEL工作簿
OleApp.Cells.Select && 全选
OleApp.Selection.Font.Size = 10
OleApp.Workbooks[1].SaveAs("C:\a1\深沪Ａ股1.XLS",39) &&用39表示另存为5.0的Excel格式
OleApp.Workbooks.close &&关闭工作簿
OleApp.quit &&退出Excel
RELEASE OleApp &&释放变量 以真正退出 Excel
