到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料，查看短訊，訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > 為何不能通過 懇請幫忙
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
mori868
資深會員

註冊日期: Jan 2004
來　　自:
文章數量: 1044
為何不能通過 懇請幫忙

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

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
%>

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 12:04
mori868 現在離線 點選這裡查看 mori868 的個人資料 點選這裡給 mori868 傳送一條短訊 查找更多關於 mori868 的文章 增加 mori868 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18131
回覆: 為何不能通過 懇請幫忙

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

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


你沒有在奇狐中輸出任何變數，當然無法通過!

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

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 12:10
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
mori868
資深會員

註冊日期: Jan 2004
來　　自:
文章數量: 1044
回覆: 回覆: 為何不能通過 懇請幫忙

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

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

這樣對不對
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
%>

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 13:34
mori868 現在離線 點選這裡查看 mori868 的個人資料 點選這裡給 mori868 傳送一條短訊 查找更多關於 mori868 的文章 增加 mori868 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18131
回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:
最初由 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);


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

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 14:07
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18131

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

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

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 14:39
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
mori868
資深會員

註冊日期: Jan 2004
來　　自:
文章數量: 1044
回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

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

為何以前放在奇狐公式後皆這樣寫法
是否方便煩請修改正確寫法 以利正確寫習應用
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);

最後由 mori868 在 2021-05-19 15:00 編輯 向版主報告此篇 | 查IP位址
Old Post 2021-05-19 14:51
mori868 現在離線 點選這裡查看 mori868 的個人資料 點選這裡給 mori868 傳送一條短訊 查找更多關於 mori868 的文章 增加 mori868 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18131
回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:
最初由 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);


您這幾行語法並沒有不正確!!!

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

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

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

這樣清楚了嗎~~~

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 15:09
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
mori868
資深會員

註冊日期: Jan 2004
來　　自:
文章數量: 1044
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

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

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

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

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

這樣清楚了嗎~~~

喔! 原來這樣奇妙 又讓我進一大步 謝謝

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 15:21
mori868 現在離線 點選這裡查看 mori868 的個人資料 點選這裡給 mori868 傳送一條短訊 查找更多關於 mori868 的文章 增加 mori868 至你的好友列表 編輯/刪除訊息 引用回覆
mori868
資深會員

註冊日期: Jan 2004
來　　自:
文章數量: 1044
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

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

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

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

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

這樣清楚了嗎~~~

為了正確寫習 請問下面寫法是否可以了
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
%>

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 16:23
mori868 現在離線 點選這裡查看 mori868 的個人資料 點選這裡給 mori868 傳送一條短訊 查找更多關於 mori868 的文章 增加 mori868 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18131
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:
最初由 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
%>


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

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 16:33
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
mori868
資深會員

註冊日期: Jan 2004
來　　自:
文章數量: 1044
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

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

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: 是不是上述儲存格 "新的護蓋舊的" 永遠顯示最新資料並給予儲存,而若要舊的資料需往下一格輸入.對嗎 ?

最後由 mori868 在 2021-05-19 18:00 編輯 向版主報告此篇 | 查IP位址
Old Post 2021-05-19 17:52
mori868 現在離線 點選這裡查看 mori868 的個人資料 點選這裡給 mori868 傳送一條短訊 查找更多關於 mori868 的文章 增加 mori868 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18131
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

引用:
最初由 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: 是不是上述儲存格 "新的護蓋舊的" 永遠顯示最新資料並給予儲存,而若要舊的資料需往下一格輸入.對嗎 ?


<% %> 中的語法是 VBScript 語法
不是奇狐的語法，麻煩您自行解決了

向版主報告此篇 | 查IP位址
Old Post 2021-05-19 18:04
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
mori868
資深會員

註冊日期: Jan 2004
來　　自:
文章數量: 1044
回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 回覆: 為何不能通過 懇請幫忙

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

語法沒問題 可是顯示錯誤
最後兩個顯示對的 3個顯示錯誤
我還是要向您說
謝謝又謝謝再謝謝 您讓我進步了又美夢成真
終於可以同步顯示又可以----
奇狐真好用

最後由 mori868 在 2021-05-21 14:23 編輯 向版主報告此篇 | 查IP位址
Old Post 2021-05-21 08:00
mori868 現在離線 點選這裡查看 mori868 的個人資料 點選這裡給 mori868 傳送一條短訊 查找更多關於 mori868 的文章 增加 mori868 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為10:13 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章 		HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們