VBA连接金碟KIS查询数据

1583478094

VBA连接金碟KIS查询数据

Sub 从Access中取数()
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;User ID=morningstar;" _
    & "Password=ypbwkfyjhyhgzj;Data Source=" & ThisWorkbook.Path & "\1.AIS;" _
    & "Persist Security Info=False;Jet OLEDB:System database=" & ThisWorkbook.Path & "\System.mda"
    Sql = "select * from GLVch"
   [A2].CopyFromRecordset conn.Execute(Sql)
    conn.Close
    Set conn = Nothing
End Sub


System.mda这个文件是从金碟KIS安装目录复制出来的，右击金碟KIS快捷方式在属性中就能找到这个文件的存放位置。

1583478094

是不是我的文件有问题不能通过审核，所以大家都看不到啊！！！

1583478094

已通过审核怎么没有人看呢？

Renco

分享精神值得鼓励，
只是下次分享时，考虑一下价值，谢谢

1583478094

Renco 发表于 2017-1-22 16:24
分享精神值得鼓励，
只是下次分享时，考虑一下价值，谢谢

感谢回复，分享的东西确实没有什么价值。软件升级太快我们都不用KIS了