新盈再表181120：中股bug

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6312
用戶失蹤天數 5

223.137.158.132

#721

發表於 2017-10-20 16:18 資料主頁文集私人訊息

On Oct 20, 2017, at 10:36 AM, Wu Alex  wrote:

Hi Mike,

微調了寫法 for step 1 to 4, 請試看看是否可以抓得到資料.

dc = 31 '本表在第幾欄位

  sUrl(1, 0) = "季損益表 http://www.marketwatch.com/investing/Stock/" & cd$ & "/financials/income/quarter"
  sUrl(1, 1) = "http://www.marketwatch.com/investing/Stock/" & cd$ & "/financials/income/quarter"
  sUrl(1, 2) = dc '季損益表欄位
  sUrl(1, 3) = "抓季損益表  1 / 9"""

。。。。。。

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6312
用戶失蹤天數 5

223.137.158.132

#722

發表於 2017-10-20 16:19 資料主頁文集私人訊息

Dear Alex 桑：

一樣抓不到表，殘念

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6312
用戶失蹤天數 5

223.137.158.132

#723

發表於 2017-10-20 19:36 資料主頁文集私人訊息

目前看來宥聰桑建議的重灌Office似乎是唯一解方。
請不能跑美股同學重灌Office，
若可行請跟我們回報，謝謝。

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6312
用戶失蹤天數 5

223.137.158.132

#724

發表於 2017-10-20 20:43 資料主頁文集私人訊息

從48頁同學反映，windows8.1、10好像都OK，
問題在這裡嗎？

Raimu

同學

UID 292
精華 0
積分 0
帖子 672
閱讀權限 99
註冊 2011-4-1
用戶註冊天數 4774
用戶失蹤天數 1088

49.159.171.10

#725

發表於 2017-10-20 21:51 資料私人訊息

Windows10 + Excel 2016 => 一切正常
Windows7 + Excel 2016 PD on MBA => 一切正常

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6312
用戶失蹤天數 5

36.236.254.111

#726

發表於 2017-10-20 21:54 資料主頁文集私人訊息

所以windows8.1、10或Office2016即正常！

aiwheat

同學

UID 3189
精華 0
積分 0
帖子 127
閱讀權限 99
註冊 2014-3-13
用戶註冊天數 3696
用戶失蹤天數 1237

1.169.214.27

#727

發表於 2017-10-20 22:15 資料私人訊息

Win NB：Win10 版本1703(x64) + Office 2013
台美股皆正常。

bni822

同學

UID 2197
精華 0
積分 0
帖子 75
閱讀權限 99
註冊 2013-1-26
用戶註冊天數 4107
用戶失蹤天數 1856

114.42.79.228

#728

發表於 2017-10-20 22:31 資料私人訊息

不能執行的同學, 請嘗試把IE 網際網路選項->進階勾選 TLS1.1 & TLS1.2 . 我勾選後就可以了 !!

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6312
用戶失蹤天數 5

42.77.153.246

#729

發表於 2017-10-20 22:38 資料主頁文集私人訊息

我的也可以了，太感謝bni桑，
這就是公開討論的好處，可集思廣益

盈再表最新版仍是1709，別來要1710了

studentHank

同學

UID 48280
精華 0
積分 0
帖子 242
閱讀權限 99
註冊 2015-8-1
用戶註冊天數 3190
用戶失蹤天數 514

111.253.0.40

#730

發表於 2017-10-21 00:47 資料私人訊息

bni大~這版本沒這選項該怎辦@@?

DennisHo

同學

UID 49003
精華 0
積分 0
帖子 22
閱讀權限 99
註冊 2015-8-17
用戶註冊天數 3175
用戶失蹤天數 314

123.195.31.123

#731

發表於 2017-10-21 07:05 資料私人訊息

感謝bni桑，我的也可以了。

bni822

同學

UID 2197
精華 0
積分 0
帖子 75
閱讀權限 99
註冊 2013-1-26
用戶註冊天數 4107
用戶失蹤天數 1856

114.42.79.228

#732

發表於 2017-10-21 08:01 資料私人訊息

QUOTE:

原帖由 studentHank 於 2017-10-21 00:47 發表
bni大~這版本沒這選項該怎辦@@?

可能需更新 IE.

金門稟原

同學

UID 2966
精華 0
積分 0
帖子 249
閱讀權限 99
註冊 2013-12-4
用戶註冊天數 3795
用戶失蹤天數 1955
來自中華民國~金門

36.235.177.167

#733

發表於 2017-10-21 08:19 資料私人訊息

PC: Win7 + Office2007 原本跑台股[可以]. 跑美股[不行].
經IE勾選TLS1.2後，已可正常使用。
感謝Mike桑.感謝同學.

[ 本帖最後由金門稟原於 2017-10-21 08:21 編輯 ]

Joe

同學

UID 2
精華 0
積分 0
帖子 2090
閱讀權限 99
註冊 2011-3-16
用戶註冊天數 4790
用戶失蹤天數 1970

175.33.184.8

#734

發表於 2017-10-21 14:15 資料私人訊息

感謝高手 bni 桑
改選了確實可以跑了
還以為被微軟下蠱了

mikeon88

管理員

UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6312
用戶失蹤天數 5

42.77.153.246

#735

發表於 2017-10-21 17:31 資料主頁文集私人訊息

On Oct 21, 2017, at 9:18 AM, Wu Alex  wrote:

Hi Mike,

1.    Click ‘全球’ 工作表,發現需要一段時間才能click 儲存格,進而輸入股票代號等
其原因為工作表上有太多的圖案正在載入, 如下圖, 常用a尋找與選取a選取窗格可以看出
其他工作表亦有此情形, 但全球最嚴重

2.    為何會有這些圖案:
推測之前直接COPY WEB PAGE進來所致,

3.    快速解決之道:
每次執行完後, 最後call below code
(附檔Module 29 , 該檔案係用你於10/19下午1:52寄給我的email附檔修改)

Public Sub Delete_Shapes()

   Select Case ActiveSheet.Name
         Case Is = "全球", "美股", "台股", "港股", "中股", "大盤"
                  If ActiveSheet.DrawingObjects.Count > 0 Then ActiveSheet.DrawingObjects.Delete
         Case Else

   End Select

End Sub

4.    請勿將收藏納入, 不然會使 “清空”, “縮小”, “放大”, “更新”等被刪除
5.    刪除後, 檔案size會縮小一些.