返回列表 上一主題 發帖

[發問] 用錄製巨集的方式下載網頁資料,有辦法轉為陣列,不直接輸出嗎?

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-8-20 12:10 | 只看該作者

[發問] 用錄製巨集的方式下載網頁資料,有辦法轉為陣列,不直接輸出嗎?

小弟有個疑問,麻煩各位大大

例如下方程式碼,通常都會輸出到EXCEL分頁上
但實際上或許只用的到其中一個項目而已,是否可以將資料轉為陣列
由程式碼自行判斷要輸出的資料

就不用將所有資料都輸出到EXCEL上面,畢竟輸出的動作是最耗時的
  1. With ActiveSheet.QueryTables.Add(Connection:= _
  2.         "URL;http://jsjustweb.jihsun.com.tw/z/zc/zcw/zcw1_2330.djhtm", Destination:= _
  3.         Range("$A$1"))
  4.         .CommandType = 0
  5.         .Name = "zcw1_2330.djhtm"
  6.         .FieldNames = True
  7.         .RowNumbers = False
  8.         .FillAdjacentFormulas = False
  9.         .PreserveFormatting = True
  10.         .RefreshOnFileOpen = False
  11.         .BackgroundQuery = True
  12.         .RefreshStyle = xlInsertDeleteCells
  13.         .SavePassword = False
  14.         .SaveData = True
  15.         .AdjustColumnWidth = True
  16.         .RefreshPeriod = 0
  17.         .WebSelectionType = xlEntirePage
  18.         .WebFormatting = xlWebFormattingNone
  19.         .WebPreFormattedTextToColumns = True
  20.         .WebConsecutiveDelimitersAsOne = True
  21.         .WebSingleBlockTextImport = False
  22.         .WebDisableDateRecognition = False
  23.         .WebDisableRedirections = False
  24.         .Refresh BackgroundQuery:=False
  25.     End With
複製代碼
收藏 分享
PKKO

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題