1
A
回答
1
Sub DAOFromExcelToAccess()
' exports data from the active worksheet to a table in an Access database
' this procedure must be edited before use
Dim db As Database, rs As Recordset, r As Long
Set db = OpenDatabase("C:\FolderName\DataBaseName.mdb")
' open the database
Set rs = db.OpenRecordset("TableName", dbOpenTable)
' get all records in a table
r = 3 ' the start row in the worksheet
Do While Len(Range("A" & r).Formula) > 0
' repeat until first empty cell in column A
With rs
.AddNew ' create a new record
' add values to each field in the record
.Fields("FieldName1") = Range("A" & r).Value
.Fields("FieldName2") = Range("B" & r).Value
.Fields("FieldNameN") = Range("C" & r).Value
' add more fields if necessary...
.Update ' stores the new record
End With
r = r + 1 ' next row
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Sub
0
你有沒有考慮過其他方法?在Access中附加Excel工作表很容易,然後使用make table查詢將數據添加到新表或現有表中,這樣可以避免編碼。
相關問題
- 1. SSIS Excel數據源 - 是否可以重寫列數據類型?
- 2. 是否可以將數據從Excel導入jQGrid?
- 3. 是否可以通過內存從Excel中導入數據?
- 4. 是否可以從批處理文件寫入excel文件?
- 5. 是否可以從python創建/編輯excel宏?
- 6. 是否可以將以下lisp宏編寫爲函數?
- 7. 是否可以插入freemarker宏?
- 8. 是否可以重寫向後導航?
- 9. 是否可以使用Extjs4將數據寫入JSON?
- 10. 是否可以將數據寫入wpf中的集合?
- 11. 是否可以使用JavaScript將數據寫入Google表單?
- 12. Spark在寫入時是否可以使用SQL數據庫?
- 13. SAS宏以縱向數據
- 14. 將數據框寫入excel以標題
- 15. 可以excel讀寫phpmyadmin數據庫嗎?
- 16. 是否可以向Firebird blob寫入大字符串?
- 17. Python csv.writer - 是否可以寫入變量?
- 18. 是否可以使用.NET寫入CD?
- 19. 是否可以寫入遠程HDFS?
- 20. 是否可以通過外部命令在Excel中運行宏?
- 21. 是否可以爲Excel 2007編寫dset函數
- 22. 是否可以向Roboguice注入尺寸?
- 23. Excel Services是否支持宏?
- 24. 將數據從NSArray寫入Excel文件?
- 25. .NET - 是否可以直接將數據表寫入SQL數據庫?
- 26. 在Excel中將宏寫入數據日誌
- 27. Excel宏 - 從數組讀取數據
- 28. 是否可以編寫一個通過excel文檔運行數據的服務?
- 29. 是否可以編寫這些pure_assert和const_assert宏?
- 30. 是否可以向數據透視表(Excel Interop)添加手動分頁符?