例えばaaaがある列を探し、その列番号は４で列文字がDですが、
列番号から列文字をvbaで取得する方法はありますか？
Sub Sample()
Dim i As Long
Dim Colmoji As String
i = Rows(1).Find(What:="aaa", LookAt:=xlWhole).Column
Colmoji = i 'ここで列文字に変換したい
MsgBox i & "の列文字は" & Colmoji & "です"
End Sub
このようなコードを作ってみたのですが列文字に変換する方法がわかりません。
例えばaaaがある列を探し、その列番号は４で列文字がDですが、
列番号から列文字をvbaで取得する方法はありますか？
Sub Sample()
Dim i As Long
Dim Colmoji As String
i = Rows(1).Find(What:="aaa", LookAt:=xlWhole).Column
Colmoji = i 'ここで列文字に変換したい
MsgBox i & "の列文字は" & Colmoji & "です"
End Sub
このようなコードを作ってみたのですが列文字に変換する方法がわかりません。
一つのウインドウで二つのタブを開いたとき、
二つ目のタブの情報をウォッチウインドウで確認することはできないのですか？
例えば、
Sub Sample()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate "http://www.yahoo.co.jp/"
objIE.Navigate2 "http://www.google.co.jp/", 2048
Set objIE = Nothing
End Sub
この状況でobjIEをウォッチウインドウで見た時に
Set objIE = Nothingで処理を中断しても
Navigate2で開いたhttp://www.google.co.jp/の情報はobjIEに格納されてないのでしょうか？
ウォッチウインドウを見てもhttp://www.yahoo.co.jp/の情報しか見当たりません。
target="_blank" で開かれるリンクで、開いた先が完全に表示されるまで待つにはどうすればよいでしょう？
例えば
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Sub Sample()
Dim objIE As Object
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.navigate "http://www.tagindex.com/html_tag/link/a_target.html"
'これは1ページ目を表示させるまで待つ
Do Until objIE.Busy = False And objIE.readyState = 4: Loop
For i = 0 To objIE.document.Links.Length - 1
If objIE.document.Links(i).innerText = "新しいウィンドウで表示します" Then
objIE.document.Links(i).Click
'ここで2ページ目を表示させるまで待つには？
Exit For
End If
Next
Set objIE = Nothing
End Sub
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
という状態で、 objIE.document.Links(i).Clickを実行した後の表示を待つにはどうすればいいでしょう？
（http://www.tagindex.com/html_tag/link/target_example.htmlのページです）
objIEの値は、"http://www.tagindex.com/html_tag/link/a_target.html"のままなので、
新しくobjIEを作ればいいのでしょうか？
ご回答よろしくお願いします。
ｖｂａでｙａｈｏｏメールの受信メールの一覧を読み取る方法はありますか？
Sub test()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://login.yahoo.co.jp/config/login?logout=1" 'ログアウトする
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Navigate "https://login.yahoo.co.jp/config/login?.src=&.pd=&.done=http%3A//www.yahoo.co.jp/"
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Document.all.UserName.Value = ""
objIE.Document.all.passwd.Value = ""
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Document.Forms(0).submit
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Navigate "http://jp.mc1003.mail.yahoo.co.jp/mc/welcome?.rand=6i0loli2li7s6&noFlush&YY=940152127#_pg=showFolder&fid=Inbox&order=down&tt=84&pSize=25&.jsrand=6381767"
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
Debug.Print objIE.Document.Body.innerHTML
Set objIE = Nothing
End Sub
これでログインまではできるのですが、その後のソースを読み取っても受信メールの一覧は読み取れません。
ログイン後に、ｖｂａではなく手動でＷＥＢクエリをやってソースに書き出してみましたがやはり受信メールだけは読み取れません。
ＷＥＢクエリならフォルダの一覧は読み取れました。
ＶＢＡで読み取るのは不可能なのでしょうか？
ｖｂａでｙａｈｏｏメールの受信メールの一覧を読み取る方法はありますか？
Sub test()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://login.yahoo.co.jp/config/login?logout=1" 'ログアウトする
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Navigate "https://login.yahoo.co.jp/config/login?.src=&.pd=&.done=http%3A//www.yahoo.co.jp/"
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Document.all.UserName.Value = ""
objIE.Document.all.passwd.Value = ""
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Document.Forms(0).submit
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
objIE.Navigate "http://jp.mc1003.mail.yahoo.co.jp/mc/welcome?.rand=6i0loli2li7s6&noFlush&YY=940152127#_pg=showFolder&fid=Inbox&order=down&tt=84&pSize=25&.jsrand=6381767"
Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents
Loop
Debug.Print objIE.Document.Body.innerHTML
Set objIE = Nothing
End Sub
これでログインまではできるのですが、その後のソースを読み取っても受信メールの一覧は読み取れません。
ログイン後に、ｖｂａではなく手動でＷＥＢクエリをやってソースに書き出してみましたがやはり受信メールだけは読み取れません。
ＷＥＢクエリならフォルダの一覧は読み取れました。
ＶＢＡで読み取るのは不可能なのでしょうか？
office2003です。
sheet1のC3,C4,C5セルに、ある文字列をコピーペーストするマクロがあります。…(1)
マクロ文は省略
下記は、それぞれC3,C4,C5セルが選択（クリック）された時、実行するマクロ…(2)です。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 3 And Target.Row = 3 Then personC3
If Target.Column = 3 And Target.Row = 4 Then personC4
If Target.Column = 3 And Target.Row = 5 Then personC5
end sub
やりたい内容は、C3,C4,C5に文字列を表示させ、その文字列がクリックされたら、
別のマクロを起動(例.C3クリックされたら、personC3マクロ起動)させたいのです。
しかし(1)(2)の順に実行すると、C3,C4,C5セルには文字列のコピーペーストが出来ません。
(2)のマクロは、セルが変化したら実行ですから当然なのは分かっているのですが、
ここが困っている所です。
もともとC3,C4,C5に文字列が入っている場合は、(2)のマクロだけでよいのですが、
(1)を実行した後に(2)のマクロが有効とするには、どの様にしたらよいのでしょうか？
尚、やりたい内容が実現できれば、他のやり方でも可です。
条件：
C3～C5までのどれかをクリックする動作は必須です。
C3からC5までに設定される文字は、固定（同一）ではありません。
http://officetanaka.net/excel/vba/tips/tips42.htm
これを同じようにしてるのですが
Sub test()
Range("a1").Value = "http://www.goo.ne.jp/"
Range("a1").Hyperlinks(1).Follow NewWindow:=True
End Sub
これだとエラーになるのですがどうしてでしょうか？
「インデックスが有効範囲にありません。」
と言われます。
セルに入力されているアドレスでハイパーリンクを開きたいです。
Sub test1()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://oshiete.goo.ne.jp/"
objIE.Visible = True
Call IE_wait(objIE)
objIE.Document.forms("center_searchform").elements("MT").Value = "教えて"
For Each myObj In objIE.Document.all.tags("input")
If myObj.alt = "検索する" Then
objIE.Document.all.tags("input").alt("検索する").Click ‘ココでエラー
End If
Next
Set objIE = Nothing
End Sub
これを実行するとクリックできないのですがなぜでしょうか？
オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)
が表示されます。
他の方法で解決する事は出来ますが、
If myObj.alt = "検索する" Then
が出来てるからこのままうまく行きそうな気がするのですが？
理由を教えてください。ご回答よろしくお願いします。
今まで特に問題なく、データを取得できていたのに、
ここ最近データを取得できなくなってしまった為、お知恵を貸してください。
For Each obj3 In ie.document.getElementsByTagName("td")
If InStr(obj3.innerHTML, "INPUT") Or InStr(obj3.innerHTML, "input") Then
hiddenValue = ie.document.getElementById("hogehoge").Value
Exit For
End If
Next
ＶＢＡで上記のようなコードを記入し、
inputにある hogehogeのIDの値を取得するようなプログラムを書いています。
hiddenValue に値が入る場合と値が入らない場合があるのですが、
値がＮＵＬＬになる時のHTMLソースを見ても、hogehogeのＩＤがある為、何が原因なのかが不明です・・・。
どなたかこのような状況になったことはないでしょうか？？
お知恵を貸してください。
Sub testa()
Dim objIE
Dim myStr
Set objRE = CreateObject("VBScript.RegExp")
For Each objIE In CreateObject("Shell.Application").Windows
myStr = myStr & vbCrLf & objIE.LocationURL
Next
MsgBox myStr
End Sub
を実行するとフォルダのパスまで取得されてしまいますが
ＷＥＢページのみ取得するにはどうすればいいですか？
正規表現で”「ＨＴＭＬ」で終わる”と言う条件を付けくわえようとしましたが
htmlで終わらないサイトもあるのでダメでした。
Sub testa()
Dim objIE
Dim myStr
Set objRE = CreateObject("VBScript.RegExp")
For Each objIE In CreateObject("Shell.Application").Windows
myStr = myStr & vbCrLf & objIE.LocationURL
Next
MsgBox myStr
End Sub
を実行するとフォルダのパスまで取得されてしまいますが
ＷＥＢページのみ取得するにはどうすればいいですか？
正規表現で”「ＨＴＭＬ」で終わる”と言う条件を付けくわえようとしましたが
htmlで終わらないサイトもあるのでダメでした。
Sub test1()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "http://oshiete.goo.ne.jp/"
objIE.Visible = True
Call IE_wait(objIE)
objIE.Document.forms("center_searchform").elements("MT").Value = "教えて"
For Each myObj In objIE.Document.all.tags("input")
If myObj.alt = "検索する" Then
objIE.Document.all.tags("input").alt("検索する").Click ‘ココでエラー
End If
Next
Set objIE = Nothing
End Sub
これを実行するとクリックできないのですがなぜでしょうか？
オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438)
が表示されます。
他の方法で解決する事は出来ますが、
If myObj.alt = "検索する" Then
が出来てるからこのままうまく行きそうな気がするのですが？
理由を教えてください。ご回答よろしくお願いします。
