以下を簡潔に繰り返し文で書きたいのですが、うまくいきません。
よろしくお願いします。
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.4
- 回答日時:
直接取得することもできます。
三流君VBAでIE操作 InternetExplorer.Applicationを操作する
http://www.ken3.org/cgi-bin/group/vba_ie.asp
No.1
- 回答日時:
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シートに貼り付けた時にあったテキストボックスです。このたくさんのテキストボックスの値をセルに書き出そうとしています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 並べ替え、ソートの構文がわからない。 お世話になります。VBA超初心者です。 エクセルでワークシート 2 2023/06/28 21:00
- Excel(エクセル) vba userformで漢字を全角カタカナに 2 2022/07/24 15:38
- Visual Basic(VBA) Excelのマクロ ブック間である範囲をコピー Workbooks(“a.xlsx“).Sheets 3 2022/05/12 17:02
- Visual Basic(VBA) まとめシートから集計シートへA列のコードが一致したら1行コピーするマクロをネット上で見つけました。こ 1 2022/08/30 14:11
- Visual Basic(VBA) 前回質問の続きになりますが、下記マクロでシート1からシート2の抽出項目セルB3「りんご」とセルC2「 2 2022/12/02 17:37
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) マクロで行を追加、削除すると行位置がずれますが、解決方法はありませんか?。 5 2022/05/28 16:03
- Excel(エクセル) 列の最終行に新たに入力されたらその値を自動参照 1 2023/01/21 09:59
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Excel(エクセル) エクセル VBAでシートのコピーを作りたい 1 2023/05/18 07:42
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルの表で1年間の曜日を...
-
エクセルでの特別な文字を上に...
-
エクセルでB列でフィルターをか...
-
お世話になります。 Excelを使...
-
エクセルでセルに標準で入力さ...
-
EXCELの質問です 119から足した...
-
UNIQUE関数が使えないバージョ...
-
【マクロ】VLOOKUPにて参照元に...
-
エクセルで会社の従業員のデー...
-
Excel VBについての質問です。
-
【マクロ】アクティブセルにブ...
-
libre 表計算ソフトの計算がう...
-
エクセルの空欄をつめて、次の...
-
エクセルの問題です。絶対値の...
-
Excelで、項目の種類ごとにカウ...
-
【マクロ】アクティブセルの、...
-
exselで最小数で並び替える関数
-
「問題が発生しました」ですと?
-
CELL関数のヘルプ文の意味?
-
エクセルのコメントのデザイン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
第五人格のアプリを始めたので...
-
なんで「最初はグー」やねん!
-
1番最初の要という日本語はおか...
-
最初の一歩と、最後の一歩
-
じゃんけんの時、最初はグーっ...
-
オフ会のはじまりを知っていま...
-
解の存在範囲について
-
アニマル横町で誰が好き?
-
個人で特定信書便の許可証とる...
-
卑弥呼の神通力
-
世界一回答されやすい質問あり...
-
質問サイトで早押しのように一...
-
Excel VBA - 繰り返し文
-
ジョージと言えば?
-
最初に食べた人は凄い!
-
印象が変わった歴史上の人物
-
働くと遅いと言われます。 結局...
-
「じゃんけん」…強い?弱い?普...
-
世界最初 世界初 という二つの...
-
怖いロゴマークを教えてください
おすすめ情報