回 帖 发 新 帖 刷新版面

主题:组合框导入指定的excel表

用编程的方法获取全部excel工作表的名称,并且名称要显示组合框中,如果要导入那个表的数据,只要选定就行。这个代码怎样写?那位大师告诉我,多谢了!!!!

回复列表 (共1个回复)

沙发

FORM1.INIT
*-------------------------------------------------------------------
原路径=SYS(5)+CURDIR()
查找路径="F:\YYRJ\"
SET DEFAULT TO (查找路径)
CREATE CURSOR TABNAME (文件名 C(100),文件大小 N(10),修改日期 D,修改时间 C(10),文件属性 C(10))
FOR I = 1 TO ADIR(AFILES,"*.XLS")
    INSERT INTO TABNAME VALUES (查找路径+AFILES(I,1),AFILES(I,2),AFILES(I,3),AFILES(I,4),AFILES(I,5))
ENDFOR
WITH THISFORM.COMBO1
     .HEIGHT=28
     .WIDTH=200
     .ROWSOURCE="TABNAME.文件名"
     .ROWSOURCETYPE=6
ENDWITH
SET DEFAULT TO (原路径)

我来回复

您尚未登录,请登录后再回复。点此登录或注册