excel导入到vfp中有关列标题

2009-05-27 01:42:53 363 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

UE4游戏开发：GameInstance与GameMode的实战应用与避坑指南本文深入解析了UE4中GameInstance与GameMode的核心差异与实战应用。GameInstance作为贯穿游戏进程的全局单例，负责跨关卡数据持久化与系统管理；而GameMode则定义特定关卡内的游戏规则与逻辑，随关卡加载销毁。文章通过数据存储、动态模式切换及网络游戏等场景，提供了清晰的应用指南与常见避坑方案，帮助开发者构建更健壮的UE4游戏架构。阅读详情

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

...全文

On the convergence of FedAvg on non-iid data On the convergence of FedAvg on non-iid data 阅读详情

eipt

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

十豆三 2009-06-03

打赏
举报

再优化一下，并且字段数支持大于上面的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

十豆三 2009-06-03

打赏
举报

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

eipt 2009-06-03

打赏
举报

[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

maowx 2009-06-02

打赏
举报

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

ZJPQJB 2009-06-02

打赏
举报

把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

xlj2000 2009-06-02

打赏
举报

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

eipt 2009-06-01

打赏
举报

如果你的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

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

ZJPQJB 2009-05-29

打赏
举报

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

ACMAIN_CHM 2009-05-29

打赏
举报

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

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

eipt 2009-05-29

打赏
举报

对的

wwwwb 2009-05-27

打赏
举报

VFP版本？

excel导入到vfp中有关列标题

相关推荐