-
-
Save ten9miq/9b5c550f17d9a06e015e9a35c8bdfd69 to your computer and use it in GitHub Desktop.
Sub SendHttpPost() | |
Dim xmlHttp As Object | |
Set xmlHttp = CreateObject("MSXML2.XMLHTTP") | |
Dim url As String | |
url = "ここに送信先のURLを入力" ' 送信先のURL | |
Dim postData As String | |
postData = "ここに送信するデータを入力" ' 送信するデータ | |
xmlHttp.Open "POST", url, False | |
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" | |
xmlHttp.send postData | |
Dim response As String | |
response = xmlHttp.responseText | |
MsgBox response ' レスポンスをメッセージボックスで表示 | |
' ブラウザでページを開く | |
Dim shell As Object | |
Set shell = CreateObject("WScript.Shell") | |
shell.Run url | |
End Sub |
=SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(
SUBSTITUTE(A1, " ", "%20"),
"&", "%26"),
"=", "%3D"),
"+", "%2B"),
"/", "%2F"),
"?", "%3F"),
"#", "%23"),
"%", "%25"),
",", "%2C"),
":", "%3A"),
";", "%3B"),
"@", "%40"),
"$", "%24"),
"!", "%21"),
"'", "%27"),
"(", "%28"),
")", "%29"),
"*", "%2A"),
"[", "%5B"),
"]", "%5D"),
CHAR(10), "%0A"),
CHAR(13), "%0D")
=IFERROR(INDEX($A$2:$A$10, SMALL(IF(ISNUMBER(SEARCH($A$2:$A$10, $B$1)), MATCH(ROW($A$2:$A$10), ROW($A$2:$A$10)), ""), ROW(1:1))), "")
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(
SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1, " ", "%20"), "!", "%21"), """", "%22"), "#", "%23"), "$", "%24"), "%", "%25"), "&", "%26"), "'", "%27"),
"(", "%28"), ")", "%29"), "*", "%2A"), "+", "%2B"), ",", "%2C"), "/", "%2F"), ":", "%3A"), ";", "%3B"), "<", "%3C"),
"=", "%3D"), ">", "%3E"), "?", "%3F"), "@", "%40"), "[", "%5B"), "", "%5C"), "]", "%5D"), "_", "%5F"), "~", "%7E"),
CHAR(10), "%0A"), CHAR(13), "%0A")
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A1, " ", "%20"), "!", "%21"), "#", "%23"), "$", "%24")