請問querytalbe.add匯入 股票代碼格式問題

ten999

請問各位前輩:
querytalbe.add匯入股票成交價時 ,台灣50股票代碼0050變成50問題
請問網頁資料匯入時,一些 querytable.add其屬性設定方式
謝謝!

GBKEE

回復 1# ten999
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim DATE_REQ  As Date, yyyymm As String, yyyymmdd As String, yyymmdd As String
   
4.     Dim URL As String, A As Object, E As String, i As Integer, ii As Integer, Sh As Worksheet, t As Date
   
5.     On Error GoTo IE_ER
   
6.     DATE_REQ = Date
   
7.     Do
   
8.         If Weekday(DATE_REQ, vbMonday) > 5 Then DATE_REQ = DATE_REQ - 1  '取得營業日
   
9.     Loop Until Weekday(DATE_REQ, vbMonday) <= 5
   
10.     DATE_REQ = CDate(InputBox("請輸入交易日期, 格式 2011/9/6", , DATE_REQ))
    
11.     yyyymm = Year(DATE_REQ) & Format(Month(DATE_REQ), "00")
    
12.     yyyymmdd = Year(DATE_REQ) & Format(Month(DATE_REQ), "00") & Format(Day(DATE_REQ), "00")
    
13.     yyymmdd = Year(DATE_REQ) - 1911 & "/" & Format(Month(DATE_REQ), "00") & "/" & Format(Day(DATE_REQ), "00")
    
14.     URL = "http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/genpage/Report" & yyyymm & "/A112" & yyyymmdd & "ALLBUT0999_1.php?select2=ALLBUT0999&chk_date=" & yyymmdd
    
15.     Set Sh = ActiveSheet
    
16.     Sh.Cells.Clear
    
17.     Application.StatusBar = " 等候網頁...."
    
18.     t = Time
    
19.     With CreateObject("InternetExplorer.Application")
    
20.         .Navigate URL
    
21.     '    .Visible = True
    
22.         Do While .Busy Or .ReadyState <> 4
    
23.             DoEvents
    
24.         Loop
    
25.         If .document.Title = "HTTP 404 找不到" Then 'IE8 瀏覽器
    
26.             .Quit
    
27.             GoTo IE_ER
    
28.         End If
    
29.         Do
    
30.             Set A = .document.getElementsByTAGName("TABLE")(9)
    
31.         Loop While A Is Nothing
    
32.         With Sh
    
33.             For i = 0 To A.Rows.Length - 1
    
34.                 For ii = 0 To A.Rows(i).Cells.Length - 1
    
35.                    '.Cells(i + 1, "a").Select
    
36.                     E = Trim(A.Rows(i).Cells(ii).innerText)    '網頁的字串
    
37.                     .Cells(i + 1, ii + 1) = E '   A.Rows(i).Cells(II).innerText
    
38.                     '網頁的字串轉存到儲存格,"0050"視為數字自動去除"00"
    
39.                     If ii = 0 And Cells(i + 1, ii + 1).Text <> E Then
    
40.                         .Cells(i + 1, ii + 1).NumberFormatLocal = "@"  '儲存格格式改為文字
    
41.                         .Cells(i + 1, ii + 1) = E                      '重新給上網頁的字串
    
42.                     End If
    
43.                     Application.StatusBar = Application.Text(Time - t, "[s]") & "秒 資料下載...." & .Cells(i + 1, ii + 1)
    
44.                 Next
    
45.             Next
    
46.         End With
    
47.         .Quit
    
48.     End With
    
49.     Application.StatusBar = Application.Text(Time - t, "[s]") & "秒 資料下載完畢"
    
50.     Exit Sub
    
51. IE_ER:  '日期錯誤
    
52.     MsgBox IIf(Err = 13, "日期 取消輸入", DATE_REQ & " 日期 有誤")
    
53.     Application.StatusBar = False
    
54. End Sub

複製代碼

bobomi

用這試看看 .WebSelectionType = xlEntirePage