Board logo

標題: [發問] 開啟網頁的問題 [打印本頁]
作者: spermbank    時間: 2012-7-1 00:52     標題: 開啟網頁的問題

各問大大好:

      這是附件的程式碼，程式碼主要是利用目前儲存格(只有一個)，點選巨集開啟網頁。

      Set temp = CreateObject("InternetExplorer.Application")
      temp.Visible = True
      x = ActiveCell.Value
      OpenI = "http://tw.stock.yahoo.com/q/ta?s=" & x
      temp.Navigate OpenI
      
      問題:
      因為我想用google的chrome瀏覽器開啟
      1.怎麼設計成利用chrome瀏覽器開啟
      2.並且選取複數個儲存格(1欄多列)，依據儲存格的內容，再利用瀏覽器在新增一個視窗中開啟多個分頁。
作者: kimbal    時間: 2012-7-1 12:21

回復 1# spermbank

1. 先右click chrome找找其位置, 把他放在strChromePath, 例如下面win7的: "C:\Users\USERNAME\AppData\Local\Google\Chrome\Application\Chrome.exe "
2.  假設3個號分別在A1,A2,A3
  1.   Dim strChromePath As String
  2.   strChromePath = Environ("USERPROFILE") & "\AppData\Local\Google\Chrome\Application\Chrome.exe"
  3.     For Each C In Range("A1:A3")
  4.         x = C.Value
  5.         Shell (strChromePath & " -url http:tw.stock.yahoo.com/q/ta?s=" & x)
  6.     Next
複製代碼
作者: spermbank    時間: 2012-7-1 23:24

回復 2# kimbal

請問一下:

     我選取的複數儲存格，並不一定都在A1,A2,A3
     而是不確定隨機框取的第?欄第X行至第?欄第Y行
     這樣子要怎麼設計，謝謝。
作者: kimbal    時間: 2012-7-2 11:30

把Range("A1:A3")  換成 Selection 即可
作者: spermbank    時間: 2012-7-2 22:23

回復 4# kimbal


    昨天弄超級久，並且用了另外一個方法來解決
    沒想到就一個Selection就解決囉!!!:'(
    感謝



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)