求助！！
如何實作使用vb2010編程將excel里面某一個作業表資料復制到access里面
uj5u.com熱心網友回復：
upupupuj5u.com熱心網友回復：
1.編程把EXCEL檔案打開2.編程把ACCESS資料庫打開
3.編程把EXCEL表里的資料復制到ACCESS里
4.編程把打開的EXCEL檔案和ACCESS檔案關閉
uj5u.com熱心網友回復：
這個找我，我有寫過:QQ 2776478814uj5u.com熱心網友回復：
3樓說的有道理。uj5u.com熱心網友回復：
檔案格式都不同的，這種不能叫“復制”吧！
其實也就是把Excel檔案打開，從它里面“讀資料”，然后“寫”到Access表的記錄、欄位中。
Access可以打開現有的檔案進行添加，也可以創建新檔案、添加“新表”。
然后把修改過或新建的Access檔案保存就行了。
最后關閉自己打開的Excel檔案、Access檔案。
uj5u.com熱心網友回復：
我目前自己 寫了段代碼
Dim db As New ADODB.Connection
Dim sPath As String
Dim AccessPath As String
db.Open("Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\Users\pc\Desktop\用代碼創建ACCESS資料庫和資料表\用代碼創建ACCESS資料庫和資料表\bin\Debug\資料庫.mdb;Persist Security Info=False")
AccessPath = "C:\Users\pc\Desktop\用代碼創建ACCESS資料庫和資料表\用代碼創建ACCESS資料庫和資料表\bin\Debug\資料庫.mdb"
sPath = "C:\Users\pc\Desktop\shuruwenjian.xlsx"
Call db.Execute("select * into 控制引數 From [控制引數$] In '" & sPath & "' 'Excel 8.0;'")
MsgBox("匯出成功", vbOKOnly, "提示")
db.Close()
db = Nothing
但是提示“外部表不是預期的格式” 錯誤來源是Call db.Execute("select * into 控制引數 From [控制引數$] In '" & sPath & "' 'Excel 8.0;'")陳述句 目測是excel版本的問題 我的excel是2016版 請問應該如何修改代碼呀
uj5u.com熱心網友回復：
這個找我，我有寫過:QQ 2776478814uj5u.com熱心網友回復：
不找你
uj5u.com熱心網友回復：
我之前提問過 沒人愿意幫忙后來自己搗鼓出來了
先打開EXCEL 顯示在grid里
然后再把GRID里的資料回圈保存到資料庫
搞定
唯一有問題的就是數字后面會莫名其妙多好多000
比如5.3 導進去就變成了5.30000000000000001 或者是5.299999999999999999999
后來用FORMat取兩位 解決
uj5u.com熱心網友回復：
試試：db.Open("Provider=Microsoft.jet.OLEDB.4.0;Data Source=C:\Users\pc\Desktop\用代碼創建ACCESS資料庫和資料表\用代碼創建ACCESS資料庫和資料表\bin\Debug\資料庫.mdb;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";Persist Security Info=False")
Call db.Execute("select * into 控制引數 From [控制引數$] In '" & sPath)
uj5u.com熱心網友回復：
干嗎要先“顯示在grid”里？
直接從作業簿讀取資料、寫入access不行嗎！
難道你是讓“控制元件”給你加載Excel作業簿的資料的？
uj5u.com熱心網友回復：
理論上應該可以直接匯入的如果不行
可以用excel的控制元件來匯入
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/68580.html
標籤：VB基礎類
上一篇：vb 時間回圈次數問題
下一篇：vba 控制網頁對話框