VFP 愛用者社區

[willy]

不好意思各位我從網站內學到讀Excel的方法 為下
*------ 意欲讀取之 EXCEL資料檔 ＆ 所在目錄
STORE ALLTRIM(THISFORM.TEXT1.VALUE) TO _PATH
STORE ALLTRIM(SUBSTR(_PATH,RAT(’\’,_PATH)+1,LEN(_PATH))) TO PATH_FILE
STORE ALLTRIM(LEFT(_PATH,RAT(’\’,_PATH)+-1)) TO PATH_END
lcFile = PATH_FILE
lcPath = PATH_END

*------
lcFullPath = FORCEPATH( lcFile, lcPath )
if .not. file(lcFullPath)
lcFullPath = getFile(’XLS’)
lcFile = justFName( lcFullPath )
lcPath = justPath( lcFullPath )
endif

if .not. file(lcFullPath)
messageBox( ’Not Found File:’+ chr(13)+ lcFullPath + chr(13)+ ’這個Excel檔案’ )
RETURN
endif
*------


*------ Connection

lcCnStr = [FIL=excel 5.0；] ；
+ [DBQ=]+lcFile+[；DefaultDir=]+lcPath+[；] ；
+ [Driver={Microsoft Excel Driver (*.xls)}；DriverId=790] ；
+ [MaxBufferSize=2048；PageTimeout=5；] ；

#Define bTest_ .f.
if bTest_
nCn = SQLSTRINGCONNECT()
*!* 放到剪貼簿,[Ctrl+V]取出
_ClipText = SQLGETPROP( nCn, ”ConnectString” )
* messageBox( _ClipText )
else
*!* ”DispWarnings”=.F. 頂著用
* = SQLSETPROP( 0, ”DispWarnings”, .F. )
nCn = SQLSTRINGCONNECT( lcCnStr )
* = SQLSETPROP( 0, ”DispWarnings”, .T. )

endif


*------ GET TABLES by TABLE_TYPE--SQLTABLES(,[’TABLE’, ’VIEW’, ’SYSTEM TABLE’],)

SQLTABLES( nCn , [] , ’_Tables’ )

KEYBOARD ”{CTRL+F10}”

LOCAL lcSQL, lcCursor, lcTableName, lnError

* SCAN

lcSQL = [select * from ”] + trim(table_name) + [”]
lcsqlx = [select * from ] + trim(table_name)
* lcSQL = [select top 100 * from ”] + trim(table_name) + [”]
* wait window ’WAIT... ’+ lcSQLX nowait at 0,0
wait window ’WAIT............................................’ nowait at 0,0
lcCursor = strTran( strTran( trim(table_name), ’ ’, ’_’ ) , ’$’ , ’_’ )
* lcTableName = ’c:\temp\_’+ lcCursor
lnError = SQLEXEC( nCn, lcSQL,’temp1x’)
KEYBOARD ”{CTRL+F10}”

select * from temp1x into DBF test

以上的方法可以正常讀到資料
但如果Excel資料的某一欄位第一筆資料為文字型態第二筆資料為數值型態
以上的方法第一筆可以正常讀到第二筆卻為空白
請問是否有方法可以解決
謝謝!!

[syntech]

沒.

除非你想辦法先檢查型態並作適當轉換