用excel上網查音標又掛了

4^# 跳轉到 »

發表於 2012-11-30 23:47 | 只看該作者

我自己回家用ie9 上面的程式也不行...
把網址改一下就好了.....

複製代碼

上網抓音標.rar (9.42 KB)

50 字節以內
不支持自定義 Discuz! 代碼

3^#

發表於 2012-11-30 15:59 | 只看該作者

奇怪呢!還是不能用.....

002.JPG (117.05 KB)

003.JPG (98.75 KB)

50 字節以內
不支持自定義 Discuz! 代碼

2^#

發表於 2012-11-30 14:16 | 只看該作者

Private Sub CommandButton1_Click()
Dim XH As Object
Dim shpRm As Shape
' With Rng.EntireRow
' .Resize(1, .Columns.Count - 1).Offset(0, 1).Clear
'End With
Dim i
With Range(Range("A1"), Range("A1").End(xlDown))
For i = .Columns(1).Rows.Count To 2 Step -1
If .Cells(i, 1).Value <> "" Then
Set Rng = Cells(i, 1)
Set XH = CreateObject("Microsoft.XMLHTTP")
With XH
.Open "get", "http://tw.dictionary.yahoo.com/dictionary?p=" & Rng.Text, False
.send
On Error Resume Next
Rng.Offset(0, 2) = Split(Split(.responseText, "class=""description"">1.")(1), "<")(0)
Rng.Offset(0, 1) = Left(VBA.Split(.responseText, "KK")(1), InStr(VBA.Split(.responseText, "KK")(1), "]"))
End With
Else
End If
Next
End With
End Sub

複製代碼

50 字節以內
不支持自定義 Discuz! 代碼

靜思自在 : 人生不一定球球是好球，但是有歷練的強打者，隨時都可以揮棒。

用excel上網查音標 又掛了