On May 23, 2017, at 8:52 PM, 方家晟 wrote:
「2017年5月22日 下午3:26 等全改好之後,再請Ben桑最後幫我看一下」
「2017年5月22日 下午8:27 有空時幫我看一下程式」
「mikeon88 發表於 2017-5-23 19:32 ......已請Ben桑在幫我們優化盈再表程式」
1. 電子郵件只說幫忙看,不是"優化盈再表程式",我對這個程式的無能為力之前已經在電話中說過了。看完之後沒有其他意見,詳細如下。
2. 股價網址顯示"403 Forbidden",有問題去問證交所。順帶一提,公開資訊觀測站也越改越爛。
比對5月22日和5月12日的附件檔案:
台股 module 4
差異:
1. 全部位置往右移兩欄
2. 刪除歷年還原股價
If [ad8] = "" Or [ao8] = "" Or [az8] = "" Or [bk8] = "" Then GoTo 格式
For k = 3 To 100
If [ad8] = "" Or [ao8] = "" Or [az8] = "" Or [bk8] = "" Then [b14] = "資料庫缺此股財報,別再問了"
...等等
3. 新增Cells(50, dc + 1) = "除權息日 " & url
With Range("k1,d13:i13,h16:h17,k16:k18").Font
...等等
4. 移動With ActiveSheet
.Hyperlinks.Add Anchor:=[h13]
...等等
修改. 無
美股 module 1
1. 全部位置往右移一欄
2. 刪除For i = 10 To 40
ActiveSheet.QueryTables.Add(Connection:= _
"URL;
https://chart.finance
3. 新增If [y106] = UCase([a2]) And [z106] = "歷史" Then
Dim myurl(2) 抓歷史股價+股息 5 / 9
Function TextToDate(mydate) '感謝Alex吳桑
Public Function CCRUMBT(rng As Range)("WinHttp.WinHttpRequest.5.1")
Public Function DCSV(url As String)("WinHttp.WinHttpRequest.5.1")
...等等
修改. 無(3.已在2017年5月22日 下午3:19回覆)
港股 module 2
1. 全部位置往右移一欄
2. 刪除 [o2] = 0: [p2] = 0: [q2] = 0
If [y70] = UCase([a2]) And [z70] = "歷史" Then
For k = 1 To 5
Selection.NumberFormatLocal = "yyyy/mm/dd"
Application.StatusBar = "抓歷史股價+股息 7 / 9"
...等等
修改. 無(3.已在2017年5月22日 下午3:19回覆)
中股 module 5
1. 無移動
2. 刪除For i = 3 To 7:
Application.StatusBar = "抓股子+股息 6 / 8"
[bf1] = "股子+股息
http://money.finance.sina
Cells(1, dc - 1) = "歷史股價
https://chart.finance
For i = 5 To 14 '股息
...等等
3. 新增 Dim myurl(2) '"抓歷史股價 6 / 7"
...等等
修改. 無(3.已在2017年5月22日 下午3:19回覆)
全球 module 6
1.
2. 刪除Application.ScreenUpdating = False
For j = 8 To 3 Step -1 '清除股息與分割
Cells(1, dc) = "公司名+股價+日期+介紹
http://quotes.wsj
Cells(1, dc - 1) = "歷史股價
https://chart.finance.
m = 3
3. 新增If [ae106] = UCase([a1]) And [af106] = UCase([a2]) And [ag106] = "歷史" Then
Columns("bt:dz").Select: Selection.Clear
Dim myurl(2) '抓歷史股價
Cells(1, dc) = "匯率
http://www.google
修改. 無(3.已在2017年5月22日 下午3:19回覆)