aタグのリンククリックについて教えてください 削除
| Message#16 2015年5月25日(月)13時13分 From: ＩＥ操作初心者 |
| 回答いただきありがとうございます。 返信遅くなりすいません。 参考にさせて頂きます。 気ずるのメッセージ(#15)への返事 > sub sample() > > '最終行取得 > r = maxRC(, 1) > > call ieview(objIE,"http://www.yahoo.co.jp") > > for i = 1 to r > > call ienavi(objIE,cells(i,"A") > > cells(i,"D") = objIE.document.body.outerhtml > > next i > > end sub > > > Function maxRC(Optional sheetName As String = "mySheet", _ > Optional rcNo As Variant = 1, _ > Optional addRC As Integer = 0, _ > Optional typeRC As String = "R") As Long > > If sheetName = "mySheet" Then > sheetName = ActiveSheet.Name > End If > > If typeRC = "R" Then > maxRC = Sheets(sheetName).Cells(Rows.Count, rcNo).End(xlUp).row + addRC > ElseIf typeRC = "C" Then > maxRC = Sheets(sheetName).Cells(rcNo, Columns.Count).End(xlToLeft).Column + addRC > End If > > End Function |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。
