{"id":1948,"date":"2023-12-31T11:04:54","date_gmt":"2023-12-31T02:04:54","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1948"},"modified":"2024-01-01T00:21:05","modified_gmt":"2023-12-31T15:21:05","slug":"sumaho-csv-addr-inport01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/sumaho-csv-addr-inport01","title":{"rendered":"ExcelVBA \uff5e SoftBank\u306e\u300c\u30b7\u30f3\u30d7\u30eb\u30b9\u30de\u30db\uff08\u304a\u3058\u3044\u3061\u3083\u3093\u643a\u5e2f\uff09\uff1d\u30a2\u30f3\u30c9\u30ed\u30a4\u30c9\u300d\u306b\u3001CSV\u306b\u66f8\u304d\u51fa\u3055\u308c\u305f\u96fb\u8a71\u5e33\u30c7\u30fc\u30bf\u3092\u4e00\u62ec\u767b\u9332\u3059\u308b\u305f\u3081\u306e\u3001\u305d\u306e\u30c7\u30fc\u30bf\u4f5c\u6210\uff08vCard\u3001VCF\u4f5c\u6210\uff09\u3092\u3059\u308b\u65b9\u6cd5\u3002\uff08\u6e96\u5099\u3055\u3048\u3067\u304d\u308c\u3070\u3001\u5b9f\u969b\u306e\u4e00\u62ec\u767b\u9332\u306f\uff15\uff10\uff10\u4ef6\u304c\uff11\uff10\u79d2\u4ee5\u5185\u306b\u7d42\u308f\u308a\u307e\u3059\u3002\uff09"},"content":{"rendered":"

ExcelVBA \uff5e SoftBank\u306e\u300c\u30b7\u30f3\u30d7\u30eb\u30b9\u30de\u30db\uff08\u304a\u3058\u3044\u3061\u3083\u3093\u643a\u5e2f\uff1d\u30a2\u30f3\u30c9\u30ed\u30a4\u30c9\uff09\u300d\u306b\u3001CSV\u306b\u66f8\u304d\u51fa\u3055\u308c\u305f\u96fb\u8a71\u5e33\u30c7\u30fc\u30bf\u3092\u4e00\u62ec\u767b\u9332\u3059\u308b\u305f\u3081\u306e\u3001\u305d\u306e\u30c7\u30fc\u30bf\u4f5c\u6210\uff08vCard\u3001VCF\u4f5c\u6210\uff09\u3092\u3059\u308b\u65b9\u6cd5\u3002\uff08\u6e96\u5099\u3055\u3048\u3067\u304d\u308c\u3070\u3001\u5b9f\u969b\u306e\u4e00\u62ec\u767b\u9332\u306f\uff15\uff10\uff10\u4ef6\u304c\uff11\uff10\u79d2\u4ee5\u5185\u306b\u7d42\u308f\u308a\u307e\u3059\u3002\uff09<\/p>\n

\"\"<\/a><\/p>\n

\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/a>
\n\u203b\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u8981\u4ef6\uff1f\u304c\u53b3\u3057\u3044\u30d6\u30e9\u30a6\u30b6\u306e\u5834\u5408\u306f\u3001\u53f3\u30af\u30ea\u30c3\u30af\u3057\u3066
\n\u3000\u300c\u540d\u524d\u3092\u4ed8\u3051\u3066\u30ea\u30f3\u30af\u5148\u3092\u4fdd\u5b58\u300d\u3068\u3044\u3063\u305f\u65e8\u306e\u30e1\u30cb\u30e5\u30fc\u3067
\n\u3000\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u304f\u3060\u3055\u3044\u3002
\n\u3000FireFox\u306f\u666e\u901a\u306b\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3067\u304d\u308b\u307f\u305f\u3044\u3067\u3059\u3002
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n

\u25cf\u64cd\u4f5c\u65b9\u6cd5<\/p>\n

\u304a\u304a\u307e\u304b\u306a\u624b\u9806\u306f\u4ee5\u4e0b\u3067\u3059\u3002\uff08\u3044\u3064\u304b\u3082\u3046\u5c11\u3057\u8a73\u3057\u304f\u66f8\u304d\u307e\u3059\uff09<\/p>\n

(01)\u300cUTF-8N\u300d\u306e\u6587\u5b57\u30b3\u30fc\u30c9\u306e\u3001\u7a7a\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u4f5c\u6210\u3002
\n\u3000\u3000\uff08\u6587\u5b57\u30b3\u30fc\u30c9\u304c\u8d85\u91cd\u8981\uff09
\n\u3000\u3000\uff08Terapad\u306e\u300c\u30d5\u30a1\u30a4\u30eb\u2192\u6587\u5b57\/\u6539\u884c\u30b3\u30fc\u30c9\u6307\u5b9a\u4fdd\u5b58\u300d\u306a\u3069\u3067\u3084\u308c\u307e\u3059\u3002\uff09
\n\u3000\u3000\u3000\u30e1\u30e2\u5e33\u306a\u3089\u300cBOM\u306a\u3057\u300d\u3067\u4fdd\u5b58\u3059\u308c\u3070\u3044\u3044\u306e\u304b\u3082\uff1f\u305f\u3060\u3057\u672a\u78ba\u8a8d\u3067\u3059\u3002
\n\u3000\u3000\u3000\u53c2\u8003\u2192\u6587\u5b57\u30b3\u30fc\u30c9\u306fUTF-8\uff1f UTF-8N\uff1f<\/a>\uff09<\/p>\n

(02)\u96fb\u8a71\u5e33\u306eCSV\u30d5\u30a1\u30a4\u30eb\u3092\u7528\u610f\u3057\u3066\u958b\u304d\u307e\u3059\u3002<\/p>\n

(03)\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u30fb\u89e3\u51cd\u3057\u3066\u3001\u958b\u304d\u307e\u3059\u3002<\/p>\n

(04)\u30c6\u30b9\u30c8\u3059\u308b\u306e\u3067\u306a\u3051\u308c\u3070\u3001\u300cSheet1\u300d\u306b\u30b5\u30f3\u30d7\u30eb\u30c7\u30fc\u30bf\u304c10\u4ef6\u307b\u3069
\n\u3000\u3000\u5165\u3063\u3066\u3044\u308b\u306e\u3067\u3001\u305d\u308c\u3092\u6d88\u3057\u307e\u3059\u3002
\n\u3000\u3000\uff08\u9ec4\u8272\u304f\u8272\u4ed8\u3051\u3057\u3066\u3042\u308b\u90e8\u5206\u306f\u3001\u306e\u3061\u307b\u3069\u305d\u3053\u306b
\n\u3000\u3000\u3000\u30d5\u30e9\u30b0\u3092\u5165\u529b\u3059\u308b\u306e\u3067\u66ab\u5b9a\u3067\u8272\u3064\u3051\u3057\u3066\u3042\u308a\u307e\u3059\u3002
\n\u3000\u3000\u300010\u4ef6\u4ee5\u4e0a\u51e6\u7406\u3059\u308b\u306a\u3089\u3001\u8272\u4ed8\u3051\u90e8\u5206\u306e\u4e0b\u306e\u884c\u306b\u3082
\n\u3000\u3000\u3000\u306e\u3061\u307b\u3069\u3001\u30d5\u30e9\u30b0\u3092\u5165\u529b\u3057\u307e\u3059\u3002\uff09<\/p>\n

\u3000\u3000\u203b\u9006\u306b\u3001\u30b5\u30f3\u30d7\u30eb\u30c7\u30fc\u30bf\u3067\u30c6\u30b9\u30c8\u3059\u308b\u306e\u3067\u3042\u308c\u3070\u3001
\n\u3000\u3000\u3000(07)\u3078\u98db\u3093\u3067\u3001\u305d\u308c\u4ee5\u964d\u3092\u304a\u3053\u306a\u3063\u3066\u304f\u3060\u3055\u3044\u3002
\n\u3000\u3000\u3000\u3000<\/p>\n

(05)\u300cSheet1\u300d\u306e\u5fc5\u8981\u306a\u5217\u306b\u3001CSV\u304b\u3089\u30c7\u30fc\u30bf\u3092\u30b3\u30d4\u30da\u3002
\n\u3000\u3000\uff08\u305d\u306e\u969b\u3001\u884c\u306e\u6574\u5408\u6027\u3092\u5d29\u3055\u306a\u3044\u3088\u3046\u306b\u6ce8\u610f\uff09<\/p>\n

\u3000\u3000\u307e\u305f\u3001\u3053\u306e\u6bb5\u968e\u3067\u300c\u30e1\u30e2\uff08Note\uff09\u300d\u306a\u3069\u306e\u30bb\u30eb\u306e\u5024\u306b\u3001
\n\u3000\u3000\u666e\u901a\u306b\u6539\u884c\u304c\u5165\u3063\u3066\u3057\u307e\u3063\u3066\u3044\u308b\u3068\u3001
\n\u3000\u3000\u30b9\u30de\u30db\u5074\u3067\u306f\u4e00\u756a\u4e0a\u306e\u884c\u306e\u6587\u8a00\u3057\u304b\u8aad\u307f\u8fbc\u307e\u308c\u305a\u3001
\n\u3000\u3000\uff12\u884c\u76ee\u4ee5\u964d\u306f\u5207\u308a\u6368\u3066\u3089\u308c\u3066\u3057\u307e\u3046\u306e\u3067\u3001
\n\u3000\u3000\u3053\u306e\u6bb5\u968e\u3067\u306f\u3001\u300c\u30e1\u30e2\uff08Note\uff09\u300d\u306a\u3069\u306e\u5024\u306f\u3001
\n\u3000\u30001\u884c\u306b\u3064\u306a\u3052\u76f4\u3057\u3066\u304a\u3044\u3066\u304f\u3060\u3055\u3044\u3002<\/p>\n

(06)\u4e00\u5fdc\u300c\u9023\u756a\u300d\u306e\u5217\u3092\u30aa\u30fc\u30c8\u30d5\u30a3\u30eb\u306a\u3069\u3067\u6700\u5f8c\u307e\u3067\u57cb\u3081\u307e\u3059\u3002
\n\u3000\u3000\uff08\u4f55\u3089\u304b\u306e\u4e26\u3079\u66ff\u3048\u3092\u3057\u305f\u3068\u304d\u306b\u539f\u72b6\u306b\u623b\u305b\u308b\u3088\u3046\u306b\uff09<\/p>\n

(07)\u5bfe\u8c61\u306e\u30c7\u30fc\u30bf\u306e\u884c\u306e\u300c\u30c7\u30fc\u30bf\u5316\u5bfe\u8c61\u30d5\u30e9\u30b001\u300d\u306e\u5217\u306b\uff11\u3092\u5165\u529b\u3002
\n\u3000\u3000\uff08\u5168\u4ef6\u3067\u3044\u3044\u306a\u3089\u3001\u5168\u90e8\u306e\u884c\u306b\u300c\uff11\u300d\u3092\u5165\u308c\u307e\u3059\uff09<\/p>\n

(08)Alt\uff0bF11\u3067VBE\u3092\u958b\u304d\u307e\u3059\u3002<\/p>\n

(09)\u51fa\u3066\u304d\u305f\u753b\u9762\u306e\u5de6\u5074\u306b\u3001\u300cvcf\u7528_\u30c7\u30fc\u30bf\u4f5c\u6210\u300d\u3068\u3044\u3046\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u540d\u524d\u304c\u3042\u308b\u306e\u3067
\n\u3000\u305d\u308c\u3092\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af\u3002<\/p>\n

(10)\u300cvcf\u7528_\u30c7\u30fc\u30bf\u4f5c\u6210\u300d\u30e2\u30b8\u30e5\u30fc\u30eb\u306e\u4e2d\u8eab\u304c\u53f3\u5074\u306b\u51fa\u3066\u304d\u3066\u3001
\n\u3000\u300cVcfFileDataMake01()\u300d\u304c\u898b\u3048\u308b\u72b6\u614b\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n

(11)\u300cDim l_Flg01 As Long\u300d\u3068\u66f8\u3044\u3066\u3042\u308b\u3078\u3093\u3092\u3044\u3063\u305f\u3093\u30af\u30ea\u30c3\u30af\u3057\u3066\u3001
\n\u3000\u30ab\u30fc\u30bd\u30eb\u304c\u70b9\u6ec5\u3059\u308b\u306e\u3092\u78ba\u8a8d\u3057\u307e\u3059\u3002<\/p>\n

(12)\u305d\u306e\u72b6\u614b\u306e\u307e\u307e\u3001F5\u30ad\u30fc\u3092\u62bc\u3057\u307e\u3059\u3002\u3000\u300cVcfFileDataMake01() \u304c\u5b9f\u884c\u3055\u308c\u307e\u3059\u3002
\n\u3000\u3000\uff08\u9078\u629e\u3057\u305f\u30c7\u30fc\u30bf\u3060\u3051\u304c\u5168\u90e8\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u9001\u3089\u308c\u307e\u3059\u3002
\n\u3000\u3000\u3000\u753b\u9762\u3068\u3057\u3066\u306f\u7279\u306b\u4f55\u306e\u5909\u5316\u3082\u8d77\u3053\u308a\u307e\u305b\u3093\u3002\uff09<\/p>\n

(13)\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306b\u3001Ctrl\uff0bV\u3067\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306e\u96fb\u8a71\u5e33\u30c7\u30fc\u30bf\u3092\u8cbc\u308a\u4ed8\u3051\u3002<\/p>\n

(14)\u4e0a\u66f8\u304d\u3057\u3066\u30d5\u30a1\u30a4\u30eb\u3092\u9589\u3058\u305f\u306e\u3061\u3001\u62e1\u5f35\u5b50\u3092\u300c.txt\u300d\u304b\u3089\u300c.vcf\u300d\u306b\u5909\u66f4\u3002<\/p>\n

(15)\u30b7\u30f3\u30d7\u30eb\u30b9\u30de\u30db\u306b\u6dfb\u4ed8\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u9001\u4fe1\u3002<\/p>\n

(16)\u30b7\u30f3\u30d7\u30eb\u30b9\u30de\u30db\u5074\u3067\u30e1\u30fc\u30eb\u30a2\u30d7\u30ea\u306a\u3069\u3067\u70b9\u30d5\u30a1\u30a4\u30eb\u3092\u958b\u304f\u3002<\/p>\n

(17)\u9078\u629e\u767b\u9332\u304b\u5168\u4ef6\u767b\u9332\u304b\u3092\u805e\u3044\u3066\u304f\u308b\u306e\u3067\u3001\u300c\u5168\u4ef6\u767b\u9332\u300d\u3092\u3057\u307e\u3059\u3002
\n\u3000\u3000\u3053\u308c\u3067\u7d42\u308f\u308a\u3067\u3059\u3002<\/p>\n

\u3000\u3000<\/SPAN><\/p>\n

\u3044\u3061\u304a\u3046\u3001\u7a7a\u767d\u306e\u30bb\u30eb\u306e\u90e8\u5206\u3082\u3001vCard\u5f62\u5f0f\u3067\u3001\u300c\u82f1\u8a9e\u306e\u9805\u76ee\u540d\u3060\u3051\u300d\u304c\u66f8\u304d\u51fa\u3055\u308c\u307e\u3059\u3002
\n\u304c\u3001\u305d\u306e\u3088\u3046\u306a\u9805\u76ee\u306f\u3001\u30b7\u30f3\u30d7\u30eb\u30b9\u30de\u30db\u5074\u3067\u306f\u7121\u8996\u3055\u308c\u3066\u3001\u300c\u7121\u304b\u3063\u305f\u3082\u306e\u300d\u3068\u3057\u3066\u6271\u308f\u308c\u3001\u30c7\u30fc\u30bf\u306e\u3042\u308b\u9805\u76ee\u3060\u3051\u304c\u30b9\u30de\u30db\u306b\u5438\u3044\u8fbc\u307e\u308c\u3001\u6b8b\u308a\u307e\u3059\u306e\u3067\u3001\u5fc3\u914d\u3044\u308a\u307e\u305b\u3093\u3002<\/p>\n

\u3042\u3068\u3001\u300c\u30e1\u30e2\uff08Note\uff09\u300d\u306a\u3069\u3067\u3001\u6539\u884c\u3092\u5165\u308c\u3066\u30b9\u30de\u30db\u5074\u306b\u8868\u793a\u3057\u305f\u3044\u5834\u5408\u306f\u3001
\n\u300cNote\u300d\u3068\u300c:\u300d\u306e\u3042\u3044\u3060\u306b\u300c;ENCODING=QUOTED-PRINTABLE\u300d\u3092\u631f\u3093\u3067\u3001
\n\u300c\u6587\u8a00=0D=0A\u6587\u8a00=0D=0A\u6587\u8a00=0D=0A\u300d\u3068\u3084\u308b\u3068
\n\u304a\u3058\u3044\u3061\u3083\u3093\u643a\u5e2f\u5074\u3067\u3001\u6539\u884c\u3055\u308c\u305f\u72b6\u614b\u3067\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n

\u4f8b
\n\u2193
\n\u300cNote\u300d\u3068\u300c:\u300d\u306e\u3042\u3044\u3060\u306b\u300c;ENCODING=QUOTED-PRINTABLE\u300d\u3092\u631f\u3093\u3067\u3001
\nNOTE;ENCODING=QUOTED-PRINTABLE:\u793e\u9577=0D=0A\u4f1a\u9577=0D=0A\u90e8\u9577=0D=0A\u3042\u3042\u3042\u3042
\n\u3068\u3084\u308b\u3068\u3001\u30b9\u30de\u30db\u5074\u3067\u306f
\n\u793e\u9577
\n\u4f1a\u9577
\n\u90e8\u9577
\n\u3042\u3042\u3042\u3042
\n\u3068\u8868\u793a\u3055\u308c\u307e\u3059\u3002<\/p>\n

\u30b5\u30f3\u30d7\u30eb\u30d5\u30a1\u30a4\u30eb\u3067\u306f\u3001\u305d\u3046\u306a\u3063\u3066\u3044\u307e\u305b\u3093\u306e\u3067\u3001
\n\u305d\u3046\u3057\u305f\u304b\u3063\u305f\u3089\u305d\u3046\u3057\u3066\u304f\u3060\u3055\u3044\u3002
\n\u3082\u3061\u308d\u3093\u3001\u5438\u3044\u8fbc\u3093\u3067\u304b\u3089\u3001\u5fc5\u8981\u306a\u9023\u7d61\u5148\u306e\u3082\u306e\u3060\u3051\u3001
\n\u666e\u901a\u306b\u624b\u52d5\u3067\u6539\u884c\u3092\u5165\u308c\u3066\u3082OK\u3067\u3059\u3002<\/p>\n

\u306a\u304a\u3001CSV\u306e\u6bb5\u968e\u3067\u300c\u30e1\u30e2\uff08Note\uff09\u300d\u306a\u3069\u306b\u666e\u901a\u306b\u6539\u884c\u304c\u5165\u3063\u3066\u3057\u307e\u3063\u3066\u3044\u308b\u3068\u3001
\n\u4e00\u756a\u4e0a\u306e\u884c\u306e\u6587\u8a00\u3057\u304b\u8aad\u307f\u8fbc\u307e\u308c\u305a\u3001\uff12\u884c\u76ee\u4ee5\u964d\u306f\u5207\u308a\u6368\u3066\u3089\u308c\u3066\u3057\u307e\u3046\u306e\u3067\u3001
\nCSV\u306e\u6bb5\u968e\u3067\u306f\u30011\u884c\u306b\u3064\u306a\u3052\u76f4\u3057\u3066\u304a\u3044\u3066\u304f\u3060\u3055\u3044\u3002
\n\uff08\u4e0a\u8a18\u306e(05)\u3092\u53c2\u7167\u3002\uff09<\/p>\n

\u203b\u3054\u6ce8\u610f
\n\u4eca\u56de\u3001\u5404\u7a2e\u306e\u300c\u533a\u5206\u300d\u306f\u6a5f\u80fd\u3055\u305b\u3066\u3044\u307e\u305b\u3093\u3002
\n\u4e00\u62ec\u3067\u5438\u3044\u8fbc\u3093\u3060\u3042\u3068\u3001\u6c17\u306b\u306a\u308b\u3088\u3046\u306a\u3089\u6c17\u306b\u306a\u308b\u30e2\u30ce\u3060\u3051\u624b\u4f5c\u696d\u3067\u5909\u3048\u3066\u304f\u3060\u3055\u3044\u3002
\n\u96fb\u8a71\u3084\u30e1\u30fc\u30eb\u306e\u300c\u643a\u5e2f\u300d\u300c\u52e4\u52d9\u5148\u300d\u300c\u81ea\u5b85\u300d\u306a\u3069\u306e\u533a\u5206\u3082\u6b63\u5e38\u306b\u5438\u3044\u8fbc\u307f\u305f\u3044\u306a\u3089\u3001
\n\u3054\u81ea\u5206\u3067\u305d\u306e\u3088\u3046\u306a\u5206\u5c90\u51e6\u7406\u3092\u65b0\u305f\u306b\u66f8\u304d\u52a0\u3048\u3066\u304f\u3060\u3055\u3044\u3002
\n\u53c2\u8003URL
\n\u2193
\nAndroid(2.3.4)\u306e\u9023\u7d61\u5148\u30a8\u30af\u30b9\u30dd\u30fc\u30c8\u3067\u51fa\u529b\u3055\u308c\u308bvCard\u5f62\u5f0f\u306b\u3064\u3044\u3066<\/a><\/p>\n

\u3000\u3000<\/SPAN>
\n\"\"<\/a><\/p>\n

\u3000\u3000<\/SPAN><\/p>\n

\u25cfvCard\u3001VCF\u3001\u7528\u306e\u96fb\u8a71\u5e33\u30c7\u30fc\u30bf\u3092\u751f\u6210\u3057\u3066\u3001\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u9001\u308b\u30d7\u30ed\u30b0\u30e9\u30e0
\n\uff08CSV\u306e\u96fb\u8a71\u5e33\u30c7\u30fc\u30bf\u3092\u3001vCard\u3001VCF\u3001\u306e\u30d5\u30a1\u30a4\u30eb\u5f62\u5f0f\u306b\u5909\u63db\u3057\u3066\u3001
\n\u3000\u305d\u308c\u3092\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u9001\u308a\u307e\u3059\u3002\u753b\u9762\u4e0a\u306e\u5909\u5316\u306f\u7279\u306b\u306f\u3042\u308a\u307e\u305b\u3093\u3002\uff09<\/p>\n

\r\n'\r\n'\r\nOption Explicit\r\n\r\nSub VcfFileDataMake01()\r\n\r\n    Dim l_Flg01 As Long\r\n    Dim l_LastRow01 As Long\r\n    Dim s_SrcWSNm01 As String\r\n    Dim s_DistWSNm01 As String\r\n    Dim l_DistLastRow01 As Long\r\n    Dim l_DistNewRow01 As Long\r\n    Dim o_SrcWS04 As Worksheet\r\n    Dim o_DistWS04 As Worksheet\r\n    Dim l_LoopCnt01 As Long\r\n    Dim s_OneData01 As String\r\n    Dim s_ALLData01 As String\r\n    \r\n    Let s_SrcWSNm01 = \"Sheet1\"\r\n    Let s_DistWSNm01 = \"Sheet4\"\r\n    \r\n    Set o_SrcWS04 = ThisWorkbook.Worksheets.Item(s_SrcWSNm01)\r\n'    Set o_DistWS04 = ThisWorkbook.Worksheets.Item(s_DistWSNm01)\r\n    \r\n    Let l_LastRow01 = o_SrcWS04.Cells(o_SrcWS04.Cells(Rows.Count, 1).Row, 1).End(xlUp).Row\r\n    \r\n    Let s_OneData01 = \"\"\r\n    Let s_ALLData01 = \"\"\r\n    \r\n    For l_LoopCnt01 = 2 To l_LastRow01\r\n    \r\n        If o_SrcWS04.Range(\"B\" & l_LoopCnt01) = 1 Then\r\n        \r\n            Let s_OneData01 = VCardDataMake01(s_SrcWSNm01, l_LoopCnt01)\r\n'            Debug.Print s_OneData01\r\n            \r\n'            Let l_DistLastRow01 = o_DistWS04.Cells(o_DistWS04.Cells(Rows.Count, 1).Row, 1).End(xlUp).Row\r\n'            Let l_DistNewRow01 = l_DistLastRow01 + 1\r\n'            Let o_DistWS04.Range(\"A\" & l_DistNewRow01).Value = s_OneData01\r\n            \r\n            Let s_ALLData01 = s_ALLData01 & s_OneData01 & vbCrLf\r\n'\r\n        Else\r\n        \r\n        End If\r\n    \r\n    Next l_LoopCnt01\r\n    \r\n    \r\n\r\n    \r\n    Call SetClipboard(s_ALLData01)\r\n    '\u2191\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u30c7\u30fc\u30bf\u3092\u9001\u308b\r\n \r\n    \r\nEnd Sub\r\n\r\n\r\nFunction VCardDataMake01(s_SrcWSNm01 As String, l_RowNum01 As Long) As String\r\n\r\n    Dim s_Sei01, s_Namae01 As String\r\n    Dim s_FrgnaSei01, s_FrgnaNamae01 As String\r\n    Dim s_KaisyameiEtc01 As String\r\n    Dim s_Yakusyoku01 As String\r\n    Dim s_KbnTel01, s_TelNum01 As String\r\n    Dim s_KbnTel02, s_TelNum02 As String\r\n    Dim s_KbnTel03, s_TelNum03 As String\r\n    Dim s_KbnMail01, s_MailAdr01 As String\r\n    Dim s_KbnMail02, s_MailAdr02 As String\r\n    Dim s_KbnMail03, s_MailAdr03 As String\r\n    Dim s_KbnMail04, s_MailAdr04 As String\r\n    Dim s_Note01 As String\r\n    Dim s_AdrKubun01 As String\r\n    Dim s_TymeBnti01, s_TyuSonAza01, s_Ken01, s_SiKu01 As String\r\n    Dim s_AdrKubun02 As String\r\n    Dim s_TymeBnti02, s_TyuSonAza02, s_Ken02, s_SiKu02 As String\r\n    Dim o_SrcWS01 As Worksheet\r\n    Dim o_DistWS01 As Worksheet\r\n    \r\n    Set o_SrcWS01 = Application.ThisWorkbook.Worksheets.Item(s_SrcWSNm01)\r\n    \r\n    Let s_Sei01 = \"C\"\r\n    Let s_Namae01 = \"D\"\r\n    Let s_FrgnaSei01 = \"E\"\r\n    Let s_FrgnaNamae01 = \"F\"\r\n    Let s_KaisyameiEtc01 = \"G\"\r\n    Let s_Yakusyoku01 = \"H\"\r\n    Let s_KbnTel01 = \"I\"\r\n    Let s_TelNum01 = \"J\"\r\n    Let s_KbnTel02 = \"K\"\r\n    Let s_TelNum02 = \"L\"\r\n    Let s_KbnTel03 = \"M\"\r\n    Let s_TelNum03 = \"N\"\r\n    Let s_KbnMail01 = \"O\"\r\n    Let s_MailAdr01 = \"P\"\r\n    Let s_KbnMail02 = \"Q\"\r\n    Let s_MailAdr02 = \"R\"\r\n    Let s_KbnMail03 = \"S\"\r\n    Let s_MailAdr03 = \"T\"\r\n    Let s_KbnMail04 = \"U\"\r\n    Let s_MailAdr04 = \"V\"\r\n    Let s_Note01 = \"W\"\r\n    Let s_AdrKubun01 = \"X\"\r\n    Let s_TymeBnti01 = \"Y\"\r\n    Let s_TyuSonAza01 = \"Z\"\r\n    Let s_Ken01 = \"AA\"\r\n    Let s_SiKu01 = \"AB\"\r\n    Let s_AdrKubun02 = \"AC\"\r\n    Let s_TymeBnti02 = \"AD\"\r\n    Let s_TyuSonAza02 = \"AE\"\r\n    Let s_Ken02 = \"AF\"\r\n    Let s_SiKu02 = \"AG\"\r\n\r\n    Dim l_CrntRow As Long\r\n'    Let l_CrntRow = 2\r\n    Let l_CrntRow = l_RowNum01\r\n    \r\n    \r\n    Dim vCrdData01 As String\r\n    \r\n    Let vCrdData01 = \"\"\r\n    \r\n    Let vCrdData01 = \"BEGIN:VCARD\" & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"VERSION:2.1\" & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"N:\" & o_SrcWS01.Range(s_Sei01 & l_CrntRow) & \";\" & o_SrcWS01.Range(s_Namae01 & l_CrntRow) & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"FN:\" & o_SrcWS01.Range(s_Sei01 & l_CrntRow) & \" \" & o_SrcWS01.Range(s_Namae01 & l_CrntRow) & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"SOUND;X-IRMC-N:\" & o_SrcWS01.Range(s_FrgnaSei01 & l_CrntRow) & \";\" & o_SrcWS01.Range(s_FrgnaNamae01 & l_CrntRow) & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"ORG:\" & o_SrcWS01.Range(s_KaisyameiEtc01 & l_CrntRow) & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"TITLE:\" & o_SrcWS01.Range(s_Yakusyoku01 & l_CrntRow) & vbCrLf\r\n    \r\n    \r\n    Let vCrdData01 = vCrdData01 & \"TEL;PREF;CELL:\" & o_SrcWS01.Range(s_TelNum01 & l_CrntRow) & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"TEL;WORK;VOICE:\" & o_SrcWS01.Range(s_TelNum02 & l_CrntRow) & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"TEL;HOME;VOICE:\" & o_SrcWS01.Range(s_TelNum03 & l_CrntRow) & vbCrLf\r\n    \r\n    Let vCrdData01 = vCrdData01 & \"EMAIL;PREF;CELL:\" & o_SrcWS01.Range(s_MailAdr01 & l_CrntRow) & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"EMAIL;PREF;WORK:\" & o_SrcWS01.Range(s_MailAdr02 & l_CrntRow) & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"EMAIL;PREF;HOME:\" & o_SrcWS01.Range(s_MailAdr03 & l_CrntRow) & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"EMAIL;PREF;INTERNET:\" & o_SrcWS01.Range(s_MailAdr04 & l_CrntRow) & vbCrLf\r\n    \r\n    Let vCrdData01 = vCrdData01 & \"NOTE;ENCODING=QUOTED-PRINTABLE:\" & o_SrcWS01.Range(s_Note01 & l_CrntRow) & vbCrLf\r\n    '\u6539\u884c\u3092\u5165\u308c\u305f\u3044\u6642\u306f\u3001\u300c;ENCODING=QUOTED-PRINTABLE\u300d\u3092\u631f\u3093\u3067\u300c\u6587\u8a00=0D=0A\u6587\u8a00=0D=0A\u6587\u8a00=0D=0A\u300d\u3068\u3084\u308b\u3068\r\n    '\u304a\u3058\u3044\u3061\u3083\u3093\u643a\u5e2f\u5074\u3067\u3001\u6539\u884c\u3055\u308c\u305f\u72b6\u614b\u3067\u8868\u793a\u3055\u308c\u307e\u3059\u3002\r\n    '\u4f8b \u2192 NOTE;ENCODING=QUOTED-PRINTABLE:\u793e\u9577=0D=0A\u4f1a\u9577=0D=0A\u90e8\u9577=0D=0A\u3042\u3042\u3042\u3042\r\n    \r\n    Let vCrdData01 = vCrdData01 & \"ADR;WORK:;;;\" & _\r\n                       o_SrcWS01.Range(s_TymeBnti01 & l_CrntRow) & \";\" & _\r\n                       o_SrcWS01.Range(s_TyuSonAza01 & l_CrntRow) & \";\" & _\r\n                       o_SrcWS01.Range(s_Ken01 & l_CrntRow) & \";\" & _\r\n                       o_SrcWS01.Range(s_SiKu01 & l_CrntRow) & vbCrLf\r\n                       \r\n    Let vCrdData01 = vCrdData01 & \"LABEL;WORK;ENCODING=QUOTED-PRINTABLE:\" & _\r\n                       o_SrcWS01.Range(s_TymeBnti01 & l_CrntRow) & \"=0D=0A\" & _\r\n                       o_SrcWS01.Range(s_TyuSonAza01 & l_CrntRow) & \";\" & _\r\n                       o_SrcWS01.Range(s_Ken01 & l_CrntRow) & \"=0D=0A\" & _\r\n                       o_SrcWS01.Range(s_SiKu01 & l_CrntRow) & vbCrLf\r\n                       \r\n                       \r\n                       \r\n    Let vCrdData01 = vCrdData01 & \"ADR;WORK:;;;\" & _\r\n                       o_SrcWS01.Range(s_TymeBnti02 & l_CrntRow) & \";\" & _\r\n                       o_SrcWS01.Range(s_TyuSonAza02 & l_CrntRow) & \";\" & _\r\n                       o_SrcWS01.Range(s_Ken02 & l_CrntRow) & \";\" & _\r\n                       o_SrcWS01.Range(s_SiKu02 & l_CrntRow) & vbCrLf\r\n    \r\n    Let vCrdData01 = vCrdData01 & \"LABEL;WORK;ENCODING=QUOTED-PRINTABLE:\" & _\r\n                       o_SrcWS01.Range(s_TymeBnti02 & l_CrntRow) & \"=0D=0A\" & _\r\n                       o_SrcWS01.Range(s_TyuSonAza02 & l_CrntRow) & \";\" & _\r\n                       o_SrcWS01.Range(s_Ken02 & l_CrntRow) & \"=0D=0A\" & _\r\n                       o_SrcWS01.Range(s_SiKu02 & l_CrntRow) & vbCrLf\r\n                       \r\n                       \r\n    Let vCrdData01 = vCrdData01 & \"REV:20080424T195243Z\" & vbCrLf\r\n    Let vCrdData01 = vCrdData01 & \"END:VCARD\"\r\n'    Debug.Print vCrdData01\r\n    \r\n    Let VCardDataMake01 = vCrdData01\r\n    \r\nEnd Function\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN><\/p>\n
\u25cf\u30af\u30ea\u30c3\u30d7\u30dc\u30fc\u30c9\u306b\u9001\u53d7\u4fe1\u3059\u308b\u305f\u3081\u306eAPI\uff0864bit\u300132bit\u3001\u517c\u7528\uff09
\nExcel\u306e\u300cDataObject\uff08Microsoft Forms 2.0 Object Library\uff09\u300d\u3092\u4f7f\u3046\u65b9\u6cd5\u304c\u3001
\n\u306a\u305c\u304b\u30c0\u30e1\u3060\u3063\u305f\uff08\u77ed\u3044\u6587\u5b57\u5217\u306f\u884c\u3051\u305f\u306e\u3067\u3059\u304c\uff09\u3001API\u306e\u307b\u3046\u304c\u78ba\u5b9f\u306a\u306e\u3067\u3053\u3061\u3089\u3067\u3084\u308a\u307e\u3057\u305f\u3002<\/p>\n
\r\n'\r\n'\r\nOption Explicit\r\n\r\n#If VBA7 And Win64 Then\r\nPrivate Declare PtrSafe Function OpenClipboard Lib \"user32.dll\" (ByVal hWnd As LongPtr) As Long\r\nPrivate Declare PtrSafe Function EmptyClipboard Lib \"user32.dll\" () As Long\r\nPrivate Declare PtrSafe Function CloseClipboard Lib \"user32.dll\" () As Long\r\nPrivate Declare PtrSafe Function IsClipboardFormatAvailable Lib \"user32.dll\" (ByVal wFormat As Long) As Long\r\nPrivate Declare PtrSafe Function GetClipboardData Lib \"user32.dll\" (ByVal wFormat As Long) As LongPtr\r\nPrivate Declare PtrSafe Function SetClipboardData Lib \"user32.dll\" (ByVal wFormat As Long, ByVal hMem As LongPtr) As Long\r\nPrivate Declare PtrSafe Function GlobalAlloc Lib \"kernel32.dll\" (ByVal wFlags As Long, ByVal dwBytes As LongLong) As LongPtr\r\nPrivate Declare PtrSafe Function GlobalLock Lib \"kernel32.dll\" (ByVal hMem As LongPtr) As LongPtr\r\nPrivate Declare PtrSafe Function GlobalUnlock Lib \"kernel32.dll\" (ByVal hMem As LongPtr) As Long\r\nPrivate Declare PtrSafe Function GlobalSize Lib \"kernel32.dll\" (ByVal hMem As LongPtr) As LongLong\r\nPrivate Declare PtrSafe Sub MoveMemory Lib \"kernel32.dll\" Alias \"RtlMoveMemory\" (ByVal Destination As LongPtr, ByVal Source As LongPtr, ByVal Length As LongLong)\r\n#Else\r\nPrivate Declare Function OpenClipboard Lib \"user32.dll\" (ByVal hWnd As Long) As Long\r\nPrivate Declare Function EmptyClipboard Lib \"user32.dll\" () As Long\r\nPrivate Declare Function CloseClipboard Lib \"user32.dll\" () As Long\r\nPrivate Declare Function IsClipboardFormatAvailable Lib \"user32.dll\" (ByVal wFormat As Long) As Long\r\nPrivate Declare Function GetClipboardData Lib \"user32.dll\" (ByVal wFormat As Long) As Long\r\nPrivate Declare Function SetClipboardData Lib \"user32.dll\" (ByVal wFormat As Long, ByVal hMem As Long) As Long\r\nPrivate Declare Function GlobalAlloc Lib \"kernel32.dll\" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long\r\nPrivate Declare Function GlobalLock Lib \"kernel32.dll\" (ByVal hMem As Long) As Long\r\nPrivate Declare Function GlobalUnlock Lib \"kernel32.dll\" (ByVal hMem As Long) As Long\r\nPrivate Declare Function GlobalSize Lib \"kernel32.dll\" (ByVal hMem As Long) As Long\r\nPrivate Declare Function lstrcpy Lib \"kernel32.dll\" Alias \"lstrcpyW\" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long\r\nPrivate Declare Sub MoveMemory Lib \"kernel32.dll\" Alias \"RtlMoveMemory\" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Long)\r\n#End If\r\n\r\nPublic Sub SetClipboard(sUniText As String)\r\n#If VBA7 And Win64 Then\r\n    Dim iStrPtr As LongPtr\r\n    Dim iLen As LongLong\r\n    Dim iLock As LongPtr\r\n#Else\r\n    Dim iStrPtr As Long\r\n    Dim iLen As Long\r\n    Dim iLock As Long\r\n#End If\r\n    Const GMEM_MOVEABLE As Long = &H2\r\n    Const GMEM_ZEROINIT As Long = &H40\r\n    Const CF_UNICODETEXT As Long = &HD\r\n    OpenClipboard 0&\r\n    EmptyClipboard\r\n    iLen = LenB(sUniText)\r\n    iStrPtr = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, iLen + 2&)\r\n    iLock = GlobalLock(iStrPtr)\r\n    MoveMemory iLock, StrPtr(sUniText), iLen\r\n    GlobalUnlock iStrPtr\r\n    SetClipboardData CF_UNICODETEXT, iStrPtr\r\n    CloseClipboard\r\nEnd Sub\r\n\r\nPublic Function GetClipboard() As String\r\n#If VBA7 And Win64 Then\r\n    Dim iStrPtr As LongPtr\r\n    Dim iLen As LongLong\r\n    Dim iLock As LongPtr\r\n#Else\r\n    Dim iStrPtr As Long\r\n    Dim iLen As Long\r\n    Dim iLock As Long\r\n#End If\r\n    Dim sUniText As String\r\n    Const CF_UNICODETEXT As Long = 13&\r\n    OpenClipboard 0&\r\n    If IsClipboardFormatAvailable(CF_UNICODETEXT) Then\r\n        iStrPtr = GetClipboardData(CF_UNICODETEXT)\r\n        If iStrPtr Then\r\n            iLock = GlobalLock(iStrPtr)\r\n            iLen = GlobalSize(iStrPtr)\r\n            sUniText = String$(CLng(iLen) \\ 2& - 1&, vbNullChar)\r\n            MoveMemory StrPtr(sUniText), iLock, LenB(sUniText)\r\n            GlobalUnlock iStrPtr\r\n        End If\r\n        GetClipboard = sUniText\r\n    End If\r\n    CloseClipboard\r\nEnd Function\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN><\/p>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"ExcelVBA \uff5e SoftBank\u306e\u300c\u30b7\u30f3\u30d7\u30eb\u30b9\u30de\u30db\uff08\u304a\u3058\u3044\u3061\u3083\u3093\u643a\u5e2f\uff1d\u30a2\u30f3\u30c9\u30ed\u30a4\u30c9\uff09\u300d\u306b\u3001CSV\u306b\u66f8\u304d\u51fa\u3055\u308c\u305f\u96fb\u8a71\u5e33\u30c7\u30fc\u30bf\u3092\u4e00\u62ec\u767b\u9332\u3059\u308b\u305f\u3081\u306e\u3001\u305d\u306e\u30c7\u30fc\u30bf\u4f5c\u6210\uff08vCard\u3001VCF\u4f5c\u6210\uff09\u3092\u3059\u308b\u65b9\u6cd5\u3002\uff08\u6e96\u5099\u3055\u3048\u3067\u304d\u308c\u3070 ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1948"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1948"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1948\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1948"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1948"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}