返回列表下一主題上一主題發帖

[發問] 開啟網頁的問題

spermbank

中學生 Rank: 2

帖子: 94
主題: 28
精華: 0
積分: 145
點名: 0
作業系統: windows
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2011-9-22
最後登錄: 2025-2-25

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 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欄多列)，依據儲存格的內容，再利用瀏覽器在新增一個視窗中開啟多個分頁。

test.rar (12.96 KB)

樓主熱帖

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

2^#

發表於 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

Dim strChromePath As String
strChromePath = Environ("USERPROFILE") & "\AppData\Local\Google\Chrome\Application\Chrome.exe"
For Each C In Range("A1:A3")
x = C.Value
Shell (strChromePath & " -url http:tw.stock.yahoo.com/q/ta?s=" & x)
Next

複製代碼

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

spermbank