strDataSource = "C:\work\project\Reporting Time Sheets on Nuriev\DEV\worksheets\worksheets"

For Each project In arrayProject 'file name
strDataSource = strDataSource & "\" & project
strConnection = "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & _
strDataSource & _
";Mode=Share Deny Write;=""Excel 8.0;HDR=Yes;"""

Set qt = Worksheets(project).QueryTables.Add(Connection:=strConnection, Destination:=Worksheets(project).Range("A1"))


With qt
.CommandType = xlCmdDefault
.CommandText = "Select * from [Week hours$]"
.Name = "Worksheets example"
.Refresh
End With

Next

'import external data table for each project
For Each project In arrayProject
strConnection = "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=" & _
strDataSource & "\" & project & _
";Mode=Share Deny Write;Extended Properties=""Excel 8.0;HDR=Yes;"";"

Set qt = Worksheets(project).QueryTables.Add(Connection:=strConnection, Destination:=Worksheets(project).Range("A1"))


With qt
.CommandType = xlCmdDefault
.CommandText = "Select * from [Week hours$]"
.Name = project
.Refresh = False 

End With
MsgBox Worksheets(project).QueryTables( 1 ).Name
Next



Resp = MsgBox("The data will be refresh from WorkSheet", vbYesNoCancel)
If Resp <> vbNo Then
ActiveWorkbook.RefreshAll
Else
End If