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 質問
【57692】Re:htmlにリンクをはりたいのですが かみちゃん 08/9/9(火) 21:39 発言
【57693】Re:htmlにリンクをはりたいのですが ちず 08/9/9(火) 22:24 発言
【57695】Re:htmlにリンクをはりたいのですが かみちゃん 08/9/10(水) 0:00 発言
【57728】Re:htmlにリンクをはりたいのですが ちず 08/9/10(水) 21:44 お礼

24395 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free