Conn.Close 請問這條代碼該如何設定才可以讀取唯獨檔案之後可以不關閉存檔呢?
底下兩條都不能使用
Conn.Close False
savechanges:=False
- Set Conn = CreateObject("adodb.connection")
- 數據 = "'" & Sheets("檔名").Range("J2") & "'" 'WHERE 條件
- 路徑 = "" & Sheets("檔名").Range("D1") & "" '資料夾路徑
- For x = 2 To Sheets("檔名").[A65536].End(xlUp).Row
- Shname = Sheets("檔名").Range("B" & x) '檔名
-
- Conn.Open "provider=microsoft.ACE.oledb.12.0;Extended Properties='EXCEL 8.0;IMEX=1;HDR=YES;TypeGuessRows=0;ImportMixedTypes=Text';data source=" & 路徑 & "\" & Shname 'ThisWorkbook.Path
- Sql = "select 特殊_1,日期_1,編號_1,餐別_1,類別_1,品名_1,數量_1,備註_1,異常_1,代號_1,特殊_2,日期_2,編號_2,餐別_2,類別_2,品名_2,數量_2,備註_2,異常_2,代號_2,特殊_3,日期_3,編號_3,餐別_3,類別_3,品名_3,數量_3,備註_3,異常_3,代號_3 from [派單$] where 周期 =" & 數據
- ThisWorkbook.Sheets("工作表1").[A65536].End(xlUp).Offset(1, 0).CopyFromRecordset Conn.Execute(Sql)
-
- Conn.Close
- Next x
- Set Conn = Nothing
|
發表於 2017-5-10 17:33
| 
