• ベストアンサー

指定したフォルダから1つ目のファイル名のみ取り

エクセルのvbaで指定したフォルダに格納されている1つ目のファイルのファイル名のみを取り出したい場合、どうソースを記述すればよいでしょうか？ For Each を使用した場合は全件取り出してしまいますので… 何か良い方法がありましたらご教示ください。

質問者が選んだベストアンサー

  • ベストアンサー
  • kybo
  • ベストアンサー率53% (349/647)
回答No.1

1つ目というのがVBAで取得した最初の1つということなら、 MsgBox Dir("C:\test\*.*", vbNormal) で、よいかと思います。

kurogatuo
質問者

お礼

うまくいきました！まだまだ修行が足りないです。。 本当にありがとうございます！！

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • 同じファイル名で違うフォルダーに格納するには？

    同じファイル名で違うフォルダーに格納するには？ Excel VBAで、読み取りパスワードの付いたファイルを、読み取りパスワードを削除し同名ファイルで 違うフォルダーに格納するにはどうすればよいのでしょうか？

  • フォルダ内全ファイルをシート毎に貼付方法について

    VBA仙人様ご教授お願い致します。 １フォルダに数十のログファイル（.txt)が格納されています。 1ファイルは３～５万行記述あります。 これを１つのExcelファイルにしたいと思っています。 VBA流れとして (1)ログ格納フォルダを選択 (2)ログファイル名を取得 (3)既存Excelファイルに(2)で取得したファイル名（.txt除いた）で順次シートを追加 (4)ログファイル＝シートとなるようにファイル読み込み/貼り付け (5)ログファイルを閉じる VBAイメージ 格納フォルダ：C:\test \test内　　　 ：A001.txt,A002.txt,B003.txt・・・・・・・・Z051.txt（このフォルダにはログのみ格納） C:デスクトップ\集計マクロ.excel (VBAの記述のあるExcelシートにはSheet1のみが存在) VBA前 集計マクロ.excel/Sheet1 VBA実行後 集計マクロ.excel/Sheet1,A001,A002,B003,D004・・・・・・・・・Z051が追加、シート毎にログ情報記載 単一ファイルの読み込み/ファイル名をシート名に付与/情報コピペ/ファイル閉じについては、 作成できたのですが、複数ファイルの場合のファイル名を順次取得し、シート名として付与するなど objやValiant変数などで試行錯誤しましたが解決できず、こちらに質問されていただきました＞＜ このVBAで作成されたシートからの集計マクロについては完成していますが、 その手前でつまづいています＞＜ ご教授のほどお願い致します＞＜

  • Excelマクロ/ファイル名を指定してインポート

    テキストファイルからExcelへインポートする作業を自動化させたいのですが。 毎回インポート元のファイル名（格納しているフォルダは同じです）が異なるので、マクロ記録ではうまく作成できません。VBAでないと無理でしょうか？ できればファイル名をその都度入力するようなダイアログボックスが表示されれば理想的です。VBA初心者なので教えてください。

  • エクセルから指定フォルダーのファイルを削除？

    またまた　お願いします。 エクセルで作成したシートを指定のフォルダー内にCSVで保存することが できましたが、逆にそれを削除するにはマクロやVBAでどう記述すればよいのでしょうか？ エクセルヘルプみてもわかりませんでした。 お願いします。

  • EXCEL　指定のフォルダ内にあるエクセルをコピー

    どなたかVBAの記述（コード）を教えて下さい。 指定のフォルダ内にあるエクセル（コピー元）を開きコピー、データを順次、指定のエクセル（コピー先）のシートの上から順番に貼付していきたいのです。コピー貼付が終わったら、コピー元のファイルは別のコピー済のフォルダへ移したいです。 フォルダ名は、自分で指定できますが、コピー元のエクセルのファイル名とシート名は一定ではありません。（コピー元ファイルはシート1枚のみ）。セル範囲は、A～F列、行は毎回変動するので、一番下の行を判定する必要があります。 コピー先のファイルは、指定のシート（※）に上から順番に貼り付けをしたいです。 （※セルに入力して指定したいです。） 不足事項などがありましたら、ご指摘いただけると助かります。 よろしくお願いいたします。 なお、簡単な関数のVBAは理解して使えるのですが（IF～　End If、For ～Next 等）、 イベントのプロシージャーなどが今だ理解できず、自分では書くことができません。 そのため。多少コードが長くなってもいいので、イベント・プロシージャーをなるべく使わない書き方のほうが自分で修正することができ、助かります（イベントを使わないと難しい処理でしょうか・・・）。

  • window.open でのファイル指定方法

    初心者なので困ってます。 よろしくお願いします。 window.open を使って別ウィンドウでエクセルファイルを開きたい場合、ファイル指定はどうしたらよいでしょうか。 イントラネットのページなので共有のファイルサーバー名からパスを指定していますが 該当ファイルがありません とメッセージが出てしまいます。 ファイル場所 \\fileserver01\folder01\file.xls 記述 window.open("file:///\\fileserver01\folder01\file.xls"); 他のサイトを探してみましたがリンク先がURLのサンプルしか見つかりませんでした。 どなたかファイル名指定の場合の記述方法をご教示下さい。 よろしくお願いします。

  • ExcelVBAでファイルを開くフォルダ指定方法

    ExcelのVBAを用いて実験データのcsvファイルをまとめるプログラムを書いています． 肝心のプログラムはほぼできています． しかし OpenfileName = Application.GetOpenFilename("CSVファイル,*.csv?") としたときに開かれるフォルダ（ファイルを指定するフォルダ）がカレントフォルダ？となっております． 実行するExcel（VBA入り）と実験データが下記のパスにあったとして C:\Users\ABC\Documents\Data\110302\ カレントフォルダはなぜかマイドキュメントがデフォルトになってしまいます． C:\Users\ABC\Documents\ 階層移動できるので問題なくもないのですが，一々階層移動するのも面倒なので修正したいと考えております． そこで (1)プログラム実行直前にカレントフォルダを実行するExcel(VBA入り)の位置に変更する方法 (2)カレントフォルダと関係なく実行するExcel(VBA入り)があるフォルダを開く方法 どちらかで対処できると考えたのですがその方法が見つかりません． （ちなみに実行するExcel(VBA入り)の位置は動かすものとするので絶対パスでの指定はなしとします） どなたかご教授お願いします．

  • エクセルVBAでセルにあるファイル名のファイルを同じくセルにあるフォルダ名のフォルダにコピー

    お世話になります。 絶対パスがあり、コピー元、コピー先(格納先)としてシート上の操作で ファイルをフォルダにコピーしたいのですが、VBAでできるでしょうか？ ・B列B6以下にコピー元のファイル名(絶対パス) ・D6に格納先のフォルダ名(絶対パス) があります。 この条件だけでコピー→格納するコードを教えていただけたら助かります。よろしくお願いします。

  • VBSで指定したフォルダー内のファイルを書き出さないようにする

    あるフォルダ以下のファイル名を出力ファイル、f.name.txtに書き出すのですが "新しいフォルダ"というフォルダのなかにあるファイルは書き出さないようにしたいのですが、意に反してフォルダー内の全てのファイル名を書き出してしまいます。どこがおかしいのでしょう? ********************************************** Set FSO = CreateObject("Scripting.FileSystemObject") Set fl = WScript.CreateObject("Scripting.FileSystemObject") Set abc = fl.CreateTextFile("f.name.txt") ShowSubfolders FSO.GetFolder(".") Sub ShowSubFolders(Folder) For Each File in Folder.Files 'Folder内のファイルを列挙する Fname = File.name FolderCheck=Folder & "\" & "新しいフォルダ" If Folder <> FolderCheck Then abc.Write Folder & "\" & Fname & vbCrLf End If Next For Each Subfolder in Folder.SubFolders 'Foler内のフォルダを列挙する ShowSubFolders Subfolder '再帰呼び出し Next End Sub abc.Close

  • エクセル　マクロで特定ファイル名だけを開く

    エクセルのマクロで 特定のファイル名だけをフォルダの中から探して 開くというものを作りたいのですが うまくできません。 フォルダを指定して 「060927.xls」というエクセルファイルだけを 開きたいのですが この日付のところが毎日変わるので 「06XXXX.xls」というような 最初が06であと４つの文字が入ってるファイル名だけを 流動的に指定できるようにするには どのようなVBAマクロにすればよいのでしょうか？ とても困っています。 是非教えてください！宜しくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する