- 帖子
- 9
- 主題
- 7
- 精華
- 0
- 積分
- 50
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2019-2-6
- 最後登錄
- 2022-4-12
|
[發問] Excel 關於vlookup 產生 NA及刪除空白列問題
先感謝G版大
之前有爬文看到
G版主 幫人解題( 有單之多年度迴圈以及單檔股票某年某季的迴圈 我是採用單年度某季的迴圈 )
1. 多年度的程式碼因為不同公司的財務報表長度無法掌控所以沒使用這組
2. 個人使用單年度某季(可以一次抓搜尋年度去年及的當年度當季報表)的迴圈使用數值跑出後
使用合併資產負債表及合併綜合損益表表插入vlookup後產生NA的問題- Option Explicit
- Sub Ex()
- Dim URL As String, xCo_Id As String, xSyear As String, xSseason As String
- xCo_Id = "[" & """股票代號""" & "," & """2485""" & "]" '要求輸入網頁的參數:股票代號
- xSyear = "[" & """年度""" & "," & """" & Format(Date, "e") & """" & "]" 'Format(Date, "e")->中華民國的年度
- xSseason = "[" & """季別""" & "," & """" & Format(Date, "q") & """" & "]" 'Format(Date, "q")->當年度的季別
- URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
- With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("A1"))
- .AdjustColumnWidth = False '自動調整欄寬
- .WebSelectionType = xlSpecifiedTables
- .WebFormatting = xlWebFormattingNone
- .WebTables = "2,3,4" '資產負債表,綜合損益表,現金流量表
- .WebPreFormattedTextToColumns = True
- .WebConsecutiveDelimitersAsOne = True
- .WebSingleBlockTextImport = False
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- End With
- End Sub
問題：
(1) 請教該如何刪除僅有左側有文字但右側無數值的列 加入到程式碼當中
(2)網站抓下的資料經過vlookup 合併資產負債表產生不同「格式」而搜尋變成結果產生NA
及搜尋下因項目略有不同該如何才能使函數正常使用
 excel.rar (55.07 KB)
|
|
發表於 2019-2-8 19:48
| 
