Web 資料 匯入 問題

seemee

qq.rar (24.03 KB)

下載次數: 15

2013-5-16 21:16

這是我改別人寫的
跑一半會進入無限迴圈 請問怎麼寫判斷停止條件?
第二頁..之後  怎麼刪除前兩列(原本只刪除一列)?
請前輩賜教

lalalada

回復 9# seemee

我知道你想問什麼~
去找一套叫fiddler的軟體(freeware for personal use)
他可以幫你找出post的值

seemee

回復 10# GBKEE
感謝感謝 前輩的詳細解答依我的功力 可能要消化好一陣子了.

GBKEE

回復 9# seemee
Q1:  Google搜尋 WEB查詢     
Q2:  請詳看 個股歷史行情TEST1 這一行程式碼的內容
     .ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "S").End(xlUp).Offset(1)
    這位置"S"是S欄, 請比對 [加權歷史行情] 相對的程式碼 複製到的位置在哪裡?

1. With Q(2)  '個股歷史行情TEST1T程式碼
   
2.                 .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/FMTQIK/genpage/Report" & Year(xlData) & Mmon & "/" & Year(xlData) & Mmon & "_F3_1_2.php?STK_NO=&myear=" & Year(xlData) & "&mmon=" & Mmon
   
3.                 Q(2).WebTables = "8"
   
4.                 Q(2).Refresh BackgroundQuery:=False
   
5.                 .ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "S").End(xlUp).Offset(1)
   
6.             End With

複製代碼

seemee

回復 8# GBKEE
我還是不太懂問題
1.  ?myear=101&mmon=04 我指的是怎麼知道要加這些 網頁上的網址沒有顯示
2. 加權歷史行情.rar (15.27 KB)

下載次數: 6

2013-5-19 23:55

沒有加Destination　 但是他的外部資料暫存是在U欄開始 是預設從U欄開始嗎?
    個股歷史行情TEST1.rar (37.03 KB)

下載次數: 4

2013-5-19 23:44

   如果資料範圍超過U欄 會造成資料重疊 而錯誤


謝謝版主的耐心回答

GBKEE

回復 6# seemee
Q1: 從4#這段程式碼裡得知

1. 10.           xlData = DateAdd("m", -i, DateSerial(.[b1] + 1911, .[b2], 1))
   
2. 11.            Myear = Year(xlData) - 1911 '民國年
   
3. 12.            Mmon = Format(Month(xlData), "00")

複製代碼

Q2 :沒有Destination  那怎麼知道 ResultRange 要放哪裡?
從4#這段程式碼裡得知 是已存在外部查詢 ,不須指定Destination　

1. 07.        Set Q(1) = .QueryTables(1)
   
2. 
   
3. 08.        Set Q(2) = .QueryTables(2)

複製代碼

回復 7# seemee
這裡有答案

seemee

再補充一個問題
日期部份 1999/12/31
                  100/01/03
到100年會變成民國顯示
請問怎麼週整


個股歷史行情.rar (31.57 KB)

下載次數: 4

2013-5-19 00:17

seemee

先謝謝大大詳細的回答
我發覺我的問題問的不好

問題
1. 在網頁上只看到http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php
    換日期查詢依然只看到http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php
    那後面這段?myear=101&mmon=04" 是從何得知?
2.
.QueryTables.Add(Connection:="URL;http://www.twse.com.tw/ch/trading/exchange/STOCK_DAY/genpage/Report" & 年 & 月 & "/" & 年 & 月 & "_F3_1_8_" & 股票代號 & ".php?STK_NO=" & 股票代號 & "&myear=" & 年 & "&mmon=" & 月, Destination:=Range("A1"))

Destination:=Range("A1")這是指定最左上的儲存格

"URL;http://www.twse.com.tw/ch/trading/exchange/FMTQIK/genpage/Report" & Year(xlData) & Mmon & "/" & Year(xlData) & Mmon & "_F3_1_2.php?STK_NO=&myear=" & Year(xlData) & "&mmon=" & Mmon

沒有Destination  那怎麼知道 ResultRange 要放哪裡?

GBKEE

回復 4# seemee
問題1
Myear = Year(xlData) - 1911 '民國年
Mmon = Format(Month(xlData), "00")
With Q(1)
      .Connection = "URL;http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php?myear=" & Myear & "&mmon=" & Mmon
顯示網址後比對一下:'"URL;http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php?myear=101&mmon=04"

問題2
With Q(1)
       .ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "E").End(xlUp).Offset(1)
End With
.ResultRange.Offset(2).Copy -> 這範圍的複製
.ResultRange->外部資料來源傳回資料的範圍
.Offset(2)     ->資料的範圍下移2列
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
.Parent.Cells(Rows.Count, "E").End(xlUp).Offset(1)  ->Q(1)物件工作表.E欄底部.往上到有資料的列.下移1列
.Parent                                 ->  Q(1)物件的父層: 所在的工作表   
Rows.Count                           ->工作表列的總數
.Cells(Rows.Count, "E")           ->E欄最後一列
.End(xlUp)                             ->往上: xlUp 到有資料的列
.Offset(1)                             ->資料的範圍下移1列
'**********************************************************************
.ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "E").End(xlUp).Offset(1)
外部資料來源傳回資料的範圍下移2列.複製 貼上位置(物件工作表.E欄最後一列.往上到有資料的列.下移1列)

seemee

感謝大大 解答了 我這兩天的困擾:D
不小心爬文找到下面的程式碼
但是新的問題又來囉 再次麻煩大大了
問題
1. ?myear=" & Myear & "&mmon=" & Mmon  這段程式碼要怎麼取得, 在網頁的網址沒顯示這段
    我有請教別人 PHP POST 沒辦法知道 但是 這段程式碼是怎麼弄來的,好奇?
2. 匯入的資料暫存怎麼指定到U欄,AB欄開始 我看不出裡面有語法指定這個位置?

1.   Sub 大盤歷史成交資訊_連續月_排序()
   
2.     Dim Q(1 To 2) As QueryTable, xlData As Date, Myear, Mmon, i As Integer
   
3.     With Sheets("加權歷史行情")
   
4.         .Range("E1").CurrentRegion.Offset(1).Clear
   
5.         .Range("E1").CurrentRegion.Select
   
6.         Application.ScreenUpdating = False
   
7.         Set Q(1) = .QueryTables(1)
   
8.         Set Q(2) = .QueryTables(2)
   
9.         For i = .[b4] - 1 To 0 Step -1
   
10.             xlData = DateAdd("m", -i, DateSerial(.[b1] + 1911, .[b2], 1))
    
11.             Myear = Year(xlData) - 1911 '民國年
    
12.             Mmon = Format(Month(xlData), "00")
    
13.             With Q(1)
    
14.                 .Connection = "URL;http://www.twse.com.tw/ch/trading/indices/MI_5MINS_HIST/MI_5MINS_HIST.php?myear=" & Myear & "&mmon=" & Mmon ' 問題1
    
15.                 .WebTables = "8"
    
16.                 .Refresh BackgroundQuery:=False
    
17.                 .ResultRange.Offset(2).Copy .Parent.Cells(Rows.Count, "E").End(xlUp).Offset(1)
    
18.             End With
    
19.             With Q(2)
    
20.                 .Connection = "URL;http://www.twse.com.tw/ch/trading/exchange/FMTQIK/genpage/Report" & Year(xlData) & Mmon & "/" & Year(xlData) & Mmon & "_F3_1_2.php?STK_NO=&myear=" & Year(xlData) & "&mmon=" & Mmon
    
21.                 Q(2).WebTables = "8"
    
22.                 Q(2).Refresh BackgroundQuery:=False
    
23.                 .ResultRange.Columns(2).Offset(2).Copy .Parent.Cells(Rows.Count, "J").End(xlUp).Offset(1)
    
24.                 .ResultRange.Columns(6).Offset(2).Copy .Parent.Cells(Rows.Count, "K").End(xlUp).Offset(1)
    
25.             End With
    
26.         Next
    
27.         .Range("E1").CurrentRegion.EntireColumn.AutoFit
    
28.     End With
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "匯入完成  !!! "
    
31. End Sub

複製代碼

加權歷史行情.rar (15.27 KB)

下載次數: 4

2013-5-17 16:36