vba连接sql server再联oraclep实例.xlsm
vba连接sql server再联oracle实例读取到EXCLE表中中,带where 条件 Private Sub CommandButton1_Click() Dim i, j, k, r, b As Long Dim str '固定语法 Dim cnn As Object, sql$, Mypath$, MyFile$, n% Set cnn = CreateObject("adodb.connection") Set rs = CreateObject("ADODB.RecordSet") '单元格的内容清除掉 Sheet7.Range("A3:K60000").ClearContents '输入服务器ip,端口,SQL库名称,用户名,密码 cnn.Open "provider=SQLOLEDB;Data Source=IP,端口;Initial Catalog=库名;User ID=sa;Password=123456;" '输入sql语句 str = "SELECT * FROM ....." 注释:sql server再联oracle需要单独配置