Q&A
しつもんはなんでしょうか
VBAでツールを作成中です。
設定シート上のセル内にファイルパスやフォルダパスを指定して、
対象の加工等を行うツールです。
現在、設定シート内に指定されたパス内に全角の 「〜」が含まれています。
これを .Range("A1").valueで取得すると 半角の 「?」となるようです。
エクセルのオートコレクトや自動変換機能、ハイパーリンクの解除等試しましたが、やはり同じ結果となります。
設定シートに指定されたパスはエクスプローラー上からそのままコピーした内容です。
問題となっている「〜」ですが、設定シート上では
普通の〜と違い、少しぼやけるようなフォントとなっています。
文字自体の問題ではないかと考えますが、〜を消して別文字にする以外で何か対処法はありますでしょうか、ご教授よろしくお願いします。
追記します
大変申し訳ございませんが、問題となっている 「〜」をこちらに提示することができません。よろしくお願いします。
作成中のコードで問題が発生しているのでしたら、そのコードを提示してください。
回答2件
0
ベストアンサー
全角文字「〜」の文字コードは、何でしょうか？
UTF-8の「〜」をShift-JISで表示させたら 「?」になるはずです。
WindowsはShift-JISが標準の文字コードですから、ファイルパスの文字コードをShift-JISにすることで問題解決しそうに思います。
(※) 質問の『Excelのセル内フォルダパス取得時』が具体的に何をすることなのか判らないので、見当違いの可能性があります。
投稿2018/07/06 01:25
総合スコア6915
ご回答頂きまして、ありがとうございます。
不明瞭な内容でした。申し訳ございません。
セル内に記入されたパスの文字列を
VBAのコードによって取得しようと思っております。
文字コードを調査し、対応しようと思います。
0
解決済みですが、あえて。
問題となっている 「〜」ですが、Shift-JISの「～」ではなく、Unicodeにしかない文字ですね。
で、「VBAのコードによって取得しよう」と思ってどのように確認してどのようにうまく行かなかったのでしょうか。
VBA自体の文字コードはUnicodeです。（たしかOffice2000以降ぐらいから）
ただ、VBAエディターがShift-JISのままで、Unicode文字非対応です。（これが問題を複雑にしています。）
ですので、Unicodeにしかない文字をVBAエディター上にコピーペーストしたり、Debug.Printでイミディエイトに表示させたりすると、「?」となります。
ただし、VBAエディター上に表示させたりしなければ、問題なく使えます。
例えば、
A1セルに「〜」を入力しておいて、
vba
1Dim s As String 2 3s = Range("A1").Value 4Range("B1").Value = s
これを実行すればB1セルに問題なく表示されます。
ただし、一部の関数でUnicode非対応のものがあります。その場合は「?」と文字化けしてうまく行かない場合があります。その場合は、関数を自作するなりして対応することになります。
とりあえず、「VBAのコードによって取得しよう」としているコードを提示して、どの部分でうまくいかないか説明されると何かアドバイスできると思います。
投稿2018/07/06 05:06
総合スコア33715
あなたの回答
tips
プレビュー
