等待上一程式完成, 才執行下一段程式

有一vba 需讀取 ms sql 資料, 及複制到另一工作頁,
但由於讀取 ms sql 資料仍未更新完成, 已複制空白資料到新一頁,
有何方式等待上一程執行完成, (更新資料)才再執行,

50 字節以內
不支持自定義 Discuz! 代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2011-8-6 15:10 | 只看該作者

回復 1# sammyc
試試看
Selection.QueryTable.Refresh BackgroundQuery:=False

3^#

發表於 2011-8-8 09:40 | 只看該作者

回復 2# GBKEE

執行到此句, 卞現錯誤

Sub l_style()
'
Dim ST_NO
ST_NO = Application.InputBox("輸入款號", "輸入款號", "", 200, 100)
ST_NO = UCase(ST_NO)
' Sheets("stylebom").Select
'Cells(2, 2) = "& st_no"
Sheets("stylebom").Range("E3") = ST_NO
Application.CutCopyMode = False
With ActiveWorkbook.Connections( _
"192.168.101.203 Garment01 TxProjMatStyCons").OLEDBConnection
.BackgroundQuery = True
.CommandText = Array( "SELECT * from table 1 where style = '" & ST_NO & "'" )
.CommandType = xlCmdSql
.Connection = Array( _
"OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=Garment01;Data Source=192.16" _
, _
"8.101.203;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=CWST021;Use Encryption for Data=False;" _
, "Tag with column collation when possible=False")
.RefreshOnFileOpen = False
.SavePassword = False
.SourceConnectionFile = ""
.SourceDataFile = ""
.ServerCredentialsMethod = xlCredentialsMethodIntegrated
End With
With ActiveWorkbook.Connections( _
"192.168.101.203 DtradeSimpleGarment01 TxProjMatStyCons")
.Name = "192.168.101.203 DtradeSimpleGarment01 TxProjMatStyCons"
.Description = ""
End With
ActiveWorkbook.Connections( _
"192.168.101.203 DtradeSimpleGarment01 TxProjMatStyCons").Refresh
Selection.QueryTable.Refresh BackgroundQuery:=False
Call c_new
End Sub