Ｅｘｃｅｌファイルを読む void __fastcall TForm1::Button23Click(TObject *Sender) { const int adOpenForwardOnly = 0; const int adLockReadOnly = 1; //表示用コントロールをクリア ListBox1->Items->Clear(); ListBox2->Items->Clear(); Variant cn = …