|
回答いただきありがとうございます。 返信遅くなりすいません。 参考にさせて頂きます。 気ずるのメッセージ(#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 |
↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^
ExcelのVBA初心者入門↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^
こちらでは、エクセルVBAで実際に作成したIE(InternetExplorer)制御ツールをまとめています。自動ログインや情報収集など具体的に解説しています。IE(InternetExplorer)制御をされる方は参考にしてください。
こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。
こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。
こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。
こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。
こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。
こちらでは、IE(InternetExplorer)制御の利用だけでなく、Excel全般で利用できるVBAコードです。エクセルVBAで役に立つものばかりですので、ご利用ください。