求助：excel 表中有一列单元格格式是自定义，在导入到vfp9.0的数据表时表的对应列的类型应该选什么类型？ - 编程论坛

#2

强国学习2021-09-18 10:07

excel 表中有一列单元格格式是数字-自定义（yyyy-m-d h：mm:ss)类型，在导入到vfp9.0的数据表时表的对应字段的类型应该选什么类型？

#3

吹水佬2021-09-18 11:25

类似DBF的T型

#4

强国学习2021-09-18 11:36

回复 3楼吹水佬

T型是什么型，找不到啊？日期型？日期时间型？导进去是空傎

#5

吹水佬2021-09-18 12:25

给个EXCEL文件看看好说

#6

强国学习2021-09-18 12:48

只有本站会员才能查看附件，请登录

#7

强国学习2021-09-18 12:49

比如创建时间之类的

#8

吹水佬2021-09-18 14:37

回复 6楼强国学习

试过无异常

只有本站会员才能查看附件，请登录

程序代码：

SET DATE TO ANSI
SET CENTURY ON
cDefPath = ADDBS(JUSTPATH(SYS(16)))
xls = cDefPath + "项目.XLS"
oExcel = CREATEOBJECT('Excel.Application')
oExcel.DisplayAlerts = 0
oExcel.WorkBooks.Open(xls)
cmd = "CREATE CURSOR tt (" + oExcel.Range("R1").Value + " T," + oExcel.Range("T1").Value + " T)"
EXECSCRIPT(cmd)
INSERT INTO tt VALUES (oExcel.Range("R2").Value, oExcel.Range("T2").Value)
oExcel.WorkBooks.Close
oExcel.Quit
SELECT * FROM tt

[此贴子已经被作者于2021-9-18 14:47编辑过]

#9

强国学习2021-09-22 09:54

谢谢吹版主，但是这个程序不怎么看得懂！
1、如果是要把整行导进数据表这句cmd = "CREATE CURSOR tt (" + oExcel.Range("R1").Value + " T," + oExcel.Range("T1").Value + " T)"是不是R1要从A1开始？oExcel.Range("A1").Value + " C,"+...
2、如果EXCEL表有很多行，这句 INSERT INTO tt VALUES (oExcel.Range("R2").Value, oExcel.Range("T2").Value)是不是要使用一个循环？
具体应该怎样实现？

#10

强国学习2021-09-22 09:56

回复 8楼吹水佬

谢谢吹版主，但是这个程序不怎么看得懂！
1、如果是要把整行导进数据表这句cmd = "CREATE CURSOR tt (" + oExcel.Range("R1").Value + " T," + oExcel.Range("T1").Value + " T)"是不是R1要从A1开始？oExcel.Range("A1").Value + " C,"+...
2、如果EXCEL表有很多行，这句 INSERT INTO tt VALUES (oExcel.Range("R2").Value, oExcel.Range("T2").Value)是不是要使用一个循环？
具体应该怎样实现？

#11

吹水佬2021-09-22 10:40

作为示例，点到即止。
1、只取T型字段名就能说明问题
2、只取一行就能看得清楚了