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

請問 call 的問題

wufonna

中學生 Rank: 2

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2013-9-4 13:06 | 只看該作者

請問 call 的問題

請問上式可執行改為下面的call就不能，謝謝
必須是常式運算式
--------------------------------------------------
引用 [發問] 求助~一個用VBA從網頁取得想要資料的寫法~

'Private Sub CommandButton1_Click()
' ' Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zck/zck_6257.asp.htm"
' Const url As String = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=2002&name1=D4&index1=12"    ' 正確的
'
' Cells.Clear
'
' Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"
'
' With ie
'       .Visible = False 'True為開啟ie, False為不開啟ie
'       .Navigate url
'       Do While .ReadyState <> 4 '等待網頁開啟
'       DoEvents
'       Loop
'       .ExecWB 17, 2 'Select All
'       .ExecWB 12, 2 'Copy selection
'       Range("A1").Activate
'       ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
'          False, NoHTMLFormatting:=True
' End With
'
' Columns("A:B").Delete ' 將匯入時 A、B 兩欄移除，原本 C:I 的欄位全部左靠，成為 A:I
' ie.Quit
' MsgBox "資料複製結束" ' 離開前顯示一小視窗提醒，按它後即結束。
'End Sub

Private Sub test2(ByVal ss As String)
' Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zck/zck_6257.asp.htm"
Const url As String = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=" & ss & "&name1=D4&index1=12"    ' 正確的

Cells.Clear

Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"

With ie
      .Visible = False 'True為開啟ie, False為不開啟ie
      .Navigate url
      Do While .ReadyState <> 4 '等待網頁開啟
      DoEvents
      Loop
      .ExecWB 17, 2 'Select All
      .ExecWB 12, 2 'Copy selection
      Range("A1").Activate
      ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
         False, NoHTMLFormatting:=True
End With

Columns("A:B").Delete ' 將匯入時 A、B 兩欄移除，原本 C:I 的欄位全部左靠，成為 A:I
ie.Quit
MsgBox "資料複製結束" ' 離開前顯示一小視窗提醒，按它後即結束。
End Sub

Sub test2_1()
Call test2("2002")
End Sub

活頁簿1.rar (28.62 KB)

樓主熱帖

wufonna

中學生 Rank: 2

帖子: 161
主題: 26
精華: 0
積分: 187
點名: 0
作業系統: xp
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: TW
註冊時間: 2011-1-2
最後登錄: 2022-2-16

2^#

發表於 2013-9-4 13:37 | 只看該作者

報歉，沒看清楚，可以了，謝謝

Private Sub test2(ByVal ss As String)
Dim rr As String
rr = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=" & ss & "&name1=D4&index1=12"
' Const url As String = "http://jsjustweb.jihsun.com.tw/z/zc/zck/zck_6257.asp.htm"
'Const url As String = "http://yamstock.megatime.com.tw/asp/stockinfo/GetReport.asp?select_table=html\Ficxxx\&stockid=" & ss & "&name1=D4&index1=12"    ' 正確的

Cells.Clear

Set ie = CreateObject("internetexplorer.application") '使用此方式可以免除 "設定引用項目"

With ie
      .Visible = False 'True為開啟ie, False為不開啟ie
      .Navigate rr
      Do While .ReadyState <> 4 '等待網頁開啟
      DoEvents
      Loop
      .ExecWB 17, 2 'Select All
      .ExecWB 12, 2 'Copy selection
      Range("A1").Activate
      ActiveSheet.PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:= _
         False, NoHTMLFormatting:=True
End With
Debug.Print rr
Columns("A:B").Delete ' 將匯入時 A、B 兩欄移除，原本 C:I 的欄位全部左靠，成為 A:I
ie.Quit
MsgBox "資料複製結束" ' 離開前顯示一小視窗提醒，按它後即結束。
End Sub

Sub test2_1()
Call test2("2412")
End Sub

TOP

靜思自在 : 地上種了菜，就不易長草；心中有善，就不易生惡。

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