Excel VBA - 繰り返し文

以下を簡潔に繰り返し文で書きたいのですが、うまくいきません。
よろしくお願いします。

Sub Macro1()

Sheets("最初").Range("M1").Value = Sheets("最初").HTMLText1.Value
Sheets("最初").Range("M2").Value = Sheets("最初").HTMLText2.Value
Sheets("最初").Range("M3").Value = Sheets("最初").HTMLText3.Value
Sheets("最初").Range("M4").Value = Sheets("最初").HTMLText4.Value
Sheets("最初").Range("M5").Value = Sheets("最初").HTMLText5.Value
Sheets("最初").Range("M6").Value = Sheets("最初").HTMLText6.Value
Sheets("最初").Range("M7").Value = Sheets("最初").HTMLText7.Value
Sheets("最初").Range("M8").Value = Sheets("最初").HTMLText8.Value
Sheets("最初").Range("M9").Value = Sheets("最初").HTMLText9.Value
Sheets("最初").Range("M10").Value = Sheets("最初").HTMLText10.Value

End Sub

No.2 ベストアンサー 回答者： xls88 回答日時： 2009/03/14 03:20

一例です。

Sub test2()
　　Dim tbox As OLEObject
　　Dim i As Long

　　For Each tbox In ActiveSheet.OLEObjects
　　　　i = i + 1
　　　　Range("M" & i).Value = tbox.Object.Value
　　Next
End Sub

この回答へのお礼

こちらを使いたいと思います。
ありがとうございました。(^^)

お礼日時：2009/03/16 23:47

No.4 回答者： xls88 回答日時： 2009/03/15 12:17

直接取得することもできます。

三流君VBAでIE操作 InternetExplorer.Applicationを操作する
​http://www.ken3.org/cgi-bin/group/vba_ie.asp​

この回答へのお礼

ありがとうございます。(^^)
できればいいのですが、難しそうです。

お礼日時：2009/03/16 23:46

No.3 回答者： xls88 回答日時： 2009/03/14 20:21

もう一例

Sub test3()
　　Dim ctrl As OLEObject
　　Dim i As Long
　　
　　For Each ctrl In ActiveSheet.OLEObjects
　　　　If ctrl.Name Like "HTMLText*" Then
　　　　　　i = i + 1
　　　　　　ActiveSheet.Cells(i, "A").Value = ctrl.Object.Value
　　　　End If
　　Next ctrl
End Sub

この回答へのお礼

ありがとうございました。(^^)

お礼日時：2009/03/16 23:48

No.1 回答者： xls88 回答日時： 2009/03/14 00:51

HTMLText1～HTMLText10の正体が解らないので、通らないと思いますが

一例を示すと、下記のように記述します。

Sub teat1()
　　Dim i As Long
　　With Sheets("最初")
　　　　For i = 1 To 10
　　　　　　Cells(i, "M").Value = .HTMLText(i).Value　'★1
　　　　Next i
　　End With
End Sub

★1のところは
Range("M" & i).Value = .HTMLText(i).Value
というようにもできます。

この回答へのお礼

ありがとうございます。

HTMLText10は、ホームページを全選択後、コピーしてExcelシートに貼り付けた時にあったテキストボックスです。このたくさんのテキストボックスの値をセルに書き出そうとしています。

お礼日時：2009/03/14 01:30