マクロの事で質問です？

質問

以前、「マクロを使ってこんな事って出来ますか？」を質問した者です。
http://oshiete1.goo.ne.jp/qa4035950.html

ANo.4のKenKen_SPさんの回答が参考になりました。

そこで、KenKen_SPさんのソースを参考にして別の事をやってみたのですが、うまくいきません。

やりたい事は

エクセルのA列に文章　B列にURLを入力してマクロを使って下記のようにメモ帳に出力したいです。

例

1ここに文章...<a href="http://123.com" target="_blank">続きはこちら</a><br>
2ここに文章...<a href="http://234.com" target="_blank">続きはこちら</a><br>
3ここに文章...<a href="http://345.com" target="_blank">続きはこちら</a><br>
4ここに文章...<a href="http://456.com" target="_blank">続きはこちら</a><br>

いつも聞いてばかりですいませんがよろしくお願いします。

回答No.1

noah7150 · ベストアンサー

特定のセルを指定するにはCells("A1") と Cells(行, 欄)が使えます。

また、"を出力したい場合2個指定すると1個出力されます

＜＞を全角に書いてますが半角にして下さいね

For Row = 1 To 4
Print #1, Cells(Row, 1) & "＜a href=""" & Cells(Row, 2) & """target=""_blank""＞続きはこちら＜/a＞＜br＞"
Next

お礼

せっかく回答して頂いたんですが、上手くいきませんでした。すいませんが、もう少し詳しく教えていただけないでしょうか？

補足

すいませんできました。

Sub testo()

　　If Not TypeOf Selection Is Range Then Exit Sub

　　Dim i　　　As Long
　　Dim sPrev　As String

　　Open "C:\test.tmp" For Output As #1

　　' // Output html
　　sPrev = ""
For Row = 1 To 4
Print #1, Cells(Row, 1) & "...<a href=""" & Cells(Row, 2) & """target=""_blank"">続きはこちら</a><br>"
Next

　　Close #1
　　Shell "notepad.exe C:\test.tmp", vbNormalFocus

End Sub