如果？範圍（“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）
泰格。=?日期
我的電子郵件？=?空
客戶號？=?空
希德。=?空
梅布諾？=?空
梅肯諾？=?空
Sql？=?“插入？變成？黑名單（meb_name，meb_telno，tag）？值（“？& amp？mebname？& amp?"','"?& amp？梅貝爾諾？& amp?"','"?& amp？泰格。& amp?"')"
控制室。執行？（Sql）