[發問] 開啟網頁的問題

spermbank

各問大大好:

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

      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

回復 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

回復 2# kimbal

請問一下:

     我選取的複數儲存格，並不一定都在A1,A2,A3
     而是不確定隨機框取的第?欄第X行至第?欄第Y行
     這樣子要怎麼設計，謝謝。

kimbal

把Range("A1:A3")  換成 Selection 即可

spermbank

回復 4# kimbal


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