| |
▼みるみる さん：
>≪今まで試してみた内容≫
>CMDを使って「tree /F」のコマンドを利用し、膨大な量のファイルに対するツリー表示を「.txt」ファイルで保存し、それをExcelの「テキストファイルウィザード」より開いてツリー表示をExcelに落とすことには成功しました。
>ただ、Excelのマクロでどこまでその作業を設定できるのか分からず、もし設定できなければ他のどんな方法でツリー表示を作ればいいかも困っているところです。
これをマクロで行えばいいのでしょうか？
もっともこれ以外は解らないけど...。
Sub trrtrr()
Dim Fpat As String, ComL As String, ReadData As String
Dim TB() As String, FileNo As Integer, i As Long, ii As Long
Dim DFoP As String
DFoP = CurDir()
Fpat = "C:\TrrFL.txt" 'テキスト１時保存場所
TrFld = "C:\" 'ツリー表示フォルダ
'カレントディレクトリーを移す。
CreateObject("WScript.Shell").CurrentDirectory = TrFld
'ドスコマンド
ComL = "COMMAND.COM /C tree>" & Fpat
Call Shell(ComL, vbHide)
FileNo = FreeFile
Open Fpat For Input As #FileNo
i = 0
Do Until EOF(FileNo)
i = i + 1
Line Input #FileNo, ReadData
Loop
Close #FileNo
DoEvents
ReDim Preserve TB(1 To i, 1 To 1)
ii = 0
FileNo = FreeFile
Open Fpat For Input As #FileNo
Do Until EOF(FileNo)
ii = ii + 1
Line Input #FileNo, TB(ii, 1)
Loop
Close #FileNo
'65536行以上の場合だった時を考えて取りあえず。
If i > 65536 Then
MsgBox "プログラム改良必須"
Erase TB
Kill Fpat
Exit Sub
End If
Range("A1").Resize(i).Value = TB
DoEvents
Erase TB
Kill Fpat '１時保存テキストを削除
DoEvents
End Sub
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
