英雄杀朱元璋元神:从excel导入数据到vf，并且字段名为第一行名[梅子论坛]

来源：百度文库 编辑：中财网 时间：2024/05/04 06:27:55
close all
set safety off
set default to 'e:\'&&设置默认目录
messagebox('请选择要导入的XLS文件'+chr(13)+;
'注意表格不要有格式，首行的命名符合规则';
+chr(13)+'只把第一行做为字段','提示')
ss=getfile('xls')&&打开选择文件对话框，并赋值
if isblank(ss)
return
endif
myexcel=createobject('excel.application')&&创建EXCEL对象
*myexcel.visible=.t.
bookexcel=myexcel.workbooks.open(ss)&&打开选择的文件
i=1
***************获得表的可用sheet*************************************
for each omyvar in myexcel.sheets
dimension a(i)
a(i)=omyvar.name
i=i+1
next omyvar
******************************************************
nrows=bookexcel.worksheets(a(1))&&设置第一个表为工作表
UsedRange =nrows.UsedRange&&设置工作区域
***************把第一行的数据赋值给数组b，一会删除第一行，便于导入*****
ma=usedrange.columns.count&&返回列的总数
dimension b(ma)
for i=1 to ma
b(i)=myexcel.cells(1,i).value
next
******************************************************
myexcel.Worksheets(a(1)).Activate
myexcel.activesheet.rows(1).select&&选中第一行
myexcel.Selection.EntireRow.Delete&&删除选中的行
myexcel.Worksheets(a(1)).select
*********检查d:\hh.xls是否存在，若存在，删除***********
IF FILE('d:\hh.xls')
DELETE FILE d:\hh.xls
ENDIF
*********************************
myexcel.ActiveWorkbook.SaveAs('d:\hh.xls')&&文件另存为
myexcel.ActiveWorkbook.saved=.t.&&不保存修改
myexcel.workbooks.close&&关闭工作区不提示保存
myexcel.quit&&excel退出
*release myexcel
*******************
import from d:\hh.xls type xl5&&导入到默认目录下的hh.dbf表中
DELETE FILE d:\hh.xls&&删除表
***********给表字段重命名**************************
use hh
ma=fcount()
dimension c(ma)
for la=1 to ma
c(la)=field(la)
next
for la=1 to ma
la,c(la),b(la)
alter table hh rename &c(la) to &b(la)
next
*****************************************
messagebox('已成功将表导入到E:\hh.dbf','提示')
close all
文本文件数据导入到EXCEL vc导入导出数据到excel表 关于delphi数据导入到excel中 导入Excel数据到Sql数据库 excel中的数据导入到access VF 数据库内的东西如何导入到 SqlServer 中? 编程实现vf数据导入到Sql（高分求救！） 如何把一个excel文件上传,然后按各个字段把数据导入sql数据库中 WORD 导入 EXCEL数据 excel 数据导入 Excel 从数据到语音 如何把Excel里的数据导入到Access里面 怎样把excel中的数据导入到spss12.0 怎样可以把网站的数据导入到excel里？ 如何将excel数据导入到word方档中 如何将excel中的数据导入到Visual FoxPro 怎么样把oracle表结构和数据导入到excel TXT数据导入到ACCESS后字段超过255的问题 EXCEL数据透视表的字段设定 vf问题:怎样把一个表中的部分数据添加到另一个表中?(两表的学号字段相同) 如何从excel中导入联系人列表到OUTLOOK中？ 如何从asp.net客户端导入excel到sql server 从数据库导入到网页中的数据怎么改颜色？ asp怎么实现从文本导入数据到sql？？