在delphi中用ADO连接excel,
我想做一下测试。已经用ADO连接好了。Query1.SQL.Add('update[sheet1$]setA50="你好"');即:设置sheet1表中的A50单元格的值...
我想做一下测试。已经用ADO连接好了。
Query1.SQL.Add('update [sheet1$] set A50="你好" ');
即:设置sheet1表中的A50单元格的值为 ‘你好’。
这个语句能不能编译执行啊 ?有错的话 错在哪里能说一下吗??
谢谢。其实我的目的很简单,就是想通过ADOQuery 在excel表单里边动态更新数据。能不能实现啊?谢了。
答案过硬 还会加分。
能说具体点吗? 展开
Query1.SQL.Add('update [sheet1$] set A50="你好" ');
即:设置sheet1表中的A50单元格的值为 ‘你好’。
这个语句能不能编译执行啊 ?有错的话 错在哪里能说一下吗??
谢谢。其实我的目的很简单,就是想通过ADOQuery 在excel表单里边动态更新数据。能不能实现啊?谢了。
答案过硬 还会加分。
能说具体点吗? 展开
1个回答
展开全部
ADO 只能读 excel,要写 excel 得用COM里的OLE对象方法来改
:
4) 打开已存在的工作簿:
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表:
ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值:
ExcelApp.Cells[1,4].Value := '第一行第四列';
:
4) 打开已存在的工作簿:
ExcelApp.WorkBooks.Open( 'C:\Excel\Demo.xls' );
5) 设置第2个工作表为活动工作表:
ExcelApp.WorkSheets[2].Activate; 或 ExcelApp.WorksSheets[ 'Sheet2' ].Activate;
6) 给单元格赋值:
ExcelApp.Cells[1,4].Value := '第一行第四列';
参考资料: http://www.23book.net/softwaredev/delphi/52881.htm
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询