//以下程式為小弟在板上找到的
//第一次發文,請海涵
//目的為使用者開啟存檔視窗
//假如有檔案已存在就會覆蓋
//之後在次開啟檔案寫入再次儲存

bool savepath=false;
if (SaveDialog1->Execute()) //目的為使用者開啟存檔視窗
{
savepath=true;
Variant Excel,Workbooks,Workbook;
Variant Worksheets,Worksheet, Range, Cell, FColumns, Format, Item;
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible", true); // 設為 false 則不可見
// 產生 workbooks 跟 workbook 物件.
Workbooks=Excel.OlePropertyGet("Workbooks");
Workbook=Workbooks.OleFunction("Add");
// 產生 worksheets 跟 worksheet 物件.
Worksheets=Workbook.OlePropertyGet("Worksheets");
Worksheet=Worksheets.OlePropertyGet("Item", 1);
Workbook.OleFunction("SaveAs",SaveDialog1->FileName.c_str());
//假如有檔案已存在就會覆蓋,想問如何知道有沒有檔案存在
Excel.OlePropertySet("Visible",false);
Excel.OleFunction("Close"); //這裡會出錯
Excel.OleFunction("Quit");
}
if (savepath)
{
Variant Excel,Workbooks,Workbook;
Variant Worksheets,Worksheet, Range, Cell, FColumns, Format, Item;
Excel=CreateOleObject("Excel.Application");
Excel.OlePropertySet("Visible", true);
Workbooks=Excel.OlePropertyGet("Workbooks");
Workbook=Workbooks.OleFunction("Open", (SaveDialog1->FileName.c_str()));
// 將該Excel 檔的 Worksheets 設給變數 Worksheets.
Worksheets=Workbook.OlePropertyGet("Worksheets");
// 將 Worksheets 的第2 個 worksheet 設給變數 Worksheet.
Worksheet=Worksheets.OlePropertyGet("Item", 1);
// 取得第 (2,3) 個 cell.
Cell=Worksheet.OlePropertyGet("Cells", 2, 3);
Cell.OlePropertySet("Value", "CrazyStar"); // 設定它的文字內容為 "CrazyStar".
Excel.OleFunction("Save"); //之後在次開啟檔案寫入再次儲存,也會出錯,
//會問是否要覆蓋一個EXCEL檔案
Excel.OlePropertySet("Visible",false);
Excel.OleFunction("Close");
Excel.OleFunction("Quit");
}

------
偶肉肉

OleFunction("Close"); //這裡會出錯
Excel.OleProcedure("Close"); //這樣應就 OK

大大 我改了還是一樣錯誤呢

------
偶肉肉

把『Excel.OlePropertySet("Visible",false);』 Remark 掉, 或許便可正常 Close.

把它拿掉一樣錯呢...
是沒有這個function?

------
偶肉肉

我把close 拿掉後,
在發生saveas 部分錯誤?檔案不能覆蓋? 連對話視窗也沒有跳出.....

------
偶肉肉

Excel.OleFunction("Close");  
換成
Workbooks.OleFunction("Close");

這邊應該是關檔案還沒關Excel吧，所以用Workbooks(全book都關掉，若用Workbook則只有關掉指定的那個book)

再補充一下
Excel.OleFunction("Save"); //之後在次開啟檔案寫入再次儲存,也會出錯,
應該是
Workbook.OleFunction("Save");

編輯記錄

感謝2位高手的解答 ^^
依據s大大的說法
小弟問題已經解決
再次感謝

------
偶肉肉