如何替换VF中的一列数据
excel中有个名称为班级的列,能不能替换到vf中班级的那列呀?如果能,怎么办,知道的请告诉我,谢谢!...
excel中有个名称为班级的列,能不能替换到vf中班级的那列呀?如果能,怎么办,知道的请告诉我,谢谢!
展开
2个回答
展开全部
你得会编程才行,我只能提示,你搜索下面两行的关键词(文件名可以自定义)
oExcel = CREATE("Excel.Application")
oExcel.Workbooks.open("c:\abc\你的excel.xls")
......
思路如下,找班级所在列,不妨保存到col_ban;
从第2行(可定义从第x1行开始)开始处理,一直到出现空行为此。
x1 = 2
new_ban = oExcel.ActiveSheet.Cells(x1 , col_ban) &&从excel 读取班级
new_key = oExcel.ActiveSheet.Cells(x1 , 1) &&从excel 读取关键字(自定义)
sele vf_table
replace all 班级 with '' && 假设你有必要清完数据库的班级
do while new_ban > ""
replace for the_key = new_key 班级 with new_ban
x1 = x1 +1 && 下一行
new_ban = oExcel.ActiveSheet.Cells(x1 , col_ban) &&从excel 读取班级
new_key = oExcel.ActiveSheet.Cells(x1 , 1) &&从excel 读取关键字(自定义)
loop
oExcel = CREATE("Excel.Application")
oExcel.Workbooks.open("c:\abc\你的excel.xls")
......
思路如下,找班级所在列,不妨保存到col_ban;
从第2行(可定义从第x1行开始)开始处理,一直到出现空行为此。
x1 = 2
new_ban = oExcel.ActiveSheet.Cells(x1 , col_ban) &&从excel 读取班级
new_key = oExcel.ActiveSheet.Cells(x1 , 1) &&从excel 读取关键字(自定义)
sele vf_table
replace all 班级 with '' && 假设你有必要清完数据库的班级
do while new_ban > ""
replace for the_key = new_key 班级 with new_ban
x1 = x1 +1 && 下一行
new_ban = oExcel.ActiveSheet.Cells(x1 , col_ban) &&从excel 读取班级
new_key = oExcel.ActiveSheet.Cells(x1 , 1) &&从excel 读取关键字(自定义)
loop
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |