[[20030717133612]]　『エクセルファイルの一覧を印刷したい』（ナツコ）　ページの最後に飛ぶ

『エクセルファイルの一覧を印刷したい』（ナツコ）

フォルダーの中のエクセルファイルの一覧を印刷したい。

 気持ちはわかりますが、マクロ(VBA)が必要です。
 （kazu）

dosプロンプト(Windows95,98)やコマンドプロンプト(Windows2000)でdirやtreeでテキストファイルに出す方法もあります。慣れれば簡単ですが…(YS)

 こんばんは
 Sub SearchTest()
     Dim myFile As String, myPath As String
     Dim i As Long　　　　　　'↓検索したいパスに変えてください　　
     myPath = "D:\documents and settings\ABC\my documents\excel" & "\"
     myFile = Dir(myPath & "*.xls")
     Do While myFile <> ""
         i = i + 1
         Cells(i, 1).Value = myFile
         'Cells(i, 2).Value = Int(FileLen(myPath & myFile) / 1024) & "KB"
         myFile = Dir()
     Loop
 End Sub
 アクティブシートにファイル名が入力されると思います
 こういうのでよかったでしょうか　(りな)

 ----
 更に付け加えるとすれば
 mypath=フォルダ名　と書いて、さらに
 Doの上の行に i=2 と書く
 そして下記のコードを記入して下さい(コピー）。

 Function フォルダ名() As String
    Dim Fold  As Object
    On Error GoTo hosino
    Set Fold = CreateObject("Shell.Application").BrowseForFolder(0, "目的のフォ
 ルダはどれですか？", &H0)
    If Fold Is Nothing Then
        フォルダ名 = ""
    Else
        フォルダ名 = Fold.Items.Item.Path
    End If
    Cells(1, 1).Value = "フォルダ名:　　" & フォルダ名
    GoTo imaoka
 hosino:
    MsgBox "このフォルダはフォルダとして認められません"
 imaoka:
    Set Fold = Nothing
 End Function
 ----
 ほんのちょっとだけ扱いやすくなります。
           （....）

コメント返信：

[ 一覧(最新更新順) ]

[[20030717133612]] 『エクセルファイルの一覧を印刷したい』（ナツコ） ページの最後に飛ぶ

[[20030717133612]]　『エクセルファイルの一覧を印刷したい』（ナツコ）　ページの最後に飛ぶ