怎么给变量赋值

怎么给变量赋值

你可以定义一个数组变量
var add:array[1..20] of string
然后你需要做的是，操作excel，然后循环读取从c2到c21的值
你可以写在一个按钮单击事件里面
代码如下：
uses comobj;
procedure TForm1.Button1Click(Sender: TObject);
var
ExcelApp: Variant;
add:array[1..20] of string;
i:integer;
begin
try
//创建 Excel 对象
ExcelApp := CreateOleObject( 'Excel.Application' );
//打开已存在的工作簿
ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' );
//设置第工作表sheet1为活动工作表
ExcelApp.WorksSheets[ 'Sheet1' ].Activate;
//循环读取数据，并赋值给数组add

for i:=2 to 21 do
add[i]:=varToStr(ExcelApp.Cells[i,3].Value) ;
finally
ExcelApp .Quit;
ExcelApp .Disconnect;
end;
end;

推荐答案是什么乱七八糟的东西，竟然被管理员弄成推荐答案了
采纳我的为满意答案吧，如果有问题可追问追问你好，请问你给我的代码是excel vba的吗
我先试一下你的代码，看看行不行啊，如果可以我会把你的选为满意回答的。

我还想问你一个问题，就是sheet2里面会增加几行东西，增加的数量不固定，怎么定义一个变量来表示这个数量啊，还有每次增加的数量都不一样，那又该怎么定义啊，那个定义的变量要随着增加的数量来自动变化，该怎么写这个语句啊O(∩_∩)O谢谢
在线等 希望你看到了能给我再写一下代码

--SQL赋值语句 DECLARE @test1 INT SELECT @test1 = 只是发两个字