{"id":5129,"date":"2014-12-19T15:14:24","date_gmt":"2014-12-19T06:14:24","guid":{"rendered":"http:\/\/www.ka-net.org\/blog\/?p=5129"},"modified":"2014-12-19T15:14:24","modified_gmt":"2014-12-19T06:14:24","slug":"%e6%8c%87%e5%ae%9a%e3%81%97%e3%81%9f%e3%82%bb%e3%83%ab%e7%af%84%e5%9b%b2%e3%82%92utf-8%e3%82%84euc-jp%e7%ad%89%e3%81%ae%e3%83%86%e3%82%ad%e3%82%b9%e3%83%88%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab-2","status":"publish","type":"post","link":"https:\/\/www.ka-net.org\/blog\/?p=5129","title":{"rendered":"\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u7bc4\u56f2\u3092UTF-8\u3084EUC-JP\u7b49\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u51fa\u529b\u3059\u308bExcel\u30a2\u30c9\u30a4\u30f3"},"content":{"rendered":"

\u4ee5\u524d\u3053\u306e\u8a18\u4e8b<\/a>\u3067\u3001\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u7bc4\u56f2\u3092UTF-8\u3084EUC-JP\u7b49\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u51fa\u529b\u3059\u308bExcel\u30de\u30af\u30ed\u306e\u3053\u3068\u3092\u66f8\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u81ea\u5206\u3067\u3082\u610f\u5916\u3068\u5229\u7528\u3059\u308b\u6a5f\u4f1a\u304c\u591a\u304f\u3001\u305d\u306e\u90fd\u5ea6\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306b\u6e21\u3059\u5f15\u6570\u3092\u66f8\u304d\u63db\u3048\u305f\u308a\u3057\u3066\u3044\u307e\u3057\u305f\u3002<\/p>\n

\u3055\u3059\u304c\u306b\u6bce\u56de\u6bce\u56de\u30b3\u30fc\u30c9\u3092\u66f8\u304d\u63db\u3048\u308b\u306e\u304c\u9762\u5012\u81ed\u304f\u306a\u3063\u3066\u304d\u305f\u306e\u3067\u3001UI\u4e0a\u304b\u3089\u30aa\u30d7\u30b7\u30e7\u30f3\u3092\u6307\u5b9a\u3067\u304d\u308b\u3088\u3046\u306b\u3001\u4e0a\u8a18\u8a18\u4e8b\u306e\u30de\u30af\u30ed\u3092\u30a2\u30c9\u30a4\u30f3\u5316\u3059\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n

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

\u2192 \u30a2\u30c9\u30a4\u30f3\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9<\/a><\/p>\n

\u203b \u30a2\u30c9\u30a4\u30f3\u306e\u8a73\u3057\u3044\u8a2d\u5b9a\u65b9\u6cd5\u306f\u4e0a\u8a18\u30d5\u30a1\u30a4\u30eb\u540c\u68b1\u306e\u300creadme.pdf\u300d\u30d5\u30a1\u30a4\u30eb\u3092\u3054\u53c2\u7167\u304f\u3060\u3055\u3044\u3002<\/span><\/p>\n

\u25a0 \u4f7f\u3044\u65b9<\/h4>\n
    \n
  1. \u300c\u6587\u5b57\u30b3\u30fc\u30c9<\/span>\u300d\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u6307\u5b9a\u3057\u307e\u3059(Shift-JIS(\u6a19\u6e96)\u3001UTF-8\u3001UTF-16\u3001EUC-JP)\u3002<\/li>\n

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

  2. \u300c\u533a\u5207\u308a\u6587\u5b57<\/span>\u300d\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u3001\u5404\u9805\u76ee\u306e\u533a\u5207\u308a\u6587\u5b57\u3092\u6307\u5b9a\u3057\u307e\u3059(\u30bf\u30d6(\u6a19\u6e96)\u3001\u30ab\u30f3\u30de\u3001\u30b3\u30ed\u30f3\u3001\u30bb\u30df\u30b3\u30ed\u30f3\u3001\u30d0\u30fc\u30c6\u30a3\u30ab\u30eb\u30d0\u30fc\u3001\u534a\u89d2\u30b9\u30da\u30fc\u30b9\u3001\u5168\u89d2\u30b9\u30da\u30fc\u30b9)\u3002<\/li>\n

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

  3. \u300c\u6539\u884c\u6587\u5b57<\/span>\u300d\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u3001\u5404\u884c\u306e\u6539\u884c\u6587\u5b57\u3092\u6307\u5b9a\u3057\u307e\u3059(CRLF(\u6a19\u6e96)\u3001CR\u3001LF)\u3002<\/li>\n

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

  4. \u300c\u30bb\u30eb\u7bc4\u56f2\u3092\u30c6\u30ad\u30b9\u30c8\u4fdd\u5b58<\/span>\u300d\u30dc\u30bf\u30f3\u306e\u4e0b\u306b\u3042\u308b\u30e1\u30cb\u30e5\u30fc\u304b\u3089\u3001\u5404\u9805\u76ee\u3092\u300c"\u300d\u3067\u56f2\u3080\u304b\u3069\u3046\u304b\u6307\u5b9a\u3057\u307e\u3059(\u6a19\u6e96\u3067\u306f\u5404\u9805\u76ee\u3092\u300c"\u300d\u3067\u56f2\u307f\u307e\u3059)\u3002<\/li>\n

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

  5. \u300c\u30bb\u30eb\u7bc4\u56f2\u3092\u30c6\u30ad\u30b9\u30c8\u4fdd\u5b58<\/span>\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3057\u3066\u3001\u9078\u629e\u4e2d\u306e\u30bb\u30eb\u7bc4\u56f2\u3092\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3057\u307e\u3059(\u6a19\u6e96\u3067\u306fCSV\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3057\u307e\u3059)\u3002<\/li>\n

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

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

    \"RangeToText_08\"<\/a>\n<\/ol>\n

    \u4e0a\u8a18\u306e\u901a\u308a\u3001\u30a2\u30c9\u30a4\u30f3\u5316\u3057\u305f\u304a\u304b\u3052\u3067\u5927\u5206\u697d\u306b\u30bb\u30eb\u7bc4\u56f2\u3092\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3067\u304d\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n

    \u81ea\u5206\u7528\u306b\u9069\u5f53\u306b\u4f5c\u3063\u305f\u30a2\u30c9\u30a4\u30f3\u306a\u306e\u3067\u3001\u52d5\u4f5c\u306f\u4e0d\u5b8c\u5168\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u8208\u5473\u304c\u3042\u308b\u65b9\u306f\u662f\u975e\u304a\u8a66\u3057\u304f\u3060\u3055\u3044\u3002<\/p>\n

    \u3061\u306a\u307f\u306b\u3001\u672c\u30a2\u30c9\u30a4\u30f3\u306e\u30b3\u30fc\u30c9\u306f\u4e0b\u8a18\u306e\u3088\u3046\u306b\u306a\u3063\u3066\u3044\u307e\u3059\u3002<\/p>\n

    \u25a0 \u30ea\u30dc\u30f3XML<\/h4>\n
    <?xml version="1.0" encoding="utf-8"?>\r\n<customUI onLoad="rbnRangeToText_onLoad" xmlns="http:\/\/schemas.microsoft.com\/office\/2006\/01\/customui">\r\n  <ribbon>\r\n    <tabs>\r\n      <tab idMso="TabHome">\r\n        <group id="grpRangeToText" label="\u30bb\u30eb\u7bc4\u56f2\u3092\u30c6\u30ad\u30b9\u30c8\u4fdd\u5b58">\r\n          <splitButton id="sbnRangeToText" size="large">\r\n            <button id="btnRangeToText" imageMso="SaveSelectionToTableOfContentsGallery" label="\u30bb\u30eb\u7bc4\u56f2\u3092\u30c6\u30ad\u30b9\u30c8\u4fdd\u5b58" screentip="\u30bb\u30eb\u7bc4\u56f2\u3092\u30c6\u30ad\u30b9\u30c8\u4fdd\u5b58" supertip="\u9078\u629e\u4e2d\u306e\u30bb\u30eb\u7bc4\u56f2\u3092\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u4fdd\u5b58\u3057\u307e\u3059\u3002" onAction="btnRangeToText_onAction" \/>\r\n            <menu id="mnuQuotes" supertip="\u5404\u9805\u76ee\u3092[&quot;]\u3067\u56f2\u3080\u304b\u3069\u3046\u304b\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6a19\u6e96\u3067\u306f\u5404\u9805\u76ee\u3092[&quot;]\u3067\u56f2\u307f\u307e\u3059\u3002">\r\n              <checkBox id="cbxQuotes1" label="\u5404\u9805\u76ee\u3092[&quot;]\u3067\u56f2\u307f\u307e\u3059\u3002" screentip="[&quot;]\u56f2\u307f" tag="Quotes" supertip="\u5404\u9805\u76ee\u3092[&quot;]\u3067\u56f2\u307f\u307e\u3059\u3002" getPressed="cbxQuotes_getPressed" onAction="cbxQuotes_onAction" \/>\r\n              <checkBox id="cbxQuotes2" label="\u5404\u9805\u76ee\u3092[&quot;]\u3067\u56f2\u307f\u307e\u305b\u3093\u3002" screentip="[&quot;]\u56f2\u307f" tag="NoQuotes" supertip="\u5404\u9805\u76ee\u3092[&quot;]\u3067\u56f2\u307f\u307e\u305b\u3093\u3002" getPressed="cbxQuotes_getPressed" onAction="cbxQuotes_onAction" \/>\r\n            <\/menu>\r\n          <\/splitButton>\r\n          <menu id="mnuCharacterSet" imageMso="CharacterBorder" screentip="\u6587\u5b57\u30b3\u30fc\u30c9" supertip="\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u6587\u5b57\u30b3\u30fc\u30c9\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6a19\u6e96\u306f\u300cShift-JIS\u300d\u3067\u3059\u3002" itemSize="normal" getLabel="mnuCharacterSet_getLabel">\r\n            <checkBox id="cbxCharacterSet1" label="Shift-JIS" screentip="\u6587\u5b57\u30b3\u30fc\u30c9" tag="Shift-JIS" supertip="Shift-JIS" getPressed="cbxCharacterSet_getPressed" onAction="cbxCharacterSet_onAction" \/>\r\n            <checkBox id="cbxCharacterSet2" label="UTF-8" screentip="\u6587\u5b57\u30b3\u30fc\u30c9" tag="UTF-8" supertip="UTF-8" getPressed="cbxCharacterSet_getPressed" onAction="cbxCharacterSet_onAction" \/>\r\n            <checkBox id="cbxCharacterSet3" label="UTF-16" screentip="\u6587\u5b57\u30b3\u30fc\u30c9" tag="UTF-16" supertip="UTF-16" getPressed="cbxCharacterSet_getPressed" onAction="cbxCharacterSet_onAction" \/>\r\n            <checkBox id="cbxCharacterSet4" label="EUC-JP" screentip="\u6587\u5b57\u30b3\u30fc\u30c9" tag="EUC-JP" supertip="EUC-JP" getPressed="cbxCharacterSet_getPressed" onAction="cbxCharacterSet_onAction" \/>\r\n          <\/menu>\r\n          <menu id="mnuSeparator" imageMso="StylesStyleSeparator" screentip="\u533a\u5207\u308a\u6587\u5b57" supertip="\u533a\u5207\u308a\u6587\u5b57\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6a19\u6e96\u306f\u300c\u30bf\u30d6\u300d\u3067\u3059\u3002" itemSize="normal" getLabel="mnuSeparator_getLabel">\r\n            <checkBox id="cbxSeparator1" label="\u30bf\u30d6" screentip="\u533a\u5207\u308a\u6587\u5b57" tag="\u30bf\u30d6" supertip="\u30bf\u30d6" getPressed="cbxSeparator_getPressed" onAction="cbxSeparator_onAction" \/>\r\n            <checkBox id="cbxSeparator2" label="," screentip="\u533a\u5207\u308a\u6587\u5b57" tag="," supertip="\u30ab\u30f3\u30de" getPressed="cbxSeparator_getPressed" onAction="cbxSeparator_onAction" \/>\r\n            <checkBox id="cbxSeparator3" label=":" screentip="\u533a\u5207\u308a\u6587\u5b57" tag=":" supertip="\u30b3\u30ed\u30f3" getPressed="cbxSeparator_getPressed" onAction="cbxSeparator_onAction" \/>\r\n            <checkBox id="cbxSeparator4" label=";" screentip="\u533a\u5207\u308a\u6587\u5b57" tag=";" supertip="\u30bb\u30df\u30b3\u30ed\u30f3" getPressed="cbxSeparator_getPressed" onAction="cbxSeparator_onAction" \/>\r\n            <checkBox id="cbxSeparator5" label="|" screentip="\u533a\u5207\u308a\u6587\u5b57" tag="|" supertip="\u30d0\u30fc\u30c6\u30a3\u30ab\u30eb\u30d0\u30fc" getPressed="cbxSeparator_getPressed" onAction="cbxSeparator_onAction" \/>\r\n            <checkBox id="cbxSeparator6" label="\u534a\u89d2\u30b9\u30da\u30fc\u30b9" screentip="\u533a\u5207\u308a\u6587\u5b57" tag=" " supertip="\u534a\u89d2\u30b9\u30da\u30fc\u30b9" getPressed="cbxSeparator_getPressed" onAction="cbxSeparator_onAction" \/>\r\n            <checkBox id="cbxSeparator7" label="\u5168\u89d2\u30b9\u30da\u30fc\u30b9" screentip="\u533a\u5207\u308a\u6587\u5b57" tag="\u3000" supertip="\u5168\u89d2\u30b9\u30da\u30fc\u30b9" getPressed="cbxSeparator_getPressed" onAction="cbxSeparator_onAction" \/>\r\n          <\/menu>\r\n          <menu id="mnuLineSeparator" imageMso="ParagraphMarks" screentip="\u6539\u884c\u6587\u5b57" supertip="\u6539\u884c\u6587\u5b57\u3092\u6307\u5b9a\u3057\u307e\u3059\u3002\u6a19\u6e96\u306f\u300cCRLF\u300d\u3067\u3059\u3002" itemSize="normal" getLabel="mnuLineSeparator_getLabel">\r\n            <checkBox id="cbxLineSeparator1" label="CRLF" screentip="\u6539\u884c\u6587\u5b57" tag="-1" supertip="CRLF" getPressed="cbxLineSeparator_getPressed" onAction="cbxLineSeparator_onAction" \/>\r\n            <checkBox id="cbxLineSeparator2" label="CR" screentip="\u6539\u884c\u6587\u5b57" tag="13" supertip="CR" getPressed="cbxLineSeparator_getPressed" onAction="cbxLineSeparator_onAction" \/>\r\n            <checkBox id="cbxLineSeparator3" label="LF" screentip="\u6539\u884c\u6587\u5b57" tag="10" supertip="LF" getPressed="cbxLineSeparator_getPressed" onAction="cbxLineSeparator_onAction" \/>\r\n          <\/menu>\r\n        <\/group>\r\n      <\/tab>\r\n    <\/tabs>\r\n  <\/ribbon>\r\n<\/customUI><\/pre>\n
    \u25a0 \u6a19\u6e96\u30e2\u30b8\u30e5\u30fc\u30eb<\/h4>\n
    Option Explicit\r\n\r\nPrivate myRibbon As Office.IRibbonUI\r\nPrivate chkedQuotesID As String\r\nPrivate chkedCharsetID As String\r\nPrivate chkedSeparatorID As String\r\nPrivate chkedLineSeparatorID As String\r\nPrivate quotes As Boolean\r\nPrivate charset As String\r\nPrivate separator As String\r\nPrivate lineSeparator As Long\r\n\r\nPublic Sub rbnRangeToText_onLoad(ribbon As IRibbonUI)\r\n  '\u521d\u671f\u5316\r\n  Set myRibbon = ribbon\r\n  chkedQuotesID = "cbxQuotes1" '["]\u56f2\u307fON\r\n  quotes = True\r\n  chkedCharsetID = "cbxCharacterSet1" 'Shift-JIS\r\n  charset = "Shift-JIS"\r\n  chkedSeparatorID = "cbxSeparator1" '\u30bf\u30d6\r\n  separator = vbTab\r\n  chkedLineSeparatorID = "cbxLineSeparator1" 'CRLF\r\n  lineSeparator = -1\r\nEnd Sub\r\n\r\nPublic Sub btnRangeToText_onAction(control As IRibbonControl)\r\n  Dim filePath As Variant\r\n  Dim bookName As String\r\n  \r\n  If LCase(TypeName(Application.Selection)) <> "range" Then\r\n    MsgBox "\u30bb\u30eb\u7bc4\u56f2\u3092\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\u3002", vbExclamation + vbSystemModal\r\n    Exit Sub\r\n  End If\r\n  \r\n  bookName = Application.ActiveWorkbook.Name\r\n  If InStr(bookName, ".") Then bookName = Left(bookName, InStrRev(bookName, ".", -1, vbTextCompare) - 1)\r\n  filePath = Application.GetSaveAsFilename( _\r\n               InitialFileName:=bookName, _\r\n               FileFilter:="CSV \u30d5\u30a1\u30a4\u30eb (*.csv),*.csv," & _\r\n                           "TSV \u30d5\u30a1\u30a4\u30eb (\u30bf\u30d6\u533a\u5207\u308a) (*.tsv),*.tsv," & _\r\n                           "\u30c6\u30ad\u30b9\u30c8 \u30d5\u30a1\u30a4\u30eb (*.txt),*.txt," & _\r\n                           "\u3059\u3079\u3066\u306e\u30d5\u30a1\u30a4\u30eb (*.*),*.*", _\r\n               FilterIndex:=1, _\r\n               Title:="\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u4fdd\u5b58\u5148\u6307\u5b9a")\r\n  If filePath <> False Then\r\n    'MsgBox filePath & vbCrLf & charset & vbCrLf & separator & vbCrLf & lineSeparator & vbCrLf & quotes '\u78ba\u8a8d\u7528\r\n    RangeToText target_range:=Application.Selection, _\r\n                file_path:=filePath, _\r\n                character_set:=charset, _\r\n                separator:=separator, _\r\n                line_separator:=lineSeparator, _\r\n                flg_quotes:=quotes\r\n    MsgBox "\u51e6\u7406\u304c\u7d42\u4e86\u3057\u307e\u3057\u305f\u3002", vbInformation + vbSystemModal\r\n  End If\r\nEnd Sub\r\n\r\nPublic Sub mnuCharacterSet_getLabel(control As IRibbonControl, ByRef returnedVal)\r\n  returnedVal = "\u6587\u5b57\u30b3\u30fc\u30c9\uff1a" & charset\r\nEnd Sub\r\n\r\nPublic Sub mnuSeparator_getLabel(control As IRibbonControl, ByRef returnedVal)\r\n  Select Case separator\r\n    Case vbTab: returnedVal = "\u533a\u5207\u308a\u6587\u5b57\uff1a\u30bf\u30d6"\r\n    Case " ": returnedVal = "\u533a\u5207\u308a\u6587\u5b57\uff1a\u534a\u89d2\u30b9\u30da\u30fc\u30b9"\r\n    Case "\u3000": returnedVal = "\u533a\u5207\u308a\u6587\u5b57\uff1a\u5168\u89d2\u30b9\u30da\u30fc\u30b9"\r\n    Case Else: returnedVal = "\u533a\u5207\u308a\u6587\u5b57\uff1a" & separator\r\n  End Select\r\nEnd Sub\r\n\r\nPublic Sub mnuLineSeparator_getLabel(control As IRibbonControl, ByRef returnedVal)\r\n  Select Case lineSeparator\r\n    Case -1: returnedVal = "\u6539\u884c\u6587\u5b57\uff1aCRLF"\r\n    Case 13: returnedVal = "\u6539\u884c\u6587\u5b57\uff1aCR"\r\n    Case 10: returnedVal = "\u6539\u884c\u6587\u5b57\uff1aLF"\r\n    Case Else: returnedVal = "\u6539\u884c\u6587\u5b57\uff1a" & lineSeparator\r\n  End Select\r\nEnd Sub\r\n\r\nPublic Sub cbxQuotes_getPressed(control As IRibbonControl, ByRef returnedVal)\r\n  Select Case control.id\r\n    Case chkedQuotesID: returnedVal = True\r\n    Case Else: returnedVal = False\r\n  End Select\r\nEnd Sub\r\n\r\nPublic Sub cbxCharacterSet_getPressed(control As IRibbonControl, ByRef returnedVal)\r\n  Select Case control.id\r\n    Case chkedCharsetID: returnedVal = True\r\n    Case Else: returnedVal = False\r\n  End Select\r\nEnd Sub\r\n\r\nPublic Sub cbxSeparator_getPressed(control As IRibbonControl, ByRef returnedVal)\r\n  Select Case control.id\r\n    Case chkedSeparatorID: returnedVal = True\r\n    Case Else: returnedVal = False\r\n  End Select\r\nEnd Sub\r\n\r\nPublic Sub cbxLineSeparator_getPressed(control As IRibbonControl, ByRef returnedVal)\r\n  Select Case control.id\r\n    Case chkedLineSeparatorID: returnedVal = True\r\n    Case Else: returnedVal = False\r\n  End Select\r\nEnd Sub\r\n\r\nPublic Sub cbxQuotes_onAction(control As IRibbonControl, pressed As Boolean)\r\n  Dim i As Long\r\n  \r\n  chkedQuotesID = control.id\r\n  Select Case control.Tag\r\n    Case "Quotes": quotes = True\r\n    Case "NoQuotes": quotes = False\r\n    Case Else: quotes = True\r\n  End Select\r\n  'MsgBox chkedQuotesID & vbCrLf & "\u300c" & quotes & "\u300d" & vbCrLf & pressed '\u78ba\u8a8d\u7528\r\n  \r\n  '\u30ea\u30dc\u30f3\u66f4\u65b0\r\n  For i = 1 To 2\r\n    myRibbon.InvalidateControl "cbxQuotes" & CStr(i)\r\n  Next\r\nEnd Sub\r\n\r\nPublic Sub cbxCharacterSet_onAction(control As IRibbonControl, pressed As Boolean)\r\n  Dim i As Long\r\n  \r\n  chkedCharsetID = control.id\r\n  charset = control.Tag\r\n  'MsgBox chkedCharsetID & vbCrLf & charset & vbCrLf & pressed '\u78ba\u8a8d\u7528\r\n  \r\n  '\u30ea\u30dc\u30f3\u66f4\u65b0\r\n  For i = 1 To 4\r\n    myRibbon.InvalidateControl "cbxCharacterSet" & CStr(i)\r\n  Next\r\n  myRibbon.InvalidateControl "mnuCharacterSet"\r\nEnd Sub\r\n\r\nPublic Sub cbxSeparator_onAction(control As IRibbonControl, pressed As Boolean)\r\n  Dim i As Long\r\n  \r\n  chkedSeparatorID = control.id\r\n  Select Case control.Tag\r\n    Case "\u30bf\u30d6": separator = vbTab\r\n    Case Else: separator = control.Tag\r\n  End Select\r\n  'MsgBox chkedSeparatorID & vbCrLf & "\u300c" & separator & "\u300d" & vbCrLf & pressed '\u78ba\u8a8d\u7528\r\n  \r\n  '\u30ea\u30dc\u30f3\u66f4\u65b0\r\n  For i = 1 To 7\r\n    myRibbon.InvalidateControl "cbxSeparator" & CStr(i)\r\n  Next\r\n  myRibbon.InvalidateControl "mnuSeparator"\r\nEnd Sub\r\n\r\nPublic Sub cbxLineSeparator_onAction(control As IRibbonControl, pressed As Boolean)\r\n  Dim i As Long\r\n  \r\n  chkedLineSeparatorID = control.id\r\n  lineSeparator = CLng(control.Tag)\r\n  'MsgBox chkedLineSeparatorID & vbCrLf & "\u300c" & lineSeparator & "\u300d" & vbCrLf & pressed '\u78ba\u8a8d\u7528\r\n  \r\n  '\u30ea\u30dc\u30f3\u66f4\u65b0\r\n  For i = 1 To 3\r\n    myRibbon.InvalidateControl "cbxLineSeparator" & CStr(i)\r\n  Next\r\n  myRibbon.InvalidateControl "mnuLineSeparator"\r\nEnd Sub\r\n\r\nPrivate Sub RangeToText(ByVal target_range As Excel.Range, _\r\n                        ByVal file_path As String, _\r\n                        ByVal character_set As String, _\r\n                        Optional ByVal separator As String = vbTab, _\r\n                        Optional ByVal line_separator As Long = -1, _\r\n                        Optional ByVal flg_quotes As Boolean = True)\r\n  '\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u7bc4\u56f2\u3092\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u51fa\u529b\r\n  '----------------------------------------\r\n  'target_range:\u51fa\u529b\u5bfe\u8c61\u30bb\u30eb\u7bc4\u56f2\r\n  'file_path:\u51fa\u529b\u5148\u306e\u30d5\u30a9\u30eb\u30c0\u30d1\u30b9\r\n  'character_set:\u6587\u5b57\u30bb\u30c3\u30c8(HKEY_CLASSES_ROOT\\MIME\\Database\\Charset \u53c2\u7167)\r\n  'separator:\u533a\u5207\u308a\u6587\u5b57\r\n  'line_separator:\u884c\u533a\u5207\u308a\u6587\u5b57(adCR:13, adCRLF:-1, adLF:10)\r\n  'flg_quotes:["]\u3067\u56f2\u3080\u304b\u3069\u3046\u304b\u3092\u6307\u5b9a\r\n  Dim str As String\r\n  Dim i As Long, j As Long\r\n  Const adTypeText = 2\r\n  Const adWriteChar = 0\r\n  Const adWriteLine = 1\r\n  Const adSaveCreateOverWrite = 2\r\n  \r\n  On Error Resume Next\r\n  With CreateObject("ADODB.Stream")\r\n    .Type = adTypeText\r\n    .charset = character_set\r\n    .lineSeparator = line_separator\r\n    .Open\r\n    For i = 1 To target_range.Rows.Count\r\n      For j = 1 To target_range.Columns.Count\r\n        If j = 1 Then\r\n          If flg_quotes = True Then\r\n            str = ChrW(&H22) & target_range(i, j) & ChrW(&H22)\r\n          Else\r\n            str = target_range(i, j)\r\n          End If\r\n        Else\r\n          If flg_quotes = True Then\r\n            str = str & separator & ChrW(&H22) & target_range(i, j).Value & ChrW(&H22)\r\n          Else\r\n            str = str & separator & target_range(i, j).Value\r\n          End If\r\n        End If\r\n      Next\r\n      If i = target_range.Rows.Count Then\r\n        .WriteText str, adWriteChar\r\n      Else\r\n        .WriteText str, adWriteLine\r\n      End If\r\n    Next\r\n    .SaveToFile file_path, adSaveCreateOverWrite\r\n    .Close\r\n  End With\r\n  If Err.Number <> 0 Then\r\n    MsgBox "Err:" & Err.Description, vbCritical + vbSystemModal\r\n    Exit Sub\r\n  End If\r\n  On Error GoTo 0\r\nEnd Sub<\/pre>\n","protected":false},"excerpt":{"rendered":"\u4ee5\u524d\u3053\u306e\u8a18\u4e8b\u3067\u3001\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u7bc4\u56f2\u3092UTF-8\u3084EUC-JP\u7b49\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u51fa\u529b\u3059\u308bExcel\u30de\u30af\u30ed\u306e\u3053\u3068\u3092\u66f8\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u81ea\u5206\u3067\u3082\u610f\u5916\u3068\u5229\u7528\u3059\u308b\u6a5f\u4f1a\u304c\u591a\u304f\u3001\u305d\u306e\u90fd\u5ea6\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306b\u6e21\u3059\u5f15\u6570\u3092\u66f8\u304d\u63db\u3048\u305f\u308a\u3057\u3066\u3044\u307e\u3057 […]","protected":false},"author":1,"featured_media":7130,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_feature_clip_id":0,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"\u81ea\u5206\u7528\u306b\u4f5c\u3063\u305f\u30a2\u30c9\u30a4\u30f3\u3092\u516c\u958b\u3002 [\u6307\u5b9a\u3057\u305f\u30bb\u30eb\u7bc4\u56f2\u3092UTF-8\u3084EUC-JP\u7b49\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3068\u3057\u3066\u51fa\u529b\u3059\u308bExcel\u30a2\u30c9\u30a4\u30f3]","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":true,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2},"jetpack_post_was_ever_published":false},"categories":[4,48,1,61],"tags":[],"class_list":["post-5129","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-office","category-excel-office","category-ribbon","category-software"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t\n\t\t