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

[發問] 請問如何從網路上抓下資料存入excel後"列"不會動

cji3cj6xu6

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-7-20 10:27 | 只看該作者

[發問] 請問如何從網路上抓下資料存入excel後"列"不會動

假設以下第一筆存入A80，第二筆存入A100，但第一筆的資料會被推到M80，請問要如何修改。

謝謝!

Sub 新增查詢()

Range("A80").Select

With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://tw.stock.yahoo.com/q/q?s=1101", Destination:=Selection)

      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "3"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
      .Name = .ResultRange.Cells(1, 1)
End With

Range("A100").Select
With ActiveSheet.QueryTables.Add(Connection:= _
      "URL;http://tw.stock.yahoo.com/q/q?s=1101", Destination:=Selection)

      .FieldNames = True
      .RowNumbers = False
      .FillAdjacentFormulas = False
      .PreserveFormatting = True
      .RefreshOnFileOpen = False
      .BackgroundQuery = True
      .RefreshStyle = xlInsertDeleteCells
      .SavePassword = False
      .SaveData = True
      .AdjustColumnWidth = True
      .RefreshPeriod = 0
      .WebSelectionType = xlSpecifiedTables
      .WebFormatting = xlWebFormattingNone
      .WebTables = "6"
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
      .Name = .ResultRange.Cells(3, 1)
End With

樓主熱帖

cji3cj6xu6

中學生 Rank: 2

帖子: 112
主題: 19
精華: 0
積分: 136
點名: 0
作業系統: window
軟體版本: excel
閱讀權限: 20
性別: 男
註冊時間: 2013-3-12
最後登錄: 2022-11-29

論壇贊助勳章

3^#

發表於 2013-7-20 22:14 | 只看該作者

又麻煩您了GBKEE大，
原來是修改此處，謝謝G大。

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-7-20 14:55 | 只看該作者

回復 1# cji3cj6xu6
With ActiveSheet.QueryTables.Add-> 新增查詢,如Range("A80")有[查詢],會被一直往工作表的右邊移動(不會被覆蓋)

With ActiveSheet.QueryTables(??) -> 第??個外部查詢 ,就不會動到其它的外部查詢.

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

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

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