Option Explicit
Sub macro_macro() 'Îáíîâëaíea_ëenoîâ_1() ' ?
Const strFile$ = "\\Polymer2000\áaçu erp\Nëóaáa Ea÷anoâa\?AANO?U çaá?aeîâaííîé iîeóiíîé i?îäóeöee\" & _
"Ô-9-49 ?aano? çaá?aeîâaííîé iîeóiíîé i?îäóeöee ía ânao ýoaiao i?îeçâîänoâa.xlsm"
Dim strCon$: strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strFile & ";Extended Properties=""Excel 12.0;HDR=No;IMEX=1"";"
Dim strTableName: strTableName = Array("ÔIÔ", "CNBM", "Hydro", "3I", "Henkel", "8113", "AIOO-Eíâano", "Qindaî", _
"Shanghai", "Symetal", "Assan", "Effegidi", "Dong-Il", "Áeaeniëaí", "CarWare", _
"Flex", "N?? shur", "Petlar", "Jindal", "Tagleef", "Treofan", "N?? Flex")
Dim rng: rng = Array("$A2:T500", "$A2:AD500", "$A2:AD500", "$A2:AD500", "$A2:AG500", "$A2:AH500", "$A2:AN500", "$A2:AN500", _
"$A2:AN500", "$A2:AN500", "$A2:AO500", "$A2:AO500", "$A2:AO500", "$A2:AP500", "$A2:AP500", _
"$A2:AP500", "$A2:AP500", "$A2:AP500", "$A2:AQ500", "$A2:AQ500", "$A2:AQ500", "$A2:AT500")
Dim strSQL1$, i&, indx&: indx = UBound(strTableName)
Dim cn As ADODB.Connection: Set cn = CreateObject("ADODB.Connection")
Dim rs As ADODB.Recordset: Set rs = CreateObject("ADODB.Recordset")
Application.Calculation = xlManual
Sheets("Iîaaëaíey-i?aäëîaaíey").Activate
cn.Open strCon
For i = 0 To indx
strSQL1 = "SELECT * FROM [" & strTableName(i) & rng(i) & "]"
rs.Open strSQL1, cn
Worksheets(strTableName(i)).Range("A2").CopyFromRecordset rs
rs.Close
Next
Set rs = Nothing
cn.Close: Set cn = Nothing
Application.Calculation = xlAutomatic
End Sub
|