返回列表下一主題上一主題發帖

關於 vba下載後他不是表格的方式請問是哪裡錯了

vavashop

中學生 Rank: 2

帖子: 78
主題: 30
精華: 0
積分: 109
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
註冊時間: 2014-5-15
最後登錄: 2018-9-16

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 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

2015-6-4 下午 10-20-00.png (37.13 KB)

轉入後的畫面