Excel VBAã§UTF-8ã®ãƒ†ã‚ストファイルを扱ã†(ADODB.Stream) - 百年ã®æœªèªè‡ªåˆ†ã«ã¨ã£ã¦ã®è¦šæ›¸ã§ã™ã€‚ Excel VBAã§ãƒ†ã‚ストファイルを書ã出ã™ãŸã‚ã«ã€ã“ã‚“ãªãƒžã‚¯ãƒã‚’組んã§ã„ã¾ã—ãŸã€‚ Dim n As Long n = FreeFile Open "C:\sample.html" For Output As #n Print #n, "テã‚スト" Close #nã‘ã‚Œã©ã€ã“ã®æ–¹æ³•ã ã¨ã€ã§ãã‚ãŒã£ãŸãƒ†ã‚ストファイルã®æ–‡å—コードã¯Shift-JISã«ãªã‚Šã¾ã™ã€‚ Excelã®ãƒ‡ãƒ¼ã‚¿ã‹ã‚‰å¤§é‡ã«HTMLを生æˆã™ã‚‹VBAを組もã†ã¨æ€ã£ã¦ã„ãŸã®ã§ã™ãŒã€ä»Šå›žä½œæˆã—ãŸã„ファイルã®æ–‡å—コードã¯UTF-8。 テã‚ストファイルを作æˆã—ãŸå¾Œã«ã€æ–‡å—コードを変æ›ã™ã‚‹ã¨ã„ã†æ‰‹ã‚‚考ãˆã¾ã—ãŸãŒã€ã²ã¨æ‰‹é–“増ãˆã¦ã—ã¾ã„ã¾ã™ã€‚ã©ã†ã«ã‹ãªã‚‰ã‚“ã‹ã¨æ¤œç´¢ã—ã¦ã¿ãŸã¨ã“ã‚ã€VBAã§æ–‡å—コードを指定ã—ã¦ãƒ†ã‚ストファイルをèªã¿æ›¸ãã™ã‚‹ã«ã¯ADODB.Streamを使ãˆã°ã‚ˆã„ã¨ã„ã†ã“ã¨ãŒåˆ†ã‹ã‚Šã¾ã—ãŸã€‚ [å‚考ã«ã—ãŸ
{{#tags}}- {{label}}
{{/tags}}