1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=W:\Engineering\ICP process PFM list.mdb;DefaultDir=W:\Services\Proce" _
), Array( _
"\Engineering;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTimeout=5;" _
)), Destination:=Range("A1"))
.CommandText = Array( _
"SELECT PFM.PFM, PFM.`Mod tape`, PFM.`D wafer`, PFM.`DB Program`, PFM.`Map orientation D11/D6`, PFM.`Colle Die Attach`, PFM.`Rubber Tip`, PFM.Needle, PFM.Nozzle, PFM.`Size A (CH)`, PFM.`DB SPC Prg`, P" _
, _
"FM.`Fil de cablage`, PFM.`WB Program D25µm`, PFM.`WB Program`, PFM.Capillaire, PFM.`WB Down Holder`, PFM.`Size B (LH) D25µm`, PFM.`Average size B (LH)`, PFM.`Tolerance size B`, PFM.`WB SPC Prg D25µm`" _
, _
", PFM.`WB SPC Prg`, PFM.`Encap Techno`, PFM.Resin, PFM.`Dam Program`, PFM.`Fill Program`, PFM.`Nozzle Plate`, PFM.`TI2260 Program`, PFM.`Size C (MH)`, PFM.`D&F Drawing`, PFM.`Adhesif LAM`, PFM.`Progr" _
, _
"amme LAM`, PFM.`Vision LAM`, PFM.`Punch LAM`, PFM.`Plaque Press LAM`, PFM.`Temperature LAM`, PFM.`Temps LAM`, PFM.`Programme LIL`, PFM.`Punch LIL`, PFM.`Plaque Press LIL`, PFM.`Temperature LIL`, PFM.`" _
, "Temps LIL`, PFM.`TH Punch tool`" & Chr(13) & "" & Chr(10) & "FROM PFM PFM" & Chr(13) & "" & Chr(10) & "ORDER BY PFM.PFM DESC")
.Name = "Lancer la requête à partir de MS Access Database"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With |
Partager