Excel\u306e\u30c7\u30fc\u30bf\u30921\u884c\u305a\u3064\u633f\u5165\u3057\u3066\u3044\u304f\u306e\u304c\u9762\u5012\u306a\u306e\u3067\u3001\u30b7\u30fc\u30c8\u307e\u308b\u3063\u3068INSERT\u3092\u3084\u3063\u3066\u307f\u305f\u3002<\/p>\n
\u5f15\u6570\u306f\u4ee5\u4e0b\u306e\u901a\u308a
\nworkbook_path\uff1a\u5143\u30c7\u30fc\u30bf\u306e\u30d6\u30c3\u30af
\nsheet_name\uff1aworkbook_path\u306e\u3069\u306e\u30b7\u30fc\u30c8\u3092\u5143\u30c7\u30fc\u30bf\u3068\u3059\u308b\u306e\u304b\u6307\u5b9a
\ndb_src\uff1aDB\u306e\u5834\u6240
\ndb_name\uff1aDB\u306e\u540d\u524d
\nlogin_id\uff1aDB\u306e\u30e6\u30fc\u30b6ID
\nlogin_pw\uff1aDB\u306e\u30e6\u30fc\u30b6\u30d1\u30b9\u30ef\u30fc\u30c9
\ntable_name\uff1aDB\u306e\u3069\u306e\u30c6\u30fc\u30d6\u30eb\u3092\u64cd\u4f5c\u3059\u308b\u306e\u304b\uff08\u3053\u3053\u3067\u306f\u30c7\u30fc\u30bf\u306e\u6295\u5165\u5148\uff09<\/p>\n
\r\nPrivate Function ExportFromXLSX(workbook_path as String,sheet_name as String, db_src as String, db_name as String,login_id as String, login_pw as String, table_name as String) As Boolean\r\n\r\n\tDim cn as ADODB.Connection\r\n\tDim recs_aff as Long\r\n\r\n\tOn Error Goto ErrFunc\r\n\t\r\n\tSet cn = New ADODB.Connection\r\n\r\n\t'2007\u30d0\u30fc\u30b8\u30e7\u30f3\u306eExcel\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\r\n\tcn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & workbook_path & ";" & _\r\n\t "Extended Properties=Excel 12.0"\r\n\r\n\t'Jet\u30d7\u30ed\u30d0\u30a4\u30c0\u3092\u4f7f\u7528\u3057\u3066\u30a4\u30f3\u30dd\u30fc\u30c8\r\n\tsql = "INSERT INTO [odbc;Driver={SQL Server};" & _\r\n\t\t\t\t\t\t"Server=" & db_src & ";" _ \r\n\t\t\t\t\t\t& "Database=" & db_name & ";" _\r\n\t\t\t\t\t\t& "UID=" & login_id _\r\n\t\t\t\t\t\t& "PWD=" & login_pw _\r\n\t\t\t\t\t\t& "]." & table_name _\r\n\t\t\t\t\t\t& " SELECT * FROM [" & sheet_name & "$]"\r\n\t \r\n\tcn.Execute sql, recs_aff, adExecuteNoRecords\r\n\tcn.Close\r\n\tSet cn = Nothing\r\n\r\n\tExportFromXLSX = True\r\n\tExit Function\r\n\t\r\nErrFunc:\r\n\t\r\n\t'\u30a8\u30e9\u30fc\u30e1\u30c3\u30bb\u30fc\u30b8\u8868\u793a\r\n\t' ---- (\u7701\u7565) ----\r\n\t\r\n\tIf Not cn Is Nothing Then\r\n\t\tIf cn.State=1 Then cn.Close\r\n\t\tSet cn = Nothing\r\n\tEnd If\r\n\t\r\nEnd Function\r\n<\/pre>\n\u3053\u3093\u306a\u3053\u3068\u3084\u3089\u306a\u304d\u3083\u3044\u3051\u306a\u3044\u306e\u306f\u3001SQLServer\u5074\u304b\u3089Excel\u30b7\u30fc\u30c8\u306e\u5185\u5bb9\u3092\u3068\u3063\u3066\u3053\u3088\u3046\u3068\u3057\u305f\u3068\u304d\u306b\u3001\u5206\u6563\u30af\u30a8\u30ea\u307b\u306b\u3083\u307b\u306b\u3083\u30fb\u30fb\u30fb\u3068\u3044\u3046\u30a8\u30e9\u30fc\u304c\u51fa\u3066\u3057\u307e\u3063\u305f\u304b\u3089\u306a\u306e\u3060\u3002
\n\u306a\u306e\u3067Excel\u30b7\u30fc\u30c8\u304b\u3089\u3001SQLServer\u5074\u306b\u9001\u308b\u30a4\u30e1\u30fc\u30b8\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"
Excel\u306e\u30c7\u30fc\u30bf\u30921\u884c\u305a\u3064\u633f\u5165\u3057\u3066\u3044\u304f\u306e\u304c\u9762\u5012\u306a\u306e\u3067\u3001\u30b7\u30fc\u30c8\u307e\u308b\u3063\u3068INSERT\u3092\u3084\u3063\u3066\u307f\u305f\u3002 \u5f15\u6570\u306f\u4ee5\u4e0b\u306e\u901a\u308a workbook_path\uff1a\u5143\u30c7\u30fc\u30bf\u306e\u30d6\u30c3\u30af sheet_name\uff1aworkbook_path\u306e\u3069\u306e\u30b7\u30fc […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[19,5],"tags":[43,180,74],"class_list":["post-2030","post","type-post","status-publish","format-standard","hentry","category-sql","category-excelvba","tag-excel","tag-sqlserver","tag-vba"],"_links":{"self":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2030","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=2030"}],"version-history":[{"count":1,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2030\/revisions"}],"predecessor-version":[{"id":2699,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=\/wp\/v2\/posts\/2030\/revisions\/2699"}],"wp:attachment":[{"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=2030"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=2030"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/anada.cloudfree.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=2030"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}