返回列表 上一主題 發帖

請問可以邦我看一下這程式碼嗎？

vavashop

帖子
78 
主題
30 
精華
0 
積分
109 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
註冊時間
2014-5-15 
最後登錄
2018-9-16 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-2-11 20:00 | 只看該作者

請問可以邦我看一下這程式碼嗎？

[版主管理留言]
  • GBKEE(2015/2/13 15:27): 沒人看的懂你要如何作,附檔說明會清楚些.

我A8 是 想複製日期後
到其他分頁  到連結外部網頁 把日期給改掉
但 這巨集路好
後面該怎麼改  請幫幫忙


'
    Range("A1").Select
    Sheets("上市").Select
    Range("B8").Select
    Selection.Copy
    Range("A8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("A8").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "104/02/11"
    Sheets("上櫃").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://www.gretai.org.tw/web/stock/aftertrading/daily_close_quotes/stk_quote_print.php?l=zh-tw&d=104/02/11"
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False
    End With
    Sheets("投信(上櫃)").Select
      Range("A1").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://www.gretai.org.tw/web/stock/3insti/sitc_trading/sitctr_print.php?l=zh-tw&t=D&type=buy&d=104/02/11"
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = False
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False
    End With
       Range("A180").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://www.gretai.org.tw/web/stock/3insti/sitc_trading/sitctr_print.php?l=zh-tw&t=D&type=sell&d=104/02/11"
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = False
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = True
        .Refresh BackgroundQuery:=False
    End With
   
    Sheets("上市").Select
End Sub
收藏 分享

        靜思自在 : 站在半路，比走到目標更辛苦。
返回列表 上一主題