VBA、エクセル、WPS、SQL Serverの保存

オプションプライベートのModule1 
「などの文字列= 『WIN-OM179101SM0 \ SQLEXPRESS』の公開のConst ID」データベースサーバー名
の公共のConst IDとして文字列=「WIN-OM179101SM0」
公共のConstデータベース名」=「デモ」などの文字列のデータベース
列などの公共のConstユーザー名= 'データベースユーザー名"SA" 
のString = "11111111などの公共のconstパスワードを "' データベース接続パスワード


サブExcelToServer（）
    Asの点心CN新しいADODB.Connectionのは、％I、Jの％、strTable $、N- 
    新ADODB.Recordsetのように薄暗いRS 
    文字列点心、として文字列のSQL、WSNAME $のcnStr 
    WSNAME = ActiveSheet.Name 
    「細胞.Valueの= WSNAME（1 ,. 5。）
    のOn Error後藤errHandle 
    cnStr = "プロバイダ= SQLOLEDB;サーバー=" ＆ID＆「;データベース=」＆データベース＆ "; UID =" ＆ユーザー名＆ "; PWD =" パスワード＆＆ ";"
    cn.ConnectionTimeout = 10 
    cn.Open cnStr
    SQL = WSNAME＆ "（ '＆WSNAME＆"テーブルを削除名= sysobjectsにから選択*） "が存在する場合には"' 
    私は=細胞（1、16384）.END（xlToLeft）.Column 
    strTableは= "テーブルを作成する" ＆WSNAME＆ "（" 
    J = 1の場合、私に
        もし細胞（1、J）.Valueの= ""その後
            のMsgBox "检测到标题行存在空值、导入失败！"、vbInformation、 "提醒" 
            を終了サブ
        エルス
            J = 1なら、
                strTable = strTable＆細胞（1、J）.Valueの＆ "VARCHAR（100）NULL" 
            エルス
                strTable = strTable＆ "" ＆細胞（1、J）.Valueの＆ "VARCHAR（100）NULL"
            END IF 
        END IF 
    次の
    SQL = SQL＆strTable＆ "）"
    
    「VbInformationは、」 『思い出させるエルス
        MsgBoxには、』データをインポートしませんでした！「
    もしrs.State = adStateOpenその後をrs.Close
    
     
    する場合を終了します
    AdStateOpenその後cn.Close cn.State = IF 
    出口サブ
errHandle：
    「！データベース接続が失敗したり、予期しないエラー番号が発生したエラー：」メッセージボックス＆Err.Numberに＆「エラーメッセージ：」＆Err.Description、vbInformation、「思い出させますあなたの" 
End Subの
テーブル名は、データベーステーブルの名前です。
。
VBA、エクセル、WPS、SQL Serverの保存

おすすめ
