1樓：匿名使用者
以下是我用了實現從excel導資料進access的**，你參考一下，應該就可以做出來了：（excel和access兩個檔案放一個資料夾下）
public sub 客戶正常供價批量維護()
if cells(4, 6) = "" then
msgbox "請先選擇需要維護**的系統！", vbinformation
cells(4, 6).select
exit sub
else
dim i as integer, j as integer, k as integer, sht as worksheet 'i,j,k為整數變數；sht 為excel工作表物件變數，指向某一工作表
dim cn as new adodb.connection '定義資料連結物件 ，儲存連線資料庫資訊；請先新增ado引用
dim rs as new adodb.recordset '定義記錄集物件，儲存資料表
dim strcn as string, strsql as string '字串變數
dim mdbfile as string
on error goto add_err
mdbfile = activeworkbook.path & "\dy_data.mdb"
strcn = "provider=microsoft.jet.oledb.4.0;data source=" & mdbfile '定義資料庫連結字串
cn.open strcn '與資料庫建立連線，如果成功，返回連線物件cn
set rs = new adodb.recordset
rs.open "dbl直營客戶正常供價表", cn, adopenkeyset, adlockoptimistic
k = cells(4, 8) + 8
for i = 9 to k
if cells(i, 7) = "" then
else
rs.addnew
rs(1) = cells(i, 2)
rs(2) = cells(i, 7)
rs(3) = cells(i, 8)
rs.update
cells(i, 7) = ""
cells(i, 8) = ""
end if
next
msgbox "資料記錄新增成功！", vbinformation
cells(4, 6).select
activeworkbook.refreshall
add_exit:
exit sub
end if
add_err:
msgbox err() & vbcrlf & error()
resume add_exit
end sub
2樓：太極健
沒有明白你說的什麼？你的b列12，1，2，3是什麼意思？
excel vba程式如何可以自動記錄時間？
3樓：匿名使用者
給你個思路，你可以判斷a2。不為空時，b2使用**獲取當前電腦系統時間並填充,下次再做判斷時先確定最後一個空行位置，在判斷a2是否為空，在填充時間不就可以了
excel 怎麼用vba實現每隔1分鐘自動執行ctrl+s（儲存）命令？
4樓：yty隨意
1、首先在電腦上滑鼠右鍵單擊任意excel**，在右鍵選單中選擇開啟命令。
2、進去excel介面之後，選擇excel選單欄中的檔案按鈕。
3、然後選擇新頁面中的選項按鈕。
4、然後在excel選項視窗左側選擇儲存按鈕，接著勾選圖示自動儲存設定。
5、最後設定自動儲存路徑，然後單擊下方的確定選項即可。
5樓：再見圖安
'程式開頭宣告一個：
private declare function gettickcount lib "kernel32.dll" () as long
'跑一個死迴圈，迴圈裡面含一個
sleep(6000)
sendkeys ("^s")
6樓：匿名使用者
用自動儲存的功能不好麼？
請教大蝦，excel如何利用vba滿足條件時在某單元格自動輸入內容？
7樓：平陽虎
sub 輸入()
if [a2] <> [a1] then [a3] = 0
end sub
excel用vba如何實現動態錄入後，另存在另一個表，每次記錄按順序累計儲存在一張表內。
在excel中怎樣用vba實現開啟時自動清空某一列或多列中的資料？
8樓：匿名使用者
在workbook_open事件中寫**：
sheets("工作表名稱").range("a:b,f:f").clearcontents 『清楚abf 三列的資料
9樓：匿名使用者
private sub worksheet_activate()columns("c:d").selectselection.
clearcontentsrange("a1").select
end sub
在excel工作簿中的工作表名字處右擊，然後檢視**，然後貼上該**，以上**將執行：開啟該工作表時自動清除c到d列的內容（單列的話只打一列的字母就行了），完成清除動作後單元格定位在a1
在Excel中,如何實現相同資料的自動填充
尉遲嘉惠堅拔 b1中輸入公式 edate a 1,row 下拉，如果b1沒有顯示日期，而是資料，就把a1的格式刷到b1後再下拉。 表聽國勝 你問的是相同資料填充相同顏色？如果是的話，在07中選擇條件格式中的新建規則，型別中選擇 僅對唯一值或重複值設定格式，然後選擇下面的 重複 最後設定格式中的填充！...
excel中實現最後修改的時間記錄
把你電腦時間改了在修改 儲存就是你需要的時間 你 用的是excel2007，你 用2003就好 了 嘛 如何讓excel記錄最後修改時間 通過檢視檔案 屬性，可以看到該檔案的最後修改時間。如果是要在 內在某個單元格內顯示出具體時間，可以在指定的單元格輸入 now 然後在開始 選項裡面修改 將工作簿計...
怎麼在EXCEL中實現批量乘法運算
豆豆逗逗豆豆呀 1 本次演示操作的office辦公軟體為excel 2013版本。2 新建一個excel電子 在excel電子 中輸入用於演示如何在excel 中進行批量乘法運算的操作。3 滑鼠單擊選中c1單元格，在公式編輯欄輸入 a1 b1 公式，單擊鍵盤上的回車鍵。4 單擊回車鍵之後我們可以在c...