Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

24395 / 76738

←次へ　｜　前へ→


	【57691】htmlにリンクをはりたいのですが

ちず - 08/9/9(火) 21:36 -


	引用なし

	パスワード

こんばんは。

下記にマクロを二つ書きました。

ひとつはフォルダ下にあるファイルの内容（NO、NAME,TEL）を
ひとまとめにするマクロ。

もうひとつのマクロはまとめたデータをHTMLにし、
NOのところにリンクをはろうとするものです。
リンク先は転記した元ファイルです。

たとえば
フォルダ-サブフォルダ－111.xls
　　　　　　　　　　－222.xls　

111.xls内は
NO　NAME　TEL
111　田中　012－3456－7890

まとめのシートには
NO　　NAME　TEL
111　田中　012‐3456‐7890
222　山田　123-3456‐1234

↑
ここの各NOにリンク。
111のリンク先は111．xls、222のリンク先は222．xlsを
開けたいのですが書き方に悩んでおります。
どう書けばよいのかよいのでしょうか。
よろしくお願いいたします。

Sub test()
Dim myfso As New filesystemobject
Dim fld As folder
Dim flname As FileDialog
Dim thebk As Workbook
Dim i As Long
Dim LROW As Long

With myfso.getfolder(ThisWorkbook.Path & "\")
For Each fld In .subfolders
　　For Each flname In fld.Files
　　Set thebk = Workbook.Open(ThisWorkbook.Path & "\" & myfld.Name & "\" & flname.Name)
　　　　For i = 1 To 3
　　　　　LROW = .Cells(65536, 1).End(xlUp).Row + 1
　　　　　ThisWorkbook.Sheets("まとめ").Cells(LROW, i) = thebk.Sheets("Sheet1").Cells(i + 2, 2)
　　　　Next
　　Next
Next
thebk.Close savechanges:=False
End With

End Sub

Sub test2()
Dim FNO As Integer
Dim sname As String
Dim AROW As Long
Dim hani As Range
Dim z,y As Long

FNO = FreeFile
sname = ThisWorkbook.Path & "\" & "作成.html"

Open sname For Output As #FNO

Print #FNO, "<html><head><title></title></head>"
Print #FNO, "<body>"
Print #FNO, "<table><tr>"
Print #FNO, "<td>NO</td><td>NAME</td><td>TEL</td>"
Print #FNO, "</tr>"

AROW = Workbook("まとめ").Cells(65536, 1).End(xlUp).Row
Set hani = Workbook("まとめ").Range(Cells(1, 1), Cells(AROW, 3))

For z = 1 To hani.Rows.Count
　For y = 1 to 3
　　Print #fso, "<tr>"
　　Print #fso, "<td>" & "hani.cells(z,y).value" & "</td>"
　　Print #fso, "</tr></table></body></html>"
　Next　
Next
End Sub

0 hits

▼

【57691】htmlにリンクをはりたいのですが ちず 08/9/9(火) 21:36

≪