一个从金舟软件后台取数据的宏

Sub 宏2()

'

' 宏2 宏

'

'

With ActiveWorkbook.Connections("192.168.0.99_demo1 cbxt Uv_getcb_ini"). _

    OLEDBConnection

    .BackgroundQuery = True

    .CommandText = Array( _

    "SELECT     id, cblb, mbcbbh, yyyymm, pzlb_bh, zy, jldw, sl, je, bmbh, gcbh, bmmc, NUL, nf, hsqj, pzlb, pzbh, bm" & Chr(13) & "" & Chr(10) & "FR" _

    , _

    "OM         Uv_getcb_ini" & Chr(13) & "" & Chr(10) & "WHERE     (gcbh = '0305-008') OR" & Chr(13) & "" & Chr(10) & "                      (gcbh = '1405-002')" _

    )

    .CommandType = xlCmdSql

    .Connection = Array( _

    "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Data Source=192.168.0.99demo1;Use Procedure for Prepare=1;Auto Transl" _

    , _

    "ate=True;Packet Size=4096;Workstation ID=QHGL;Use Encryption for Data=False;Tag with column collation when possible=False;Initia" _

    , "l Catalog=cbxt")

    .RefreshOnFileOpen = False

    .SavePassword = False

    .SourceConnectionFile = ""

    .SourceDataFile = ""

    .ServerCredentialsMethod = xlCredentialsMethodIntegrated

    .AlwaysUseConnectionFile = False

End With

With ActiveWorkbook.Connections("192.168.0.99_demo1 cbxt Uv_getcb_ini")

    .Name = "192.168.0.99_demo1 cbxt Uv_getcb_ini"

    .Description = ""

End With

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array( _

    "OLEDB;Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Data Source=192.168.0.99demo1;Use Procedure for Prepare=1;Auto Transl" _

    , _

    "ate=True;Packet Size=4096;Workstation ID=QHGL;Use Encryption for Data=False;Tag with column collation when possible=False;Initia" _

    , "l Catalog=cbxt"), Destination:=Range("$A$1")).QueryTable

    .CommandType = xlCmdSql

    .CommandText = Array( _

    "SELECT     id, cblb, mbcbbh, yyyymm, pzlb_bh, zy, jldw, sl, je, bmbh, gcbh, bmmc, NUL, nf, hsqj, pzlb, pzbh, bm" & Chr(13) & "" & Chr(10) & "FR" _

    , _

    "OM         Uv_getcb_ini" & Chr(13) & "" & Chr(10) & "WHERE     (gcbh = '0305-008') OR" & Chr(13) & "" & Chr(10) & "                      (gcbh = '1405-002')" _

    )

    .RowNumbers = False

    .FillAdjacentFormulas = False

    .PreserveFormatting = True

    .RefreshOnFileOpen = False

    .BackgroundQuery = True

    .RefreshStyle = xlInsertDeleteCells

    .SavePassword = False

    .SaveData = True

    .AdjustColumnWidth = True

    .RefreshPeriod = 0

    .PreserveColumnInfo = True

    .ListObject.DisplayName = "表__192.168.0.99_demo1_cbxt_Uv_getcb_ini"

    .Refresh BackgroundQuery:=False

End With

Range("A2").Select

ActiveWindow.SmallScroll Down:=-12

Range("F6").Select

ChDir "D:季亮Desktop"

ActiveWorkbook.SaveAs Filename:="D:季亮Desktop两条修船的数据.xlsx", FileFormat:= _

    xlOpenXMLWorkbook, CreateBackup:=False

End Sub