這裡是和天成翻譯有關的地盤,歡迎到訪我的BLOG!

嘎勒文翻譯

問題:

再按一次 Alt+F11 回到 Excel, 按 Alt+F8 選 GetStoeckInfo 履行它, 便可在工作表裡看到功效。

程式重點:

解答:

Call 法人持股("2330"翻譯社 "sheet1"翻譯社 "A1")
Call 法人持股("2340"翻譯社 "sheet1", "A35")

• 法人持股是 corporation.cfm, 六日行情是  quote6day.cfm, 信用買賣是 trust.cfm, 這些是從">阿誰 fortune.wls.com.tw 的網頁上看來的。
• scode 這個參數可從實際操作或從網頁原始碼看出來 。
• .WebSelectionType = xlSpecifiedTables 示意不抓整頁, 只抓頁面上某些表格翻譯
• .WebTables = "7" 示意要抓的是頁面上第7個表格。
• .Name 的內容文字可以自由決意。
• 參考: >抓取台北期交所 (Taifex) 網站供給的資訊(上) ; >抓取台北期交所 (Taifex) 網站供給的資訊(下)
  

  Call 信譽生意業務("2330", "sheet3", "A1")
  Call 信用生意業務("2340", "sheet3", "A25")

  End Sub

  Sub GetWls(cfm As String翻譯社 tbl As String翻譯社 stock As String翻譯社 tsheet As String翻譯社 tcell As String)
      With Worksheets(tsheet).QueryTables.Add(Connection:= _
          "URL;http://fortune.wls.com.tw/stock/company/" & cfm & "?scode=" & stock, _
          Destination:=Worksheets(tsheet).Range(tcell))
          .Name = cfm & "_" & stock
          .FieldNames = True
          .RowNumbers = False
          .FillAdjacentFormulas = False
          .PreserveFormatting = True
          .RefreshOnFileOpen = False
          .BackgroundQuery = True
          .RefreshStyle = xlInsertDeleteCells
          .SavePassword = False
          .SaveData = True
          .AdjustColumnWidth = True
          .RefreshPeriod = 0
          .WebSelectionType = xlSpecifiedTables
          .WebFormatting = xlWebFormattingNone
          .WebTables = tbl
          .WebPreFormattedTextToColumns = True
          .WebConsecutiveDelimitersAsOne = True
          .WebSingleBlockTextImport = False
          .WebDisableDateRecognition = False
          .WebDisableRedirections = False
          .Refresh BackgroundQuery:=False
      End With
  End Sub

用EXCEL抓取外部資料

http://fortune.wls.com.tw/stock/company/trust.cfm

在此網址中有可輸入代碼，希望輸入代碼後可以呈現：法人持股、六日行情、信譽生意業務三部分......

Sub 法人持股(stock As String, tsheet As String翻譯社 tcell As String)
Call GetWls("corporation.cfm", "6,7,8,9"翻譯社 stock, tsheet, tcell)
End Sub
Sub 六日行情(stock As String翻譯社 tsheet As String, tcell As String)
Call GetWls("quote6day.cfm", "6", stock, tsheet, tcell)
End Sub

Call 六日行情("2330"翻譯社 "sheet2", "A1")
Call 六日行情("2340", "sheet2", "A10")

若要查更多個股, 只需增加 GetStockInfo 裡面的句子便可, 說明以下:

查詢方針: "2330" 指定股號
匯入到那裡: "sheet1" 指定工作表, "A1"指定貯存格

Sub 信譽生意業務(stock As String翻譯社 tsheet As String, tcell As String)
Call GetWls("trust.cfm", "7"翻譯社 stock, tsheet翻譯社 tcell)
End Sub

按 Alt+F11 進入 VBE翻譯社 插入一個模組, 把底下程式碼掃數貼到插入的模組裡翻譯