导入excel并将第一列作为表的字段：

my_file=GETFILE("xls")
IMPORT FROM "&my_file" type XL5
my_dbf=STRTRAN("&my_file",".XLS","")
my_dbf=STRTRAN("&my_dbf",SYS(5)+SYS(2003)+"\","")
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 "+ &mfilename
    &m_ren
NEXT 
GO 1
DELETE
PACK
BROWSE

有错误啊

[quote]
请教一下各路高人，将VF格式导出为EXCEL格式时，EXCEL的列号仍然为A B C D E，而VF中定义的字段，则成为EXCEL的第一行。
   从而，再从EXCEL导回到VF格式时，就出错了，VF定义的字段随之变成了EXCEL 中的A B C D E，导致错误。
   
    请问如何解决，谢谢。
[/quote]
将VF格式导出为EXCEL格式时，EXCEL的列号仍然为A B C D E，这是不可改变的，所以VF中定义的字段就成为了EXCEL的第一行。问题在于从EXCEL导回到VF格式时，要把EXCEL的第一行转为VF的字段，而其余行转为数据行。请参考

[url]http://bbs.pfan.cn/post-310893.html[/url]

copy to 文件名 type xl5