objIE.Navigate
と
objIE.Document.Links(i).Click
は動作として同じですか？
VBAで
Sub test()
Dim objIE As InternetExplorer
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "http://www.goo.ne.jp/"
Set objIE = Nothing
End Sub
のようにNavigateしてＵＲＬを表示するのと、
表示されたサイトのリンクを
objIE.Document.Links(i).Click
でクリックしてページを表示させるのは動作としては同じですか？
ＨＴＭＬやｊａｖａスクリプトについてよくわからないのですが
もしかして
objIE.Document.Links(i).Click
しないと動作しないなどはありますか？
そしたらNavigateでもClickでもＵＲＬを開く事が可能なら、Clickした方がよいのでしょうか？
今まで特に問題なく、データを取得できていたのに、
ここ最近データを取得できなくなってしまった為、お知恵を貸してください。
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のＩＤがある為、何が原因なのかが不明です・・・。
どなたかこのような状況になったことはないでしょうか？？
お知恵を貸してください。
今まで特に問題なく、データを取得できていたのに、
ここ最近データを取得できなくなってしまった為、お知恵を貸してください。
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のＩＤがある為、何が原因なのかが不明です・・・。
どなたかこのような状況になったことはないでしょうか？？
お知恵を貸してください。
MsgBoxをモーダルモードで開いたときと普通の時との違いが判らない
vbe画面から
Sub test1()
MsgBox "test"
End Sub
Sub test2()
MsgBox "test", vbSystemModal
End Sub
を実行してみましたが違いがよくわかりません。
しいて言えば、vbSystemModalにした場合、
メッセージボックスの左上のアイコンが変わることくらいしか気付けません。
結局はvbSystemModalをつけなくてもモーダルモードで開かれるのでしょうか？
vbSystemModalを付けた場合とつけない場合の違いがよくわかるコードがあれば教えてください。
かなり至急です＞＜エクセル2010のマクロの質問です。
2つ質問があります。
1つ目です。
以下の一連の作業を1つのマクロで行いたいのですが、どうしたらいいでしょうか？
現在は、シート1にデータがあります。
(1)選択した3列を、B~D列に移動する
(2)B列に含まれるセルのうち、0（空白）でないセル数分だけシートを追加する。
(たとえば、シート1のB14~B18に数字がはいっていたら、シートを5枚追加するという感じです。)
(3)B列に含まれるセルのうち、0（空白）でないセル数分に対し、2行ずつ各シートの3・4行目にコピーする。
(たとえば、シート1のB14~B18に数字がはいっていたら、シート2の3・4行にシート1の14・15行のコピーを貼り付け、シート3の3・4行にシート1の15・16行のコピーを貼り付け、シート4の3・4行にシート1の16・17行のコピーの貼り付ける・・・という感じです。)
現在は
(1)Sub ()
Selection.Cut
ActiveCell.Columns("A:C").EntireColumn.Select
Selection.Cut
Columns("B:B").EntireColumn.Select
Selection.Insert Shift:=xlToRight
End Sub
(2)
Sub Macro()
Dim n As Long
For n = 14 To 18 '
Sheets.Add
Next
End Sub
(3)
Sub Macro()
Dim n As Long
For n = 14 To 18 '
Sheets("Sheet1").Rows(n & ":" & n + 1).Copy _
Sheets("Sheet" & n - 252).Range("A3")
Next
End Sub
と別々のマクロに分けてます。
また(2)(3)でみられる
For n = 14 To 18 '
の部分の数字は手動でいれてますが、かなり時間をくってしまうので・・・。
2つ目です。
複数ブックに同じ動作をするエクセルのマクロが知りたいです。
現在100ほどブック(Book1~100)を開いていて、100のブックすべてのSheet1のA1のセルに「１」と入れたいのですが、
そのようなマクロはどうくんだらよろしいでしょうか。
ちなみにExcel2007です。
困っているので、お願いします。
ＩＥ８です。
エクセルで
Sub test()
ActiveWorkbook.FollowHyperlink "http://www.yahoo.co.jp/"
End Sub
を実行すると
既に開いているブラウザが上記のURLに更新されちゃったり
新規のブラウザが立ち上がったり
動作がまちまちなのですが
何を基準に決まるのでしょうか？
