求助：根据网上发布代码，做了一个导入Excel文件的小程序，导不进数据，求大侠帮忙给看一下 - VFP论坛

楼主

已结贴√ 问题点数：20 回复次数：17

求助：根据网上发布代码，做了一个导入Excel文件的小程序，导不进数据，求大侠帮忙给看一下

做了一个导入Excel文件的小程序，出现数据类型不对，

导入实验.rar (6.29 KB)

搜索更多相关主题的帖子: 代码　导入　 Excel　文件　数据　

第 2 楼

得分:4

EXCEL中读出的数据是C型的。

dBase有人接盘了。

第 3 楼

得分:4

close databases
use mdk
zap
M_File=GETFILE('xls',"报名文件")
myexcel=createobject('excel.application')                   &&创建一个对象
myexcel.visible=.f.                                         &&不可见
bookexcel=myexcel.workbooks.open(M_File)                    &&打开指定文件
o_rows=myexcel.ActiveSheet.UsedRange.rows.count                                 &&汇总行
o_cols=myexcel.ActiveSheet.UsedRange.columns.count                              &&汇总列

IF o_rows<=1
    =MESSAGEBOX("待导入数据行数太少，请检查！",0+16,"提示")
ELSE
    FOR i=2 TO o_rows
        APPEND BLANK
        REPLACE  zbdm WITH myexcel.ActiveSheet.cells(i,1).value
        REPLACE  dwdm WITH myexcel.ActiveSheet.cells(i,2).value
        REPLACE  hm WITH myexcel.ActiveSheet.cells(i,3).value
        REPLACE  name WITH myexcel.ActiveSheet.cells(i,4).value
        REPLACE  dm1 WITH myexcel.ActiveSheet.cells(i,5).value
        REPLACE  xm1 WITH myexcel.ActiveSheet.cells(i,6).value
        REPLACE  dm2 WITH myexcel.ActiveSheet.cells(i,7).value
        REPLACE  xm2 WITH myexcel.ActiveSheet.cells(i,8).value
        REPLACE  dm3 WITH myexcel.ActiveSheet.cells(i,9).value
        REPLACE  xm3 WITH myexcel.ActiveSheet.cells(i,10).value
    ENDFOR
ENDIF
myexcel.workbooks.close                                    &&关闭工作区
myexcel.quit                                               &&关闭excel
brow

坚守VFP最后的阵地

第 4 楼

得分:4

fTemp = "C:\temp\temp.txt"
M_File=GETFILE('xls','报名文件')
myexcel=createobject('excel.application') &&创建一个对象
myexcel.DisplayAlerts = .F.
myexcel.visible=.f. &&不可见
myexcel.workbooks.open(M_File) &&打开指定文件
myexcel.Rows("1:1").Select
myexcel.Selection.Delete
myexcel.ActiveWorkBook.SaveAs(fTemp, -4158)
myexcel.ActiveWorkBook.Saved = .T.
myexcel.WorkBooks.Close
myexcel.Quit
USE mdk
ZAP
APPEND FROM (fTemp) FIELDS zbdm,dwdm,hm,name,dm1,xm1,dm2,xm2,dm3,xm3 DELIMITED WITH TAB
BROWSE
DELETE FILE (fTemp)
RETURN