標題: 關於 vba下載後 他不是表格的方式 請問是哪裡錯了 [打印本頁]

---

作者: vavashop    時間: 2015-6-4 22:18     標題: 關於 vba下載後 他不是表格的方式 請問是哪裡錯了

大大們
請問一下

我做了一個抓資料的vba
但這邊怪怪的 請問是哪裡錯了嗎？
應該是 會變成表格怎麼會變成圖片的樣子

感謝大大指教


Sub 更新上市自營商()
'
' 巨集1 巨集
' 點選上市分頁 再到清除上市融資 再回到 上市複製日期 貼回上市融資 -->執行檔案下載
'

'
    Sheets("上市").Select
    Range("B1").Select
    Sheets("上市自營商").Select
    Cells.Select
    Selection.ClearContents
    Sheets("上市").Select
    Selection.Copy
    Sheets("上市自營商").Select
    Range("A1").Select
    ActiveSheet.Paste
   
   
   

  Dim A As Date
  Dim Rep_Ym As String
  Dim Rep_Day As String
  
    A = Range("A1").Value
    Rep_Ym = Format(A, "yyyyMM")
    Rep_Day = Format(A, "yyyyMMDD")
     With ActiveSheet
        If .QueryTables.Count = 0 Then
            With .QueryTables.Add("URL;about:Tabs", .[B1])
            .Refresh BackgroundQuery:=False
            End With
        End If
        With .QueryTables(1)
            '全部下載久一點
          .Connection = "URL;http://www.twse.com.tw/ch/trading/fund/T86/print.php?edition=ch&filename=genpage/" & Rep_Ym & "/" & Rep_Day & "_2by_issue.dat&type=csv&select2=ALLBUT0999&qdate=" & Rep_Day & ""

            
            
            
            .WebSelectionType = xlSpecifiedTables
            .WebFormatting = xlWebFormattingNone
            .WebTables = "10"
            '這全部的要用   .WebTables = "10"
            '其他項目的要用 .WebTables = "8"
            .WebPreFormattedTextToColumns = True
            .WebConsecutiveDelimitersAsOne = True
            .WebSingleBlockTextImport = False
            .WebDisableDateRecognition = False
            .WebDisableRedirections = False
            .Refresh BackgroundQuery:=False
        
        End With

  End With
End Sub

---

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