目前程式連接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;

附加檔案：458b76cc86670_未命名.jpg