奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 為何不能通過 懇請幫忙 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=22975)

為何不能通過 懇請幫忙

為了自動化"台當月下單分析"
專此拜託賜教 謝謝

dates:=date;
opens:=open;
highs:=high;
lows:=low;
closes:=close;

<%
on error resume next
Dim oExcel, oBook

dates=ffl.vardata("dates")
opens=ffl.vardata("opens")
highs=ffl.vardata("highs")
lows=ffl.vardata("lows")
closes=ffl.vardata("closes ")

Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlerts=False
OExcel.Visible=False
Set oBook=oExcel.Workbooks.Add
Set oSheet=oBook.sheets(1)
oexcel.cells(1,1).value="dates"
oexcel.cells(1,2).value="opens"
oexcel.cells(1,3).value="highs"
oexcel.cells(1,4).value="lows"
oexcel.cells(1,5).value="closes"
oBook.SaveAs "D:\台當月下單分析.xlsm"
oBook.Close
err.clear
%>

回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 mori868 發表
為了自動化"台當月下單分析"
專此拜託賜教 謝謝

dates:=date;
opens:=open;
highs:=high;
lows:=low;
closes:=close;
......略......

---

回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 cgjj 發表
你沒有在奇狐中輸出任何變數，當然無法通過!

編譯公式時
系統就有告訴您 "必須至少有一個公式輸出表達式"

---

回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 mori868 發表
這樣對不對
NowDT:= NUMTOSTR(YEAR,0) + '/' +NUMTOSTR(MONTH,0)+ '/'+NUMTOSTR(DAY,0);
NowO := NUMTOSTR(O,0);
NowH := NUMTOSTR(H,0);
NowL := NUMTOSTR(L,0);
NowC := NUMTOSTR(C,0);

---

如果您只是為了要把K棒的日期時間與高、開、低、收，或指標值放入Excel 中
不需如此大費周章!!!

對著K線，按滑鼠右鍵，點選[複製數據]，再到Excel中貼上，即可得到K棒資料
對著指標線，按滑鼠右鍵，點選[複製數據]，再到Excel中貼上，即可得到指標有輸出的數值資料
根本不需要寫程式!!!

回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 cgjj 發表
你這一部分全部都 :=
沒任何輸出唷，當然無法編譯通過!!!

---

回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 mori868 發表
為何以前放在奇狐公式後皆這樣寫法
是否方便煩請修改正確寫法 以利正確寫習應用
NowDT:= NUMTOSTR(YEAR,0) + '/' +NUMTOSTR(MONTH,0)+ '/'+NUMTOSTR(DAY,0);
NowO := NUMTOSTR(O,0);
NowH := NUMTOSTR(H,0);
NowL := NUMTOSTR(L,0);
NowC := NUMTOSTR(C,0);

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 cgjj 發表
您這幾行語法並沒有不正確!!!

請您看清楚了~~
我前面說的是：
你沒有在奇狐中輸出任何變數，當然無法通過!

你新建一個全新的公式，內容只有底下這一行試試，結果是編譯不通過的(因為無輸出)。
CC:=C;

然後您再把 CC:=C;
改為 CC:C; 然後再試試
就可以編譯通過，因為有輸出 CC 這條指標線!

這樣清楚了嗎~~~

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 cgjj 發表
您這幾行語法並沒有不正確!!!

請您看清楚了~~
我前面說的是：
你沒有在奇狐中輸出任何變數，當然無法通過!

你新建一個全新的公式，內容只有底下這一行試試，結果是編譯不通過的(因為無輸出)。
CC:=C;

然後您再把 CC:=C;
改為 CC:C; 然後再試試
就可以編譯通過，因為有輸出 CC 這條指標線!

這樣清楚了嗎~~~

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 mori868 發表
為了正確寫習 請問下面寫法是否可以了
CC:C;
NowDT:= NUMTOSTR(YEAR,0) + '/' +NUMTOSTR(MONTH,0)+ '/'+NUMTOSTR(DAY,0);
NowO := NUMTOSTR(O,0);
NowH := NUMTOSTR(H,0);
NowL := NUMTOSTR(L,0);
NowC := NUMTOSTR(C,0);

<%
on error resume next
Dim oExcel, oBook

NowDT = FFL.VarData("NowDT")
NowO = FFL.VarData("NowO")
NowH = FFL.VarData("NowH")
NowL = FFL.VarData("NowL")
NowC = FFL.VarData("NowC")

Set oExcel=CreateObject("Excel.Application")
oExcel.DisplayAlerts=False
OExcel.Visible=False
Set oBook=oExcel.Workbooks.Add
Set oSheet=oBook.sheets(1)
oexcel.cells(1,1).value="NowDT"
oexcel.cells(1,2).value="NowO"
oexcel.cells(1,3).value="NowH"
oexcel.cells(1,4).value="NowL"
oexcel.cells(1,5).value="NowC"
oBook.SaveAs "D:\台當月下單分析.xlsm"
oBook.Close
err.clear
%>

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 cgjj 發表
寫法可不可以要問你自己要做什麼事?
語法沒問題，不代表寫法就OK
請自行測試

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 mori868 發表
oexcel.cells(1,1).value="NowDT"
oexcel.cells(1,2).value="NowO"
oexcel.cells(1,3).value="NowH"
oexcel.cells(1,4).value="NowL"
oexcel.cells(1,5).value="NowC"
oBook.SaveAs "D:\台當月下單分析.xlsm"
1: 語法沒問題 就好辦事
2: 是不是上述儲存格 "新的護蓋舊的" 永遠顯示最新資料並給予儲存,而若要舊的資料需往下一格輸入.對嗎 ?

---

回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:

---

最初由 cgjj 發表
<% %> 中的語法是 VBScript 語法
不是奇狐的語法，麻煩您自行解決了

---