公式和程式俱在此,請詳查
'年損益表:生損
Application.StatusBar = "抓年損益表 1 / 9"
dc = 61
Cells(1, dc) = "年損益表
http://www.aastocks.com/tc/stock ... rofit-loss/?symbol=" & [a2]
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;
http://www.aastocks.com/tc/stock ... rofit-loss/?symbol=" & [a2] & "&period=4", Destination:=Cells(2, dc))
.Name = "profit-loss/?symbol=" & [a2]
.BackgroundQuery = True
.RefreshStyle = xlOverwriteCells
.SaveData = True
.AdjustColumnWidth = False
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "9"
.Refresh BackgroundQuery:=False
End With 'by 徐廣福
If Not IsNumeric(Cells(5, dc + 1)) Or Cells(5, dc + 1) = 0 Then GoTo 格式
'年資產表: 生資
Application.StatusBar = "抓年資產表 2 / 9"