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

請匯入網頁問題?

flask

中學生 Rank: 2

帖子: 40
主題: 10
精華: 0
積分: 83
點名: 0
作業系統: winxp
軟體版本: office2003
閱讀權限: 20
註冊時間: 2011-6-3
最後登錄: 2020-10-1

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-11-16 09:05 | 顯示全部帖子

請匯入網頁問題?

請問匯入時股票名稱無法匯入為什麼?謝謝大大...
Sub TEST()
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://toptrade.moneydj.com/z/ze/zeb/zeb.djhtm", Destination:=Range( _
      "O1"))
      .AdjustColumnWidth = False
      .WebFormatting = xlWebFormattingNone
      .WebDisableDateRecognition = True
      .Refresh BackgroundQuery:=False
      End With
End Sub