 |
VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
| 上一篇主題 :: 下一篇主題 |
| 發表人 |
內容 |
kojanlai0823
註冊時間: 2011-12-02
文章: 74
第 1 樓
|
 發表於: 星期四 五月 24, 2012 12:02 pm 文章主題: IMPORT FROM EXCEL |
 |
|
我用vfp的import指令..匯入excel的檔案
日期格式會變成文字..
也就是1900/1/1---->1
2011/1/1---->40544
但..我卻在中間發現了一個很強大的問題
如果用dtoc(ctod(date_str)+Nday)==>會得到日期
但在1900/2/28之前都還有相對應
之後的日期全部位移
怎麼說勒???
DATE_STR='1899/12/31'
那麼當我用DTOC(CTDO(DATE_STR)+1)==>1900/1/1
理所當然的..當+59的時候就是1900/2/28
但如果在foxpro+60時=>1900/3/1
但excel的60---->1900/2/29
所以凡從excel直接import而來的日期序列值..在1900/2/28後的日期..需-1後再跟1899/12/31的序列值做相加的處理 |
|
| 回頂端 |
|
 |
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 2 樓
|
| 發表於: 星期四 五月 24, 2012 5:34 pm 文章主題: |
|
|
敝司不處理電腦發明前的問題.
請電洽M$公司
XD
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30
文章: 1645
第 3 樓
|
| 發表於: 星期四 五月 24, 2012 6:35 pm 文章主題: |
|
|
| import 之前 , 先用 ole 加工一下 |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 4 樓
|
|
| 回頂端 |
|
|
aizz
註冊時間: 2007-01-29
文章: 172
第 5 樓
|
| 發表於: 星期一 五月 28, 2012 10:14 am 文章主題: |
|
|
| syntech 寫到: | 敝司不處理電腦發明前的問題.
請電洽M$公司
XD |
1900年之前的資料..........
這輩子, 我都沒機會接觸
    |
|
| 回頂端 |
|
|
aizz
註冊時間: 2007-01-29
文章: 172
第 6 樓
|
| 發表於: 星期一 五月 28, 2012 10:21 am 文章主題: |
|
|
這個網頁寫的玩意, 反而比較有趣多多
 |
|
| 回頂端 |
|
|
marvin
註冊時間: 2004-06-01
文章: 321
第 7 樓
|
| 發表於: 星期六 六月 02, 2012 12:22 am 文章主題: |
|
|
上面的 VFPExcel2007Functions 有人試過嗎?
有 bug 過不到, 除錯中 |
|
| 回頂端 |
|
|
marvin
註冊時間: 2004-06-01
文章: 321
第 8 樓
|
| 發表於: 星期二 六月 19, 2012 1:30 am 文章主題: |
|
|
經多次測試 import Excel 的方法, 心得如下:
用 import from 指令只能匯入 5.0/95 或以前的檔案
上述的 VFPExcel2007Functions, 是使用
Provider=Microsoft.ACE.OLEDB.12.0, 但網上幾無資料供參考
問題在運行時會無故出現 Select Data Source 的 dialog window, 繼而停止, 跟本不能使用
而且這方式唯一好處是能控制資料第一列要不要當作 header, 其它功能與 ODBC 方式無大分別
故建議用 ODBC 方式 (如下), 得出 cursor 後再用 Foxpro 來修正和處理
Driver = Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)
lcSQLCmd = Select * from "Payment$A1:K36" |
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 9 樓
|
| 發表於: 星期四 三月 05, 2015 4:51 pm 文章主題: |
|
|
| marvin 寫到: |
上述的 VFPExcel2007Functions, 是使用
Provider=Microsoft.ACE.OLEDB.12.0, 但網上幾無資料供參考
問題在運行時會無故出現 Select Data Source 的 dialog window, 繼而停止, 跟本不能使用
|
安裝這個 :
Microsoft Access Database Engine 2010 可轉散發套件
https://www.microsoft.com/zh-tw/download/details.aspx?id=13255
這個可能也要裝:
Microsoft OLE DB Provider for Visual FoxPro 9.0
http://download.microsoft.com/download/b/f/b/bfbfa4b8-7f91-4649-8dab-9a6476360365/VFPOLEDBSetup.msi
因為他的程式直接用
| 代碼: |
m.lnSQL = SQLSTRINGCONNECT([Provider=Microsoft.ACE.OLEDB.12.0;Data Source="] + m.tcXLSFile + [";Extended Properties="Excel 12.0 Xml;HDR=] + m.lcHeaderRow + [;";])
|
或是你乾脆把上面那段拿掉.
只留下下面這段,用標準ODBC連接,不用 OLE DB PROVIDER連接
| 代碼: |
m.lnSQL = SQLSTRINGCONNECT("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};" ;
+ "DBQ="+FULLPATH(m.tcXLSFile)+";")
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙
syntech 在 星期四 三月 12, 2015 10:45 am 作了第 3 次修改 |
|
| 回頂端 |
|
|
bx1166
註冊時間: 2011-12-06
文章: 273
第 10 樓
|
| 發表於: 星期四 三月 05, 2015 6:04 pm 文章主題: |
|
|
| 把麻煩的老日期以文字處理再轉成年月日分開的欗位也許就搞定了 |
|
| 回頂端 |
|
|
kojanlai0823
註冊時間: 2011-12-02
文章: 74
第 11 樓
|
| 發表於: 星期五 二月 17, 2017 3:31 pm 文章主題: |
|
|
| marvin 寫到: | 經多次測試 import Excel 的方法, 心得如下:
用 import from 指令只能匯入 5.0/95 或以前的檔案
上述的 VFPExcel2007Functions, 是使用
Provider=Microsoft.ACE.OLEDB.12.0, 但網上幾無資料供參考
問題在運行時會無故出現 Select Data Source 的 dialog window, 繼而停止, 跟本不能使用
而且這方式唯一好處是能控制資料第一列要不要當作 header, 其它功能與 ODBC 方式無大分別
故建議用 ODBC 方式 (如下), 得出 cursor 後再用 Foxpro 來修正和處理
Driver = Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)
lcSQLCmd = Select * from "Payment$A1:K36" |
我用microsoft excel driver 會有mixed type column的問題..想克服select data source的問題又不知道要怎麼下stringconnect |
|
| 回頂端 |
|
|
garfield
Site Admin
註冊時間: 2003-01-30
文章: 2160
第 12 樓
|
|
| 回頂端 |
|
|
syntech
註冊時間: 2003-05-16
文章: 4252
來自: Taipei,Taiwan
第 13 樓
|
| 發表於: 星期六 二月 18, 2017 4:13 pm 文章主題: |
|
|
用 odbc 讀取 excel ,眉角很多....
以下為 "概念" 程式
| 代碼: |
CXLSFn = "IID.XLS" && 要匯入的excel 檔案
USE C:\DATA\IID.DBF ALIAS IID_TGT IN 0 EXCLUSIVE && 目的dbf
TGT_CURSOR = ALIAS()
&& 利用 ODBC �}啟 XLS 檔
LCDSNLESS="DRIVER={MICROSOFT EXCEL DRIVER (*.XLS)};READONLY=0;DBQ="+CXLSFN+"; DRIVERID=22"
NSQLCONNECT = SQLSTRINGCONNECT(LCDSNLESS)
IF NSQLCONNECT >0
=SQLEXEC(NSQLCONNECT,'SELECT * FROM [Sheet1$] ','TMPSQL')
IF SELECT('TMPSQL') !=0
SELECT TMPSQL
SELECT &TGT_CURSOR
GNFIELDCOUNT01 = AFIELDS(GAMYARRAY01)
SELECT TMPSQL
GNFIELDCOUNT = AFIELDS(GAMYARRAY)
&& 用這個方法有個問題,就是EXCEL 字串儲存格通通變成MEMO,所以要動一下手�}
&& 另一個問題是,如果EXCEL儲存格沒有內容,會變成NULL,導致REPLACE 失敗,
&& 這�]要動手�}.
&& 用ODBC轉入的方便處是,
&& A. EXCEL第一筆ROW的內容自動變成欄位名稱.
&& B. 只有有內容的ROW才會轉成記錄
SCAN
SELECT &TGT_CURSOR
APPEND BLANK
FOR I=1 TO GNFIELDCOUNT
FLDNA=FIELD(I)
IF ASCAN(GAMYARRAY01,FLDNA) >0
SELECT TMPSQL
IF !ISNULL(TMPSQL.&FLDNA)
DO CASE
CASE TYPE(TGT_CURSOR+'.'+FLDNA) ='C' AND
TYPE('TMPSQL.'+FLDNA) ='N'
SELECT &TGT_CURSOR
REPLACE &FLDNA WITH ALLTRIM(STR(EVAL('TMPSQL.'+FLDNA)))
SELECT TMPSQL
CASE TYPE(TGT_CURSOR+'.'+FLDNA) ='N' AND
TYPE('TMPSQL.'+FLDNA) ='M'
SELECT &TGT_CURSOR
REPLACE &FLDNA WITH VAL(ALLTRIM('TMPSQL.'+FLDNA))
SELECT TMPSQL
CASE TYPE(TGT_CURSOR+'.'+FLDNA) ='D' AND
TYPE('TMPSQL.'+FLDNA) !='D'
&& 略過
CASE TYPE(TGT_CURSOR+'.'+FLDNA) ='T' AND
TYPE('TMPSQL.'+FLDNA) !='T'
&& 略過
OTHERWISE
SELECT &TGT_CURSOR
REPLACE &FLDNA WITH TMPSQL.&FLDNA
SELECT TMPSQL
ENDCASE
ENDIF
ENDIF
NEXT
SELECT TMPSQL
ENDSCAN
ENDIF
ENDIF
USE IN TMPSQL
=SQLDISCONNECT(NSQLCONNECT )
|
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
| 回頂端 |
|
|
kojanlai0823
註冊時間: 2011-12-02
文章: 74
第 14 樓
|
| 發表於: 星期一 二月 20, 2017 10:43 am 文章主題: |
|
|
老闆要求..不得開啟excel...........................不然我就開啟excel,存csv...完全無殘念 |
|
| 回頂端 |
|
|
kojanlai0823
註冊時間: 2011-12-02
文章: 74
第 15 樓
|
| 發表於: 星期一 二月 20, 2017 10:45 am 文章主題: |
|
|
| syntech 寫到: | 用 odbc 讀取 excel ,眉角很多....
以下為 "概念" 程式
| 代碼: |
CXLSFn = "IID.XLS" && 要匯入的excel 檔案
USE C:\DATA\IID.DBF ALIAS IID_TGT IN 0 EXCLUSIVE && 目的dbf
TGT_CURSOR = ALIAS()
&& 利用 ODBC �}啟 XLS 檔
LCDSNLESS="DRIVER={MICROSOFT EXCEL DRIVER (*.XLS)};READONLY=0;DBQ="+CXLSFN+"; DRIVERID=22"
NSQLCONNECT = SQLSTRINGCONNECT(LCDSNLESS)
IF NSQLCONNECT >0
=SQLEXEC(NSQLCONNECT,'SELECT * FROM [Sheet1$] ','TMPSQL')
IF SELECT('TMPSQL') !=0
SELECT TMPSQL
SELECT &TGT_CURSOR
GNFIELDCOUNT01 = AFIELDS(GAMYARRAY01)
SELECT TMPSQL
GNFIELDCOUNT = AFIELDS(GAMYARRAY)
&& 用這個方法有個問題,就是EXCEL 字串儲存格通通變成MEMO,所以要動一下手�}
&& 另一個問題是,如果EXCEL儲存格沒有內容,會變成NULL,導致REPLACE 失敗,
&& 這�]要動手�}.
&& 用ODBC轉入的方便處是,
&& A. EXCEL第一筆ROW的內容自動變成欄位名稱.
&& B. 只有有內容的ROW才會轉成記錄
SCAN
SELECT &TGT_CURSOR
APPEND BLANK
FOR I=1 TO GNFIELDCOUNT
FLDNA=FIELD(I)
IF ASCAN(GAMYARRAY01,FLDNA) >0
SELECT TMPSQL
IF !ISNULL(TMPSQL.&FLDNA)
DO CASE
CASE TYPE(TGT_CURSOR+'.'+FLDNA) ='C' AND
TYPE('TMPSQL.'+FLDNA) ='N'
SELECT &TGT_CURSOR
REPLACE &FLDNA WITH ALLTRIM(STR(EVAL('TMPSQL.'+FLDNA)))
SELECT TMPSQL
CASE TYPE(TGT_CURSOR+'.'+FLDNA) ='N' AND
TYPE('TMPSQL.'+FLDNA) ='M'
SELECT &TGT_CURSOR
REPLACE &FLDNA WITH VAL(ALLTRIM('TMPSQL.'+FLDNA))
SELECT TMPSQL
CASE TYPE(TGT_CURSOR+'.'+FLDNA) ='D' AND
TYPE('TMPSQL.'+FLDNA) !='D'
&& 略過
CASE TYPE(TGT_CURSOR+'.'+FLDNA) ='T' AND
TYPE('TMPSQL.'+FLDNA) !='T'
&& 略過
OTHERWISE
SELECT &TGT_CURSOR
REPLACE &FLDNA WITH TMPSQL.&FLDNA
SELECT TMPSQL
ENDCASE
ENDIF
ENDIF
NEXT
SELECT TMPSQL
ENDSCAN
ENDIF
ENDIF
USE IN TMPSQL
=SQLDISCONNECT(NSQLCONNECT )
|
|
這個方式我用過...但是一旦某欄是數字文字並存..在不調整excel的狀況下..判定文字欄..數字變null..判定數字欄..文字變null |
|
| 回頂端 |
|
|
|
|
您 無法 在這個版面發表文章
您 無法 在這個版面回覆文章
您 無法 在這個版面編輯文章
您 無法 在這個版面刪除文章
您 無法 在這個版面進行投票
您 無法 在這個版面附加檔案
您 無法 在這個版面下載檔案
|
|
常見問題
搜尋
會員列表
會員群組
會員註冊
個人資料
登入檢查您的私人訊息
登入
