下列EXCEL 巨集為何只能抓集中市場資料?
Sub 股價多頭排列()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;https://www.cnyes.com/twstock/a_technical4.aspx", Destination:=Range( _
"$F$2001"))
.Name = "a_technical4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlOverwriteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = False
.WebDisableDateRecognition = False
.WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End Sub
文章關鍵字
文章分享
評分
評分
複製連結

今日熱門文章 網友點擊推薦!