2020国产成人精品视频,性做久久久久久久久,亚洲国产成人久久综合一区,亚洲影院天堂中文av色

分享

從excel導(dǎo)入數(shù)據(jù)到vf,并且字段名為第一行名[梅子論壇]

 踏雪_尋梅 2010-03-24
close all
set safety off
set default to 'e:\'&&設(shè)置默認(rèn)目錄
messagebox('請選擇要導(dǎo)入的XLS文件'+chr(13)+;
'注意表格不要有格式,首行的命名符合規(guī)則';
+chr(13)+'只把第一行做為字段','提示')
ss=getfile('xls')&&打開選擇文件對話框,并賦值
if isblank(ss)
return
endif
myexcel=createobject('excel.application')&&創(chuàng)建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))&&設(shè)置第一個(gè)表為工作表
UsedRange =nrows.UsedRange&&設(shè)置工作區(qū)域
***************把第一行的數(shù)據(jù)賦值給數(shù)組b,一會刪除第一行,便于導(dǎo)入*****
ma=usedrange.columns.count&&返回列的總數(shù)
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&&關(guān)閉工作區(qū)不提示保存
myexcel.quit&&excel退出
*release myexcel
*******************
import from d:\hh.xls type xl5&&導(dǎo)入到默認(rèn)目錄下的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('已成功將表導(dǎo)入到E:\hh.dbf','提示')
close all

    本站是提供個(gè)人知識管理的網(wǎng)絡(luò)存儲空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多