| |
いつもお世話になっております。下記御存じの方がいらっしゃいましたら、ご教示頂きますようお願いします。
■質問
関数の引数（ＢｙＶａｌ ｘｘｘ Ａｓ Ｓｔｒｉｎｇ）にＵＴＦ−８の文字列を渡す方法をご教示下さい。
尚、文字列の入力元はワークシートのセルの内容です。
■背景
ブラウザから手動でｈｔｔｐコマンド（※１）を叩く試験を、マクロ化しようとしています。
コマンド送信は出来るのですが、ブラウザから実行する場合とマクロから実行する場合で
文字コードに違いがあるようです。（※２）
試験内容を変えずにマクロ化する必要があるので困っています。
※１ 開発している装置に送るコマンドと戻りがｈｔｔｐ。
イメージ： ｈｔｔｐ：／／１０．１０．２．３／ｓｅｔ＿ｘｘｘ？ｘｘｘ＝１ とブラウザのＵＲＬ欄に入力すると、
ｒｅｓｕｌｔ＝ＯＫ と記載されたＷｅｂページが表示される。
※２ ブラウザのＵＲＬ欄に入力するとＵＴＦ−８で下記コマンドを実行
ｈｔｔｐ：／／１０．１０．２．３／ｓｅｔ＿ｙｙｙ？ｙｙｙ＝あいう （意味：パラメータｙｙｙに「あいう」を設定）
ｈｔｔｐ：／／１０．１０．２．３／ｇｅｔ＿ｙｙｙ （意味：パラメータｙｙｙを取得）
→ ブラウザから実行した場合は、 ｙｙｙ＝％ｅ３％８１％８２％ｅ３％８１％８４％ｅ３％８１％８６ が返る。（ＵＴＦ−８）
マクロから実行した場合は、 ｙｙｙ＝％８２％ａ０％８２％ａ２％８２％ａ４ が返る。（Ｓ−ＪＩＳ）
■補足
下記ＡＰＩを使用してｈｔｔｐコマンドを実行しています。
Ｐｒｉｖａｔｅ Ｄｅｃｌａｒｅ Ｆｕｎｃｔｉｏｎ ｈｔｔｐＯｐｅｎＲｅｑｕｅｓｔ ＿
Ｌｉｂ ”ｗｉｎｉｎｅｔ．ｄｌｌ” ＿
Ａｌｉａｓ ”ｈｔｔｐＯｐｅｎＲｅｑｕｅｓｔＡ” ＿
（ＢｙＶａｌ ｈＣｏｎｎｅｃｔ Ａｓ Ｌｏｎｇ ＿
， ＢｙＶａｌ ｌｐｓｚＶｅｒｂ Ａｓ Ｓｔｒｉｎｇ ＿
， ＢｙＶａｌ ｌｐｓｚＯｂｊｅｃｔＮａｍｅ Ａｓ Ｓｔｒｉｎｇ ＿ ← ここがＵＲＬ
， ＢｙＶａｌ ｌｐｓｚＶｅｒｓｉｏｎ Ａｓ Ｓｔｒｉｎｇ ＿
， ＢｙＶａｌ ｌｐｓｚＲｅｆｅｒｅｒ Ａｓ Ｓｔｒｉｎｇ ＿
， ＢｙＶａｌ ｌｐｓｚＡｃｃｅｐｔＴｙｐｅｓ Ａｓ Ｌｏｎｇ ＿
， ＢｙＶａｌ ｄｗＦｌａｇｓ Ａｓ Ｌｏｎｇ ＿
， ＢｙＶａｌ ｄｗＣｏｎｔｅｘｔ Ａｓ Ｌｏｎｇ） Ａｓ Ｌｏｎｇ
「ＥＲＲＯＲ：本文に禁止語句が含まれています。」
と表示されたので、全て全角に変換しています。
変換前は、英数は半角です。。
以上です。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
