VFP 愛用者社區

[Batman]

想從Excel表轉入Cursor, 但Excel的cell有不同格式, 可否在抽取Excel資料時全部轉化為"文字"格式, 然後我才將"文字"轉為合適格式存入Cursor??

[syntech]

轉存 CSV 檔, 那就都字串了.

不會比較方便就是.

[Batman]

我是用 oExcel=CREATEOBJECT("Excel.Application") 一個一個Cell讀取資料, 希望在讀取資料時, 已轉為"文字"格式, 那便可不用考慮來源的格式, 直接存入Cursor, 請再指導

[lygcw9603]

EXCEL数据保存为数组，再导入CURSOR中，不要考虑数据类型

[ckp6250]

[Batman]

請問 lygcw9603 如何保存為數組? ckp6250 的代碼要研究一下, 先謝謝

[55812296]

AA=oExcel.CELLS(X,Y).VALUE

IF ISNULL(AA)
AA=''
ELSE
AA=TRANFORM(AA)
ENDIF

[Batman]

謝謝55812296指導, 經測試後, 是可以的, 問題解決了^^

[lygcw9603]

EOLE=CREATEOBJECT('EXCEL.APPLICATION')
LCFILENAME=GETFILE([XLS]) && 此处 XLS 改为EXCEL2010文件的扩展名
IF EMPTY(LCFILENAME)
RETURN
ENDIF
EOLE.WORKBOOKS.OPEN(LCFILENAME)
EOLE.WORKSHEETS(1).ACTIVATE
LNROW=EOLE.SHEETS(1).USEDRANGE.ROWS.COUNT
LNCOL=EOLE.SHEETS(1).USEDRANGE.COLUMNS.COUNT
DIMENSION LAXLS(LNROW,LNCOL),FIELDNAME(LNCOL) && laxls 存贮工作表中的数据,FIELDNAME存贮列标题名
FOR lnI=1 TO LNCOL
FIELDNAME[lnI]=EOLE.SHEETS(1).CELLS(1,lnI).VALUE && 获取列标题名
ENDFOR
LAXLS = EOLE.ACTIVESHEET.USEDRANGE.VALUE
EOLE.QUIT
RELEASE EOLE

CZDM=[]
FOR lnI=1 TO LNCOL
CZDM=CZDM+FIELDNAME[lnI]+[ V(200)]+IIF(lnI<LNCOL,[,],[])
ENDFOR
CREATE CURSOR XMDA (&CZDM)
CREATE CURSOR TEMP (&CZDM)
INSERT INTO TEMP FROM ARRAY LAXLS
INSERT INTO XMDA SELECT * FROM TEMP WHERE RECNO()>1
SELECT XMDA
BROWSE

[ezpos]

可以使用 底下的指令

Select smp_Product
Append From lc_file csv

蠻快速的


還是vfp 快速...我用vb.net 寫了很多行.最後卡在NULL
NULL真是麻煩....

[Batman]

謝謝兩位回覆, 現在我又想改為ODBC取Excel, 好像更方便, 一連線成功, 便可Select來用..