返回列表 上一主題 發帖

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

sammyc

帖子
33 
主題
9 
精華
0 
積分
62 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-11-2 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-6 13:26 | 只看該作者

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

有一vba 需讀取 ms sql 資料, 及複制到另一工作頁,
但由於讀取 ms sql 資料仍未更新完成, 已複制空白資料到新一頁,
有何方式等待上一程執行完成, (更新資料)才再執行,
收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

sammyc

帖子
33 
主題
9 
精華
0 
積分
62 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-11-2 
5#
發表於 2011-8-11 10:42 | 只看該作者
仍是不行, 行到此時出錯誤
50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2011-8-8 14:03 | 只看該作者
回復 3# sammyc
試試看
ActiveWorkbook.Connections("192.168.101.203 DtradeSimpleGarment01 TxProjMatStyCons").Refresh  BackgroundQuery:= False

TOP

sammyc

帖子
33 
主題
9 
精華
0 
積分
62 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
20 
性別
男 
註冊時間
2011-2-17 
最後登錄
2020-11-2 
3#
發表於 2011-8-8 09:40 | 只看該作者
回復 2# GBKEE

執行到此句, 卞現錯誤
  1. Sub l_style()
  2. '
  3.     Dim ST_NO
  4.     ST_NO = Application.InputBox("輸入款號", "輸入款號", "", 200, 100)
  5.     ST_NO = UCase(ST_NO)
  6.    
  7. '    Sheets("stylebom").Select
  8. 'Cells(2, 2) = "& st_no"

  10.     Sheets("stylebom").Range("E3") = ST_NO


  13.    
  14.     Application.CutCopyMode = False
  15.     With ActiveWorkbook.Connections( _
  16.         "192.168.101.203 Garment01 TxProjMatStyCons").OLEDBConnection
  17.         .BackgroundQuery = True
  18.         .CommandText = Array(  "SELECT  * from table 1 where style = '" & ST_NO & "'"  )
  19.         .CommandType = xlCmdSql
  20.         .Connection = Array( _
  21.         "OLEDB;Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=Garment01;Data Source=192.16" _
  22.         , _
  23.         "8.101.203;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=CWST021;Use Encryption for Data=False;" _
  24.         , "Tag with column collation when possible=False")
  25.         .RefreshOnFileOpen = False
  26.         .SavePassword = False
  27.         .SourceConnectionFile = ""
  28.         .SourceDataFile = ""
  29.         .ServerCredentialsMethod = xlCredentialsMethodIntegrated
  30.     End With
  31.     With ActiveWorkbook.Connections( _
  32.         "192.168.101.203 DtradeSimpleGarment01 TxProjMatStyCons")
  33.         .Name = "192.168.101.203 DtradeSimpleGarment01 TxProjMatStyCons"
  34.         .Description = ""
  35.     End With
  36.     ActiveWorkbook.Connections( _
  37.         "192.168.101.203 DtradeSimpleGarment01 TxProjMatStyCons").Refresh
  38.             Selection.QueryTable.Refresh BackgroundQuery:=False
  39. Call c_new
  40. End Sub
複製代碼
50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-8-6 15:10 | 只看該作者
回復 1# sammyc
試試看
Selection.QueryTable.Refresh BackgroundQuery:=False

TOP

        靜思自在 : 盡多少本份，就得多少本事。
返回列表 上一主題