怎么给变量赋值
答案:2 悬赏:0
解决时间 2021-01-15 16:45
- 提问者网友：风月客
- 2021-01-15 10:33
怎么给变量赋值
最佳答案
- 二级知识专家网友：神也偏爱
- 2021-01-15 11:41
你可以定义一个数组变量
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谢谢
在线等 希望你看到了能给我再写一下代码
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谢谢
在线等 希望你看到了能给我再写一下代码
全部回答
- 1楼网友：刀戟声无边
- 2021-01-15 12:05
--SQL赋值语句 DECLARE @test1 INT SELECT @test1 = 只是发两个字
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息