|
VFP 愛用者社區 本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
|
上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
sthuang66
註冊時間: 2014-04-27 文章: 171
第 1 樓
|
發表於: 星期一 八月 16, 2021 3:30 pm 文章主題: 請教高手!!為什麼我的迴圈不會動!!哪裡出錯了! |
|
|
我想破頭!不知哪裡少了!! 我的資料如下
RE1, RE2,RE3,RE4,RE5,RE6 六個檔將其中計算後用EXCEL輸出成TABLE_1,TABLE_2,TABLE_3,TABLE_4,TABLE_5,TABLE_6
---------------------------------------------------------------------------
代碼: |
SET SAFETY OFF
PUBLIC A,B,C,BR,RE
FOR B=1 TO 6
BR=ALLTRIM(STR(B))
RE="RE"+BR
?RE
**原始資料基本數據
SELECT ID,SUM(ORDER) AS NO FROM &RE GROUP BY 1 ORDER BY 2 DESC INTO TABLE A1
SELECT SUM(NO) AS ALL,COUNT(ID) AS HS,AVG(NO) AS AVG FROM A1 INTO TABLE A2
CLOSE DATABASES ALL
USE A2
A=ALL
B=HS
C=AVG
USE
OLE=CREATEOBJECT("EXCEL.APPLICATION")
OLE.VISIBLE=.T.
OLE.WORKBOOKS.ADD
OLE.RANGE('A1').VALUE='項目'
OLE.RANGE('A2').VALUE='總數'
OLE.RANGE('A3').VALUE='ID數'
OLE.RANGE('A4').VALUE='平均數'
OLE.RANGE('B1').VALUE='原始資料'
OLE.RANGE('B2').VALUE=A
OLE.RANGE('B3').VALUE=B
OLE.RANGE('B4').VALUE=C
O = OLE.ACTIVESHEET
BB = O.RANGE("A:A","D:D")
WITH BB
.SELECT
.COLUMNWIDTH = 24
.FONT.NAME = "新細明體"
.FONT.FONTSTYLE = "標準"
.FONT.SIZE = 12
ENDWITH
OLE.ACTIVEWORKBOOK.SAVEAS("table1_"+BR+".xls",-4143,"","", .F., .F.)
OLE.WORKBOOKS.CLOSE
OLE.QUIT
ENDFOR
|
|
|
回頂端 |
|
|
ckp6250
註冊時間: 2004-07-30 文章: 1644
第 2 樓
|
發表於: 星期一 八月 16, 2021 5:58 pm 文章主題: |
|
|
代碼: |
FOR B=1 TO 6
B=HS ??????????????
ENDFOR
| [/quote] |
|
回頂端 |
|
|
sthuang66
註冊時間: 2014-04-27 文章: 171
第 3 樓
|
發表於: 星期一 八月 16, 2021 7:22 pm 文章主題: |
|
|
謝謝提醒!!變數重複了 |
|
回頂端 |
|
|
syntech
註冊時間: 2003-05-16 文章: 4212 來自: Taipei,Taiwan
第 4 樓
|
發表於: 星期一 八月 16, 2021 9:09 pm 文章主題: |
|
|
小時候買的書說,
不要用沒有意義的變數名稱,
現代的開發工具都可以寫成夠長夠能辨識用途的變數名稱 _________________ 如果公司有下列困擾:
1. 找不到便宜,快速,簡易的 生產排程軟體
2. 不知道如何快速排定 採購計劃
3. 成本抓不準,自己算比軟體算有用
4. 想學習系統規劃,想找系統架構的顧問
請聯絡我們,也許我們幫得上忙 |
|
回頂端 |
|
|
|
|
您 無法 在這個版面發表文章 您 無法 在這個版面回覆文章 您 無法 在這個版面編輯文章 您 無法 在這個版面刪除文章 您 無法 在這個版面進行投票 您 無法 在這個版面附加檔案 您 無法 在這個版面下載檔案
|
|