如果？範圍(" A "？& amp？我？+?2)?& lt& gt？""?然後
數數？=?我
其他
退出？為
結束？如果
然後
暗淡？康恩？作為？目標
設置？康恩？=?CreateObject("adodb.connection ")
康恩斯特爾？=?“Driver={SQL？服務器}；數據庫= compeer服務器=？；UID=？；PWD=？”
控制室。打開嗎？康恩斯特爾？
暗淡？arrive）
arr=range("A3:B "？& amp？計數+2)？把單元格內容讀入數組會更快，但是其他地方的代碼不完整，暫時沒有建議。
為了什麽？我？=?2?去哪？數數？+?1
mebname？=arr(i-1，1)
梅貝爾諾？=arr(i-1，2)
泰格？=?日期
mebemail？=?空
顧客號？=?空
西德？=?空
mebno？=?空
mebkeyno？=?空
Sql？=?“插入？變成？黑名單(meb_name，meb_telno，tag)？值(“？& amp？mebname？& amp?"','"?& amp？梅貝爾諾？& amp?"','"?& amp？泰格？& amp?"')"
控制室。執行？(Sql)