VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

VFP9 轉出EXCLE 筆數問題
前往頁面 上一頁  1, 2
 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
danielkao



註冊時間: 2011-04-21
文章: 31


第 16 樓

發表發表於: 星期一 五月 30, 2011 3:57 pm    文章主題: vfp 轉出 excel 檔 引言回覆

1.vfp 轉出 excel 檔和 excel 沒關
2.若是需要轉出時可用excel 查看, 那需於轉出時將轉出之資料轉成多檔案方式
例子

LPARAMETERS X_File, X_MessOk
If Parameter() < 2
X_MessOk = .T.
EndIf
LOCAL K_FILE, K2_FILE, LOO, RR, POI_FILE, H_F, F_PP, LN1, LN2, LJ, II
X_File = Strtran(X_File, " ")
lcReturn = 0
K2_File = ""
IF Right(X_File, 4) = ".XLS"
K_File = X_File
K2_File = Left(X_File, Len(X_File) - 4)
ELSE
IF Right(X_File, 1) = "."
K_File = X_File + "XLS"
K2_File = Left(X_File, Len(X_File) - 1)
ELSE
K2_File = X_File
K_File = X_File + ".Xls"
ENDIF
ENDIF
ERASE &K_File.
IF lcReturn = 0
RR = RecCount()
LOO = 16380
If RR > LOO
II = Int(RR / LOO + .999999)
POI_File = ""
For LJ = 1 To II
LN1 = (Lj - 1) * LOO + 1
Ln2 = Ln1 + LOO - 1
If LJ = 1
H_F = K_File
Else
F_PP = Ntoc(Lj, 2)
H_F = K2_File + F_PP + ".Xls"
EndIf
COPY To &H_F. Xl5 For Between(Recno(), Ln1, Ln2)
If ! Empty(POI_File)
POI_File = POI_File + ", "
EndIf
POI_File = POI_File + H_F
EndFor
If X_MessOk
MESSAGEBOX("已轉 Excel 檔, 檔名" + POI_File + " !!", 0, "訊息")
EndIf
Else
COPY To &X_File. Xl5
If X_MessOk
MESSAGEBOX("已轉 Excel 檔, 檔名" + X_File + ".Xls !!", 0, "訊息")
EndIf
EndIf
ENDIF
ON Error
Release K_FILE, K2_FILE, LOO, RR, POI_FILE, H_F, F_PP, LN1, LN2, LJ, II
回頂端
檢視會員個人資料 發送私人訊息
goodnight



註冊時間: 2008-10-13
文章: 472
來自: 台南市

第 17 樓

發表發表於: 星期六 二月 18, 2017 11:16 am    文章主題: 引言回覆

ckp6250 寫到:
其實,我也沒先搞清楚syntech大大『慧根』的定義
匯出資料到 Excel
不就 
createobject(""Excel.application)
scan
for i=1 to fcount()
.............
next
endscan
也沒幾行程式,再多筆都轉出去了,
難道不行嗎?


大大您好, 這樣是可以, 但速度很慢~~不知道有沒有可以像 copy to 的方式一樣快速??

_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 雅虎訊息通 MSN Messenger
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 18 樓

發表發表於: 星期六 二月 18, 2017 4:03 pm    文章主題: 引言回覆

最近發現一個還不會太蠢的方法.

步驟:
1. COPY TO .... TYPE FOX2X,先copy 成 fox 2.x 格式
2. createobject(""Excel.application) 開啟這個檔案. 因為excel 還可以讀取這種老格式
3. 最後另存為 xls 或 xlsx


不過要小心現在的dbf格式與舊 2.x 的欄位型態對應情況

_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
goodnight



註冊時間: 2008-10-13
文章: 472
來自: 台南市

第 19 樓

發表發表於: 星期一 二月 20, 2017 11:05 am    文章主題: 引言回覆

syntech 寫到:
最近發現一個還不會太蠢的方法.

步驟:
1. COPY TO .... TYPE FOX2X,先copy 成 fox 2.x 格式
2. createobject(""Excel.application) 開啟這個檔案. 因為excel 還可以讀取這種老格式
3. 最後另存為 xls 或 xlsx


不過要小心現在的dbf格式與舊 2.x 的欄位型態對應情況


謝謝大大的指導, 居然使用這樣的巧思, 真是厲害~~
找時間來看看程式怎麼寫

_________________
希望有更多人來參與
VFP wiki - 需要大家一起完成的VFP電子書與FAQ
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 雅虎訊息通 MSN Messenger
syntech



註冊時間: 2003-05-16
文章: 4211
來自: Taipei,Taiwan

第 20 樓

發表發表於: 星期一 二月 20, 2017 2:16 pm    文章主題: 引言回覆

有一天,不知怎麼突然 GOOGLE 到的. XD XD XD
_________________
如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問

請聯絡我們,也許我們幫得上忙
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件 AIM Address
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
前往頁面 上一頁  1, 2
2頁(共2頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作