回复:“可以看到 在VFP中保留了最上面一行记录 A B C D E F G H
而且在VFP的表里面还删除不了这行 怎么办 EXCEL里这个也是固定的
这样的话 在VFP中表的默认字段就是 A B C D E F G H 汗啊”
试试:
SET DEFAULT TO SYS(5)+SYS(2003)
my_file=GETFILE("xls")
IMPORT FROM "&my_file" type XL5
my_dbf=JUSTSTEM(my_file)
SELECT (my_dbf)
FOR iii=1 to FCOUNT(my_dbf)
mzd=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
mfilename=FIELD(mzd)
m_ren="ALTER TABLE "+ "&my_dbf rename column "+ mzd+" to "+ ALLTRIM(CHRTRAN(&mfilename," ",""))
&m_ren
NEXT
GO 1
DELETE
*PACK
BROWSE
[ 本帖最后由 qjbzjp 于 2012-9-13 13:38 编辑 ]
而且在VFP的表里面还删除不了这行 怎么办 EXCEL里这个也是固定的
这样的话 在VFP中表的默认字段就是 A B C D E F G H 汗啊”
试试:
SET DEFAULT TO SYS(5)+SYS(2003)
my_file=GETFILE("xls")
IMPORT FROM "&my_file" type XL5
my_dbf=JUSTSTEM(my_file)
SELECT (my_dbf)
FOR iii=1 to FCOUNT(my_dbf)
mzd=SUBSTR("ABCDEFGHIJKLMNOPQRSTUVWSYZ",iii,1)
mfilename=FIELD(mzd)
m_ren="ALTER TABLE "+ "&my_dbf rename column "+ mzd+" to "+ ALLTRIM(CHRTRAN(&mfilename," ",""))
&m_ren
NEXT
GO 1
DELETE
*PACK
BROWSE
[ 本帖最后由 qjbzjp 于 2012-9-13 13:38 编辑 ]
相互学习,互相交流,共同提高。