赵余的博客这是代码:Sub Excel_QueryTable()Sheet2.Cells.ClearContentsDim oCn As ADODB.ConnectionDim oRS As ADODB.RecordsetDim ConnString As StringDim SQL As StringDim qt As QueryTableConnStrin...
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 ...