VFP 愛用者社區

[whh]

http://i.imgur.com/u3QHFuK.png?1
因為會有跨年的資料，所以會要拆成兩筆~@@

1. import from IMPORT from d:\xxx.xlsx TYPE xl8
VFP 9會直接掛點

2. 先將Excle轉成，非常舊版的 Excle (95)才能順利匯入
But.... 日期會變成很奇怪的數字......

↑
所以以上兩個都不適用

真的不行的話，我現在是用一招最爛
1. 人工先在Oracle建好 Table
2. 人工Excle 複製 → Pl/Sql → 貼上 Commit 到 Oracle DB 後
3. Oracle ODBC to VFP


因為我要做這件事情

[garfield]

新版excel老人家不想直接認識它

請透過 VFPExcel2007Functions 來使用

http://www.sweetpotatosoftware.com/spsblog/2008/09/30/UsingExcel2007FileFormatsInVFP90.aspx

[whh]

garfield 大大

可以請問範例嗎 T.T

AppendFromExcel(m.lcXlsFile, "Sheet1", "MyTable", "column1,column2,column3", "Recnum Is Not Null", "field1,field2,field3", "field1 > 14000")

EX:
AppendFromExcel("D:\Oops.xlsx", 分頁名, 我猜是最後轉到VFP的Table名稱, 疑惑1, 疑惑2, 疑惑3, 疑惑4)

[garfield]

? AppendFromExcel(m.lcXlsFile, sheet名字一定要有, 要將資料存在那個TABLE, "在EXCEL欄位的名稱", "抓Excel資料時的條件", "指定TABLE的某些欄位名稱", "")
? CreateTableFromExcel(GETFILE(),'sheet1','zz') &&--自動建立table: zz

作者提供的是原始碼,也有註解, 最少也要看一下提昇功力.
FUNCTION AppendFromExcel(tcXLSFile, tcSheet, tvWorkarea, tcExcelFieldList, tcExcelWhereExpr, tcTableFieldList, tcTableForExpr, tlNoHeaderRow)
* PARAMETER Information
* tcXLSFile := a string specifying an excel file (*.xls, *.xlsx, *.xlsm, *.xlsb) on disk
* tcSheet := a string specifying the name of a worksheet within the excel workbook (can also be a range Sheet1$A1:C20 for instance)
* tvWorkarea [optional] := the Alias, Work Area, or File Name of the table you want the worksheet result set appended to (default is currently selected Alias)
* tcExcelFieldList [optional] := a comma delimited list of columns you want from the worksheet (default is '*' - all columns)
* tcExcelWhereExpr [optional] := a valid SQL Where clause to be used when querying the worksheet (default is '1=1')
* tcTableFieldList [optional] := a comma delimited list of fields you want the worksheet result set inserted into (default is '*' - all fields)
* tcTableForExpr [optional] := a valid VFP Where clause to be used when querying the worksheet result set (cursor) (default is '.T.')
* tlNoHeaderRow [optional] := pass .T. if the worksheet does not contain a header row, .F. is the default which specifies that a header row does exist

[goodnight]

請問是一年一次嗎? 檔案如果不多, 可以另存成 csv 把抬頭去掉就好, 個人想法