お世話になります。
Win7/エクセル２０１０/IE１１ 使用です
エクセルVBAよりIEでメルカリ（https://www.mercari.com/jp/）の
検索窓にテキスト文字を入力させたいのですが、入力できません。
Sub GoogleSearch()
Dim objIE As Object
Dim objInpTxt1 As HTMLInputElement
Dim objInpTxt2 As HTMLInputElement
Dim URL1 As String
Dim myKey As Variant
myKey = "あ"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.navigate "https://www.mercari.com/jp/"
Call IEWait(objIE)
Set objInpTxt1 = objIE.document.getElementsByName("keyword")(0)
objInpTxt1.Value = myKey ’テキストが入力されません
'objIE.document.forms(0).submit ’検索ボタンを押すコードが知りたいです
objIE.Quit
Set objIE = Nothing
End Sub
'IEを待機する関数
Function IEWait(ByRef objIE As Object)
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
End Function
--------
メルカリの検索窓のInputタグのtypeがtextではなくsearchとなっていますが
何か関係がありますでしょうか？
あと、できましたら
上記のコードでは、コメントアウトしている
検索ボタンをクリックするコードも教えてもらえると幸いです
<i>タグの意味がよくわかりません。
<i class="icon-search"></i>
お手数をおかけしますが
よろしくお願いします
お世話になります。
Win7/エクセル２０１０/IE１１ 使用です
エクセルVBAよりIEでメルカリ（https://www.mercari.com/jp/）の
検索窓にテキスト文字を入力させたいのですが、入力できません。
Sub GoogleSearch()
Dim objIE As Object
Dim objInpTxt1 As HTMLInputElement
Dim objInpTxt2 As HTMLInputElement
Dim URL1 As String
Dim myKey As Variant
myKey = "あ"
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.navigate "https://www.mercari.com/jp/"
Call IEWait(objIE)
Set objInpTxt1 = objIE.document.getElementsByName("keyword")(0)
objInpTxt1.Value = myKey ’テキストが入力されません
'objIE.document.forms(0).submit ’検索ボタンを押すコードが知りたいです
objIE.Quit
Set objIE = Nothing
End Sub
'IEを待機する関数
Function IEWait(ByRef objIE As Object)
Do While objIE.Busy = True Or objIE.readyState <> 4
DoEvents
Loop
End Function
--------
メルカリの検索窓のInputタグのtypeがtextではなくsearchとなっていますが
何か関係がありますでしょうか？
あと、できましたら
上記のコードでは、コメントアウトしている
検索ボタンをクリックするコードも教えてもらえると幸いです
<i>タグの意味がよくわかりません。
<i class="icon-search"></i>
お手数をおかけしますが
よろしくお願いします
http://bekkoame.okwave.jp/qa8979427.html
こちらのページを参考にしたのですが
カタカナのみ全角にしたいのですが
平仮名がカタカナになってしまいます。
正規表現と言うのがよくわからないので
コピペで使ってますが
Sub Sample2()
Dim myStr As String
Dim Match As Object, Matches As Object
Dim CW As String
With CreateObject("VBScript.RegExp")
.Pattern = "[\uFF61-\uFF9F]+" '---(1)
.Global = True
myStr = "あああイイイ"
If Len(myStr) > 0 Then
Set Matches = .Execute(myStr)
'マッチしたすべての文字列を置換
For Each Match In Matches
myStr = Replace(myStr, Match.Value, _
StrConv(Match.Value, vbWide)) '---(2)
Next Match
CW = myStr
End If
End With
End Sub
だと「あああ」は平仮名のままなのですが
myStr = "のののノノノ"
にすると、ひらがなの「ののの」が全角カタカナになってしまいます。
Sub test()
Call KanaJisF("あああイイイ")
End Sub
Function KanaJisF(ByVal sSrc As String) As String
Dim sTempW As String
Dim sTempN As String
Dim i As Long
' ' 全角カナに相当する文字コードを総当たりでループ
For i = -31852 To -31936 Step -1
sTempW = Chr(i) ' 全角カナ変数に格納
sTempN = StrConv(sTempW, vbNarrow) ' 半角カナに変換して変数に格納
' ' 半角カナ各文字が、文字列に含まれている場合、全角カナに置換
If InStr(1, sSrc, sTempN) Then sSrc = Replace(sSrc, sTempN, sTempW)
Next i
' ' 半角長音、文字列に含まれている場合、全角長音に置換
sTempN = Chr(176)
If InStr(sSrc, sTempN) Then sSrc = Replace(sSrc, sTempN, "ー")
KanaJisF = sSrc
End Function
こちらのコードは、「あああ」も全角カタカナになりました。
"のののノノノ"も同様です。
平仮名は平仮名のままにしたいのですが
そのような方法はありますか？
