Board logo

標題: [發問] Excel 關於vlookup 產生 NA及刪除空白列問題 [打印本頁]

作者: Chang123    時間: 2019-2-8 19:48     標題: Excel 關於vlookup 產生 NA及刪除空白列問題

先感謝G版大
    之前有爬文看到
     G版主  幫人解題( 有單之多年度迴圈以及單檔股票某年某季的迴圈 我是採用單年度某季的迴圈 )
        
       1. 多年度的程式碼因為不同公司的財務報表長度無法掌控所以沒使用這組
      
       2. 個人使用單年度某季(可以一次抓搜尋年度去年及的當年度當季報表)的迴圈使用數值跑出後
           使用合併資產負債表及合併綜合損益表表插入vlookup後產生NA的問題
  1. Option Explicit
  2. Sub Ex()
  3. Dim URL As String, xCo_Id As String, xSyear As String, xSseason As String
  4. xCo_Id = "[" & """股票代號""" & "," & """2485""" & "]"                     '要求輸入網頁的參數:股票代號
  5. xSyear = "[" & """年度""" & "," & """" & Format(Date, "e") & """" & "]"    'Format(Date, "e")->中華民國的年度
  6. xSseason = "[" & """季別""" & "," & """" & Format(Date, "q") & """" & "]"       'Format(Date, "q")->當年度的季別
  7. URL = "URL;http://mops.twse.com.tw/server-java/t164sb01?step=1&CO_ID=" & xCo_Id & "&SYEAR=" & xSyear & "&SSEASON=" & xSseason & "&REPORT_ID=C"
  8.     With ActiveSheet.QueryTables.Add(Connection:=URL, Destination:=Range("A1"))
  9.         .AdjustColumnWidth = False                   '自動調整欄寬
  10.         .WebSelectionType = xlSpecifiedTables
  11.         .WebFormatting = xlWebFormattingNone
  12.         .WebTables = "2,3,4"                 '資產負債表,綜合損益表,現金流量表
  13.         .WebPreFormattedTextToColumns = True
  14.         .WebConsecutiveDelimitersAsOne = True
  15.         .WebSingleBlockTextImport = False
  16.         .WebDisableDateRecognition = False
  17.         .WebDisableRedirections = False
  18.         .Refresh BackgroundQuery:=False
  19.     End With
  20. End Sub
複製代碼
(目前綜合損益表vlookup無問題)
         問題:
          (1) 請教該如何刪除僅有左側有文字但右側無數值的列 加入到程式碼當中
                [attach]30065[/attach]
                [attach]30066[/attach]
               
    (2)網站抓下的資料經過vlookup 合併資產負債表產生不同「格式」而搜尋變成結果產生NA
               及搜尋下因項目略有不同該如何才能使函數正常使用
               [attach]30068[/attach]         
               [attach]30067[/attach]
               [attach]30069[/attach]
               [attach]30070[/attach]




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)