暱稱: joey0415
中學生
- 帖子
- 361
- 主題
- 57
- 精華
- 0
- 積分
- 426
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2003,2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-13
- 最後登錄
- 2022-12-8
|
紅色的字設成你的變數就行
Sub 巨集1()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://csct.nbport.com.cn/csct/business/cqcx.jsp?start_date=&end_date=&check_mode=1&e_voyage=UNICHART%2F222E&vRef=UNICH121&holdFlag=display&imageField32.x=26&imageField32.y=11" _
, Destination:=Range("$A$1"))
' .WebFormatting = xlWebFormattingNone
.WebTables = "25"
.Refresh BackgroundQuery:=False
.Delete
End With
End Sub |
|
發表於 2014-12-20 14:41
| 