VBA快速轉換資料格式，將CBOT結算價曆史資料匯入資料庫

標籤：blog   http   使用   檔案   資料   for   ar   2014   

最近處理的CBOT程式中，有一個CBOT的曆史資料需要匯入到資料庫裡，可是表的格式比較特別，先來看一下。

這個是從CBOT交易軟體中匯出的資料，從B到H對應的合約是1,3,5,7,8,9,11月，但是年份不是固定的，比如2010-1-12對應的合約時2010年的1月合約，也就是SF10，但是同樣一列的下幾行2010-1-17就是2011年的1月合約，就是SF11，也就是下一年的合約。

要把這個表匯入到資料庫中形成CBOT的記錄來使用，需要把它變成下面的樣子。

簡單起見，根據換月規則，換月月份的14號是個節點，把未經處理資料按照這個規則先拆分成多個檔案，由於曆史資料不是很多這樣也能處理得過來，如果特別多的話這個方法還需要改進。

將合約對應放到第一行後面點的位置，這個每個檔案需要對應調整一下。

通過下面的程式進行變換，將每一行的資料迴圈寫到新的表中。

Sub GetDate()    Dim pDate As String    Dim HeYue(10) As String    Dim price(1000) As String        '將合約存入數組    HeYue(1) = Sheets(1).Range("J1").Value    HeYue(2) = Sheets(1).Range("K1").Value    HeYue(3) = Sheets(1).Range("L1").Value    HeYue(4) = Sheets(1).Range("M1").Value    HeYue(5) = Sheets(1).Range("N1").Value    HeYue(6) = Sheets(1).Range("O1").Value    HeYue(7) = Sheets(1).Range("P1").Value    '按行迴圈    For i = 1 To 8             pDate = Worksheets(1).Cells(i, 1)                  '迴圈列         For k = 1 To 7                     Worksheets(2).Cells(i * 7 - 7 + k, 1) = pDate                                 '日期             Worksheets(2).Cells(i * 7 - 7 + k, 2) = HeYue(k)                              '合約             Worksheets(2).Cells(i * 7 - 7 + k, 3) = Worksheets(1).Cells(i, k + 1)         '收盤價         Next    NextEnd Sub

由於表格資料比較特殊，採用了一下手工輔助處理的方法，期待你有更好的方法。