VBA - 創建Access數據庫和更新字段屬性（日期/時間格式）的Excel宏

Question

我有一個Excel宏，可將數個Excel工作表中的數據複製到單個Access表中。除了訪問中的數據應該轉換爲mmmm yyyy，而我將其複製到訪問權限時，它一直運行良好，它始終轉換爲dd/mm/yyyy。

這些字段是「開始日期」和「結束日期」。

這裏是我的代碼的摘錄：

Dim Catalog As Object 
Dim cn As ADODB.connection 
Dim dbPath as String, scn as String 

dbPath = CPTwb.Path & "\Flatfile.accdb"` 
scn = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dbPath & ";" 

Set Catalog = CreateObject("ADOX.Catalog")` 
Catalog.Create scn 
Set Catalog = Nothing 
Set cn = New ADODB.connection 

With cn 
    .Open scn 
    .Execute "CREATE TABLE Flatfile ([Tracker Product] text(255) WITH 
     Compression, " & "[Contract ID] text(255) WITH Compression, " & _ 
     "[Client] text(255) WITH Compression, " & _ 
     "[Start Date] datetime, " & "[End Date] datetime)" 
End With 

TheSQL = "INSERT INTO Flatfile ([Tracker Product], [ContractID], [Client],[Start Date], [End Date])" 
TheSQL = TheSQL & "SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & flatPath & "]." & "[" & Application.ActiveSheet.name & "$]" 

cn.Execute TheSQL 
cn.close 

我理解的財產「DATATIME」總是得到值作爲系統日期，它是不可能通過DDL編輯。

有沒有辦法通過VBA申請屬性，如下面的截圖所示？

Answer 1

格式爲顯示只。一個真正的日期值是一個數值。在一個簡單的選擇查詢

"SELECT * FROM [Excel 12.0;HDR=YES;DATABASE=" & flatPath & "]." & "[" & Application.ActiveSheet.name & "$]" 

源：

所以用這個。根據需要添加轉換（和篩選）以確保您具有[Start Date]的真實日期值。例如，日期可能被解讀爲文本，然後用DateValue將轉換：

TrueStartDate: DateValue([DateColumnFromExcel]) 

現在，保存查詢，當你建立TheSQL使用它作爲源。