excel导入到vfp中有关列标题

[eipt]

excel导入到vfp中，使用import，如何把excel第一行设置为列标题呢？

[wwwwb]

VFP版本？

[eipt]

对的

[ACMAIN_CHM]

如果你的VFP表已经存在，则可以直接用

use VFP表名
APPEND FROM Excel表.xls TYPE xl5

[ZJPQJB]

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

[eipt]

如果你的VFP表已经存在，则可以直接用

use VFP表名
APPEND FROM Excel表.xls TYPE xl5


请教：如果vfp表不存在，应该如何操作？


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

试了一下，第一行没有变成标题

[xlj2000]

楼主想用程序完成不想用手工导。

[ZJPQJB]

把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 "+ CHRTRAN(&mfilename," ","")
&m_ren
NEXT
GO 1
DELETE
PACK
BROWSE

[maowx]

你用导入向导呀，选好被导入的文件，设好存放的位置和文件名，再使用第二行作为列标题就行了，很方便，是vfp自己带的导入向导，我一直这样用。

[eipt]

[Quote=引用 10 楼 apple_8180 的回复:]
再优化一下，并且字段数支持大于上面的26个：


VBScript codeClose Databases All
lcExcelFileName=Getfile('Xls', '','', 0, '选择一个Excel表,另存为Dbf表,Excel表的首行内容做为Dbf表的字段名')
If Empty(lcExcelFileName)
Return
Endif
Import From (lcExcelFileName) Type Xl5
lcTmpDbfName=Juststem(Dbf())
For m.lnI=1 To Fcount("&lcTmpDbfName")
lcStr="Alter Table "+ "&lcTmpDbfName Rename Col…
[/Quote]


这个有效，非常感谢！也谢谢ZJPQJB

[十豆三]

my_file=Getfile("xls")
Import From "&my_file" Type Xl5
my_dbf=Strtran("&my_file",".XLS","")
my_dbf=Justfname("&my_dbf")
Select ("&my_dbf")
For m.lnI=1 To Fcount("&my_dbf")
	mzd=Substr("ABCDEFGHIJKLMNOPQRSTUVWSYZ",m.lnI,1)
	mfilename=Field(mzd)
	m_ren="Alter Table "+ "&my_dbf Rename Column "+ mzd+" to "+ Chrtran(&mfilename,Space(1),"")
	&m_ren.
Endfor
Go 1
Delete
Pack
Browse

[十豆三]

再优化一下，并且字段数支持大于上面的26个：

Close Databases All
lcExcelFileName=Getfile('Xls', '','', 0, '选择一个Excel表,另存为Dbf表,Excel表的首行内容做为Dbf表的字段名')
If Empty(lcExcelFileName)
	Return
Endif
Import From (lcExcelFileName) Type Xl5
lcTmpDbfName=Juststem(Dbf())
For m.lnI=1 To Fcount("&lcTmpDbfName")
	lcStr="Alter Table "+ "&lcTmpDbfName Rename Column "+Field(m.lnI)+" To "+Evaluate(Field(m.lnI))
	&lcStr.
Endfor
lcPutDbfName=Putfile('',lcTmpDbfName,'Dbf')
If Empty(lcPutDbfName)
	Return
Endif
Copy To (lcPutDbfName) For Recno()#1
Close Databases All