線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:2581
推到 Plurk!
推到 Facebook!

Excel連接取值沒問題,但是程式執行一段時間後會出現錯誤訊息

 
vega_chun
一般會員


發表:5
回覆:7
積分:2
註冊:2006-12-20

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-12-22 14:10:21 IP:60.250.xxx.xxx 未訂閱
目前程式連接Excel取值沒有問題
但是程式執行一段時間後會出現如附檔的錯誤訊息(時間長短不一定)
請問有人幫我解答嗎?謝謝
以下是我的程式碼:
WideString l_wFile;
l_wFile = ExtractFilePath(Application->ExeName) "Book1.xls";
if (FileExists(l_wFile))
{
Label38->Caption = "已成功連接Excel!!";
Label25->Caption = "";

ExcelApplication1->Connect();
ExcelApplication1->Workbooks->Open(l_wFile);
ExcelWorkbook1->ConnectTo(ExcelApplication1->get_ActiveWorkbook());
ExcelApplication1->set_Visible(0, false);
ExcelWorksheet1->ConnectTo(ExcelWorkbook1->get_ActiveSheet());
Variant vC, vR, vRA, vRD;
Variant vK, vKA, vKD;
//int rows = 0;
AnsiString strValue, strVK;
int m = 1;
int n = 1;
vR = 1;
//rows = ExcelApplication1->Worksheets->get_Count(); // 取得Excel裡的欄位總數
//-----檢查Excel欄位值-----
for (int i = 1; i < 300; i )
{
vC = i;
vK = ExcelWorksheet1->Cells->get__Default(vC, vR);
strValue = vK;
strVK = strValue.SubString(0, 1);
StringGrid1->Cells[0][i] = i;
if (strVK == "A")
{
vRA = 4;
vKA = ExcelWorksheet1->Cells->get__Default(vC, vRA);
StringGrid1->Cells[1][m] = vKA;
m ;
}
if (strVK == "D")
{
vRD = 4;
vKD = ExcelWorksheet1->Cells->get__Default(vC, vRD);
StringGrid1->Cells[2][n] = vKD;
n ;
}
}
ExcelApplication1->set_DisplayAlerts(0, false);
ExcelApplication1->Quit();
FormVMSCNC->BtnSetClick(this); // 把EXCEL的值拿來做比較
vC = Unassigned;
vR = Unassigned;
vRA = Unassigned;
vRD = Unassigned;
vK = Unassigned;
vKA = Unassigned;
vKD = Unassigned;

系統時間:2017-10-20 11:35:42
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!