|
こんばんは。
下記にマクロを二つ書きました。
ひとつはフォルダ下にあるファイルの内容(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
|
|