主题：请教能否将历史数据直接导入到MYSQL

'保存历史数据到数据库

Sub SaveHisToAccess()

    dim i

    Dim strSql

  Set adoConn=CreateObject("Adodb.Connection")
  adoConn.Open "Provider=MicroSoft.Jet.OLEDB.4.0;Data Source=D:\UserData.mdb"  

  Set History = marketdata.GetHistoryData(VBA_Code,VBA_Market,0)  '1分钟K线数据

  'Cyctype  周期类型，0 1分钟 1 5分钟 2 15分钟 3 30分钟 4 60分钟 5日线 6周线 7月线 8年线 9多日线 10分笔成交

  '11多小时线 12多秒线 13多分钟线 14季度线 15半年线 16节气线 17 3分钟 18 10分钟 19 多笔线

  For i = 1 to HistroyData.count-1
         C1=History.Close(i)

         strSql="Insert Into tblGuZhi (CloseData)"
         strSql=strSql & " Values (" & CStr(C1) &")" 
         AdoConn.Execute(strSql)

   Next
End Sub

应该从0开始把,data字符多余

  For i = 0 to Histroy.count-1