{"id":6547,"date":"2026-08-06T22:36:11","date_gmt":"2026-08-06T13:36:11","guid":{"rendered":"https:\/\/route-zero.com\/recruit\/?post_type=route&p=6547"},"modified":"2026-11-06T22:36:35","modified_gmt":"2026-11-06T13:36:35","slug":"vba-excel-csv-utf8-opentext-import","status":"publish","type":"route","link":"https:\/\/route-zero.com\/recruit\/route\/6547\/","title":{"rendered":"VBA\u3067UTF-8 CSV\u3092\u8aad\u307f\u8fbc\u3080\uff5c\u6587\u5b57\u5316\u3051\u306e\u76f4\u3057\u65b9"},"content":{"rendered":"

CSV\u3092Excel\u3067\u958b\u3044\u305f\u3089\u3001\u540d\u524d\u3084\u4f4f\u6240\u304c\u300c\u6587\u5b57\u5316\u3051\u300d\u3057\u3066\u3044\u307e\u305b\u3093\u304b\u3002\u539f\u56e0\u306e\u4e00\u3064\u306f\u3001\u30d5\u30a1\u30a4\u30eb\u306e\u6587\u5b57\u30b3\u30fc\u30c9\u3068Excel\u304c\u8aad\u307f\u53d6\u308b\u6587\u5b57\u30b3\u30fc\u30c9\u306e\u4e0d\u4e00\u81f4\u3067\u3059\u3002UTF-8<\/strong> \u306eCSV\u306a\u3089\u3001VBA\u306e `Workbooks.OpenText` \u3067 `Origin:=65001` \u3092\u6307\u5b9a\u3059\u308b\u65b9\u6cd5\u304c\u3042\u308a\u307e\u3059\u3002\u6700\u521d\u306b\u30d5\u30a1\u30a4\u30eb\u306e\u7a2e\u985e\u3092\u78ba\u304b\u3081\u3066\u304b\u3089\u8a66\u3057\u307e\u3057\u3087\u3046\u3002<\/p>\n

\u6700\u521d\u306b\u78ba\u8a8d\uff1a\u6587\u5b57\u5316\u3051\u3068UTF-8\u3068\u306f<\/h2>\n

\u6587\u5b57\u30b3\u30fc\u30c9<\/strong> \u306f\u3001\u6587\u5b57\u3092\u30d5\u30a1\u30a4\u30eb\u306e\u30d0\u30a4\u30c8\u5217\u3078\u5bfe\u5fdc\u4ed8\u3051\u308b\u6c7a\u307e\u308a\u3067\u3059\u3002\u540c\u3058CSV\u3067\u3082\u3001UTF-8\u3067\u4fdd\u5b58\u3055\u308c\u305f\u3082\u306e\u3092\u5225\u306e\u6587\u5b57\u30b3\u30fc\u30c9\u3068\u3057\u3066\u958b\u304f\u3068\u3001\u65e5\u672c\u8a9e\u304c\u8aad\u3081\u306a\u3044\u8a18\u53f7\u306b\u5909\u308f\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n

Microsoft\u306e\u6848\u5185\u3067\u306f\u3001UTF-8\u3067BOM\u4ed8\u304d\u306eCSV\u306f\u901a\u5e38\u306e\u958b\u304d\u65b9\u3067\u8a8d\u8b58\u3055\u308c\u308b\u5834\u5408\u304c\u3042\u308a\u3001BOM\u304c\u306a\u3044\u30d5\u30a1\u30a4\u30eb\u306f\u300c\u30c7\u30fc\u30bf\u306e\u53d6\u5f97\u300d\u304b\u3089\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u6307\u5b9a\u3059\u308b\u65b9\u6cd5\u304c\u7d39\u4ecb\u3055\u308c\u3066\u3044\u307e\u3059\u3002\u74b0\u5883\u3084Excel\u306e\u7248\u306b\u3088\u3063\u3066\u753b\u9762\u306e\u9805\u76ee\u540d\u304c\u7570\u306a\u308b\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n

\n

\u7528\u8a9e\u89e3\u8aac\uff1aBOM\uff08Byte Order Mark\uff09<\/strong>
\u30d5\u30a1\u30a4\u30eb\u306e\u5148\u982d\u306b\u4ed8\u304f\u3053\u3068\u304c\u3042\u308b\u77ed\u3044\u5370\u3067\u3059\u3002UTF-8\u306eCSV\u3067\u3001\u8aad\u307f\u53d6\u308b\u5074\u304c\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u5224\u65ad\u3059\u308b\u624b\u639b\u304b\u308a\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<\/blockquote>\n\n\n\n\n\n\n\n
\u75c7\u72b6<\/th>\n\u6700\u521d\u306b\u78ba\u8a8d\u3059\u308b\u3053\u3068<\/th>\n<\/tr>\n<\/thead>\n
\u65e5\u672c\u8a9e\u3060\u3051\u6587\u5b57\u5316\u3051<\/td>\n\u5b9f\u969b\u306e\u30d5\u30a1\u30a4\u30eb\u304cUTF-8\u304b\u3001\u6587\u5b57\u30b3\u30fc\u30c9\u306e\u9078\u629e\u304c\u5408\u3063\u3066\u3044\u308b\u304b<\/td>\n<\/tr>\n
\u30ab\u30f3\u30de\u3067\u5217\u304c\u5206\u304b\u308c\u306a\u3044<\/td>\n\u533a\u5207\u308a\u6587\u5b57\u304c\u30ab\u30f3\u30de\u304b\u3001\u30bf\u30d6\u306a\u3069\u5225\u306e\u5f62\u5f0f\u304b<\/td>\n<\/tr>\n
00123\u304c123\u306b\u306a\u308b<\/td>\nExcel\u304c\u6570\u5024\u3068\u3057\u3066\u5909\u63db\u3057\u3066\u3044\u306a\u3044\u304b\uff08\u5148\u982d\u30bc\u30ed\u3092\u6587\u5b57\u5217\u3067\u4fdd\u6301\u3059\u308b\uff09<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n
\n

\u307e\u305a\u753b\u9762\u3067\u8aad\u307f\u8fbc\u3093\u3067\u539f\u56e0\u3092\u5206\u3051\u308b<\/h2>\n
    \n
  1. \u5143\u306eCSV\u3092\u30b3\u30d4\u30fc\u3057\u3001\u4fee\u6b63\u3084\u518d\u4fdd\u5b58\u306f\u30b3\u30d4\u30fc\u306b\u5bfe\u3057\u3066\u884c\u3044\u307e\u3059\u3002<\/li>\n
  2. Windows\u7248\u306a\u3069\u306eExcel\u3067\u306f\u300c\u30c7\u30fc\u30bf\u300d\u2192\u300c\u30c7\u30fc\u30bf\u306e\u53d6\u5f97\u300d\u2192\u300c\u30c6\u30ad\u30b9\u30c8\/CSV\u304b\u3089\u300d\u3092\u958b\u304d\u307e\u3059\u3002<\/li>\n
  3. \u8aad\u307f\u8fbc\u307f\u753b\u9762\u3067\u300c\u30d5\u30a1\u30a4\u30eb\u306e\u914d\u4fe1\u5143\u300d\u3084\u6587\u5b57\u30b3\u30fc\u30c9\u3092UTF-8\u306b\u6307\u5b9a\u3057\u3001\u65e5\u672c\u8a9e\u304c\u6b63\u3057\u304f\u898b\u3048\u308b\u304b\u78ba\u8a8d\u3057\u307e\u3059\u3002<\/li>\n
  4. \u533a\u5207\u308a\u8a18\u53f7\u304c\u30ab\u30f3\u30de\u3067\u3001\u5217\u304c\u671f\u5f85\u3069\u304a\u308a\u306b\u5206\u304b\u308c\u308b\u304b\u3092\u78ba\u8a8d\u3057\u3066\u304b\u3089\u8aad\u307f\u8fbc\u307f\u307e\u3059\u3002<\/li>\n<\/ol>\n

    \u753b\u9762\u3067\u6b63\u3057\u304f\u8868\u793a\u3067\u304d\u308c\u3070\u3001CSV\u306e\u5185\u5bb9\u305d\u306e\u3082\u306e\u3088\u308a\u3082\u3001\u53d6\u308a\u8fbc\u307f\u6642\u306e\u6587\u5b57\u30b3\u30fc\u30c9\u6307\u5b9a\u304c\u539f\u56e0\u3067\u3042\u308b\u53ef\u80fd\u6027\u304c\u9ad8\u307e\u308a\u307e\u3059\u3002\u9006\u306b\u753b\u9762\u3067\u3082\u8aad\u3081\u306a\u3044\u5834\u5408\u306f\u3001\u30d5\u30a1\u30a4\u30eb\u304cUTF-8\u3067\u306f\u306a\u3044\u53ef\u80fd\u6027\u3084\u3001\u5143\u30d5\u30a1\u30a4\u30eb\u304c\u3059\u3067\u306b\u7834\u640d\u3057\u3066\u3044\u308b\u53ef\u80fd\u6027\u3092\u7591\u3044\u307e\u3059\u3002<\/p>\n

    \n

    VBA\u3067UTF-8 CSV\u3092\u958b\u304f\u30b3\u30fc\u30c9<\/h2>\n

    \u6b21\u306fWindows\u7248Excel\u306e\u30c7\u30b9\u30af\u30c8\u30c3\u30d7\u30a2\u30d7\u30ea\u3067\u8a66\u3059VBA\u4f8b\u3067\u3059\u3002`Origin:=65001` \u306fUTF-8\u306e\u30b3\u30fc\u30c9\u30da\u30fc\u30b8\u3092\u6307\u5b9a\u3057\u3001`Comma:=True` \u306f\u30ab\u30f3\u30de\u533a\u5207\u308a\u3092\u793a\u3057\u307e\u3059\u3002`FieldInfo` \u306f1\u5217\u76ee\u3092\u6587\u5b57\u5217\u3068\u3057\u3066\u8aad\u307f\u8fbc\u3080\u8a2d\u5b9a\u3067\u3059\u3002\u4f5c\u696d\u524d\u306b\u5143CSV\u3092\u5225\u540d\u3067\u30d0\u30c3\u30af\u30a2\u30c3\u30d7\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n

    Sub ImportUtf8Csv()\r\n    Dim filePath As Variant\r\n    filePath = Application.GetOpenFilename("CSV Files (*.csv),*.csv")\r\n    If VarType(filePath) = vbBoolean Then Exit Sub\r\n\r\n    Workbooks.OpenText FileName:=CStr(filePath), _\r\n        Origin:=65001, _\r\n        DataType:=xlDelimited, _\r\n        TextQualifier:=xlTextQualifierDoubleQuote, _\r\n        Comma:=True, _\r\n        FieldInfo:=Array(Array(1, xlTextFormat))\r\nEnd Sub<\/code><\/pre>\n
    Excel\u306eVBA\u30a8\u30c7\u30a3\u30bf\u30fc\u3067\u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb\u306b\u8cbc\u308a\u4ed8\u3051\u3066\u5b9f\u884c\u3059\u308b\u3068\u3001\u30d5\u30a1\u30a4\u30eb\u9078\u629e\u5f8c\u306bCSV\u304c\u65b0\u3057\u3044\u30d6\u30c3\u30af\u3068\u3057\u3066\u958b\u304b\u308c\u307e\u3059\u3002`GetOpenFilename` \u306f\u30d5\u30a1\u30a4\u30eb\u3092\u9078\u3076\u3060\u3051\u3067\u3001\u76f4\u63a5\u30c7\u30fc\u30bf\u3092\u66f8\u304d\u63db\u3048\u307e\u305b\u3093\u3002\u5b9f\u884c\u5148\u3067\u306e\u8868\u793a\u306f\u3001\u3054\u81ea\u8eab\u306eExcel\u306e\u7248\u3068\u30d5\u30a1\u30a4\u30eb\u3067\u78ba\u304b\u3081\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
    \n
    \u7528\u8a9e\u89e3\u8aac\uff1a\u30b3\u30fc\u30c9\u30da\u30fc\u30b865001<\/strong>
    UTF-8\u306b\u5272\u308a\u5f53\u3066\u3089\u308c\u308b\u8b58\u5225\u756a\u53f7\u3067\u3059\u3002OpenText\u306e `Origin` \u5f15\u6570\u3067\u306f\u6570\u5024\u3067\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u6307\u5b9a\u3067\u304d\u307e\u3059\u3002<\/p>\n<\/blockquote>\n
    \n
    \u30b5\u30f3\u30d7\u30ebCSV\u3067\u8a66\u3059\u3068\u304d\u306e\u6ce8\u610f<\/h2>\n
    UTF-8\u3067\u6b21\u306e2\u884c\u306eCSV\u3092\u4fdd\u5b58\u3057\u3001Excel\u3067\u958b\u3044\u305f\u7d50\u679c\u3092\u78ba\u8a8d\u3057\u307e\u3059\u3002`00123` \u306f\u4f1a\u54e1ID\u306a\u3069\u3092\u60f3\u5b9a\u3057\u305f\u6587\u5b57\u5217\u3067\u3059\u3002<\/p>\n
    \u793e\u54e1\u756a\u53f7,\u6c0f\u540d\r\n00123,\u4f50\u85e4<\/code><\/pre>\n
    \u65e5\u672c\u8a9e\u300c\u4f50\u85e4\u300d\u304c\u6b63\u3057\u304f\u8868\u793a\u3055\u308c\u30011\u5217\u76ee\u304c `00123` \u306e\u307e\u307e\u6b8b\u308c\u3070\u76ee\u7684\u306b\u6cbf\u3063\u305f\u7d50\u679c\u3067\u3059\u3002`FieldInfo:=Array(Array(1, xlTextFormat))` \u306f1\u5217\u76ee\u3092\u6587\u5b57\u5217\u6271\u3044\u3057\u307e\u3059\u304c\u3001\u4ed6\u306e\u5217\u306e\u5148\u982d\u30bc\u30ed\u3082\u4fdd\u3061\u305f\u3044\u5834\u5408\u306f\u3001\u305d\u306e\u5217\u306b\u3064\u3044\u3066\u3082\u6587\u5b57\u5217\u6307\u5b9a\u3092\u8ffd\u52a0\u3057\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n
    Excel\u304c\u81ea\u52d5\u5909\u63db\u3057\u305f\u3042\u3068\u3067\u4fdd\u5b58\u3057\u3066\u3057\u307e\u3046\u3068\u3001\u5143\u306e\u30bc\u30ed\u3084\u6587\u5b57\u30b3\u30fc\u30c9\u60c5\u5831\u3092\u56de\u5fa9\u3067\u304d\u306a\u3044\u3053\u3068\u304c\u3042\u308a\u307e\u3059\u3002\u5b9f\u9a13\u3067\u306f\u5143CSV\u3092\u7de8\u96c6\u30fb\u4e0a\u66f8\u304d\u3057\u306a\u3044\u3088\u3046\u306b\u3057\u307e\u3057\u3087\u3046\u3002<\/p>\n
    \u89e3\u6c7a\u3057\u306a\u3044\u3068\u304d\u306e\u30c1\u30a7\u30c3\u30af\u30ea\u30b9\u30c8<\/h2>\n