[發問] 如何關閉不存檔呢? Set Conn = CreateObject("adodb.connection")

　暱稱: 豪

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2017-5-10 17:33 | 只看該作者

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

複製代碼

靜思自在 : 謊言像一朵盛開的鮮花，外表美麗，生命短暫。