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 · ベストアンサー

一例です。

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

お礼

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

回答No.4

xls88

直接取得することもできます。
三流君VBAでIE操作 InternetExplorer.Applicationを操作する
​http://www.ken3.org/cgi-bin/group/vba_ie.asp​

お礼

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

回答No.3

xls88

もう一例

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

お礼

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

回答No.1

xls88

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シートに貼り付けた時にあったテキストボックスです。このたくさんのテキストボックスの値をセルに書き出そうとしています。