という視点で見てくれるようです。 そして、注意や助言をした方がいいと思われる場合も、 それを今言って、本人が受け取れるか、 本人の意欲や成長に繋がるかという視点で考えてくれるそうです。 発達障害やHSP、HSC...
質問日時: 2006/04/25 11:30 回答数: 3 件 Tで、あるフォルダ内のファイルをファイル名順に読む方法を教えてください。 ちなみに、現在は、以下のような処理をしています。 fs = CreateObject("leSystemObject") f = tFolder(strDirPath) fc = For Each f1 In fc ・ Next ご回答、よろしくお願いします。 No. 3 回答者: K6A 回答日時: 2006/05/01 09:32 たしかOSのバージョンによって動きが違う部分だったと思います。 やっぱり手動でソートしたほうが確実です。 0 件 No. 2 BLUEPIXY 回答日時: 2006/04/25 14:30 経験的には、 でファイル名順になっているような気がします。 そうならないような場合は、自前でソートする必要があると思います。 この回答へのお礼 いろいろ、テストしてみましたが、 でも、GetFilesでもファイル名でソートされているみたいですね。 一応、念のため、 Dim fileList As String() = (strDirPath) (fileList) で明示的にソートをかけておこうと思います。 お礼日時:2006/04/25 14:52 お世話になります。 Dim fileList As String() = ("D:\Test") For Each fileName As String In fileList Console. WriteLine(fileName) ですかね。 お探しのQ&Aが見つからない時は、教えて! gooで質問しましょう! このQ&Aを見た人はこんなQ&Aも見ています
エクセルマクロVBAを使ってフォルダ内の複数ファイル一括処理したい場合があります。 ウェブ上にはたくさんの情報がありますが、実際に使える事例を基にしたものが少ないのが現状です。 そこで、マクロVBAを使ってフォルダ内の複数ファイル一括処理するプログラムを事例をもとに紹介します。 フォルダ内の複数ファイルに対して ・開く ・読み込む ・ファイル数を取得する ・ファイルをコピーして移動する ・印刷する ・データを集約する これらを網羅的に解説しています。ぜひ読んで実践してみてください。 フォルダ内の複数ファイルを繰り返し開く 事例1|フォルダ内のエクセルファイルを全て開く、閉じる 事例2|フォルダ内のテキストファイルを全て開く、閉じる 以下でプログラムの解説をします。 Option Explicit Sub OpenAllFiles () Dim path As String Dim fs As Scripting. FileSystemObject Dim basefolder As Scripting. Folder Dim mysubfiles As Scripting. Files Dim mysubfile As Scripting. File path = ThisWorkbook. path & "\0_子ファイル" Set fs = New Scripting. FileSystemObject Set basefolder = fs. GetFolder ( path) Set mysubfiles = basefolder. Files For Each mysubfile In mysubfiles If fs. GetExtensionName ( mysubfile) Like [ "xls*"] Then Workbooks Filename: = mysubfile. path MsgBox mysubfile & "を開きました" ActiveWorkbook End If Next End Sub Sub OpenFilesOnlyText () Dim txt As TextStream If fs. GetExtensionName ( mysubfile) = "txt" Then Set txt = fs. OpenTextFile ( mysubfile) txt フォルダ内のファイル名を取得する 事例3|フォルダ内のファイル名を全て取得する 事例4|フォルダ内のエクセルファイル名を全て取得する Sub GetFilesName () Dim str As String str = str & vbCrLf & mysubfile MsgBox str Sub GetFileNameOnlyExcel () フォルダ内のファイル数をカウントする 事例5|フォルダ内のファイル数をカウントする Sub CountFiles () Dim n As Long n = n + 1 MsgBox n フォルダ内のCSVやテキストファイルを読み込みを繰り返し行う 事例6|フォルダ内のCSVファイルのみを全て読み込む 事例7|フォルダ内のテキストファイルを全て読み込む Sub ReadCSVFiles () Dim str As String, strs As String, str1 As String Dim k As String Dim i As Long Dim adoSt As Object Set adoSt = CreateObject ( "") If fs.
次に、②の方法を紹介します。 テキストファイルに出力する方法 ← コレ! コマンドプロンプトの起動までは①と同じ、実行するコマンドがこちらです。 dir /b /a-d > ファイル名 ファイル名は自由に指定できます。ここではsampleとしています。 取得したいファイル名が保存されている階層に、[ファイル名]が出力されます。 このファイルの中身にファイル名の一覧が出力されています。※このファイル名自身も出力されているのでご注意を! () 操作イメージ(動画) こちらも動画でご確認ください! コマンドプロンプトでコマンドを実行すると、フォルダ内にsample. txtが作成されるのが確認できますよ。 特定の文字列(拡張子)を含むファイルのみを取得する これまでの項で紹介した方法は、フォルダ内の「すべてのファイル名」を取得しました。特定の形式のファイルだけを取得する方法を紹介します。 様々な形式のファイルが混在しているフォルダ内で「Wordファイルのみを取得する」方法です。 拡張子の docx に注目してコマンドを作成します。 dir /b /a-d *docx | clip コマンドを入力して、Enterキーを押します。 これでクリップボードにコピーされたので、あとはExcelなどに「貼り付け」(Ctrl+V)すればOKです。 コマンドの解説 それじゃあコマンドの解説をしていくよ~ フォルダ・ファイル名の一覧を出力する フォルダ名とファイル名のみを出力する(サイズなどの情報は出力しない) ファイル名のみを出力する(フォルダ名は出力しない) 直前(①-③)までの実行結果を、直後(⑤)のコマンドに渡す クリップボードにコピーする 『うちの会社はフリーソフトとか一切禁止だから』とか、『マクロって難しそう』と悩んでいるオフィスワーカーの方も世の中にはたくさんいると思います。 VBAが使えれば作業効率がアップするのは間違いないのですが、 Windowsの標準機能だけでできることもたくさんあるんです! 【個人&法人向け】IT専門ブログ記事添削サービス 会社や個人で記事作成をしていて、このようなお悩みはありませんか? 個人でブログを書き始めた。自己流でなんとなく書いているので、読み手に伝わる文章になるよう、アドバイスがほしい。 情報発信のため、会社でコーポレートブログを立ち上げた。技術ノウハウを持つエンジニアはいるが、文章を書くことには慣れていないため、読み手に伝わるかチェックしてほしい。 伝え方には「コツ」があります。あなたの記事が読み手に伝わるよう、パソコン本の著者が丁寧に添削いたします。 その場限りの添削だけではなく、今後記事を書くうえでのポイントもレクチャします。
xlsm一を読み取り専用にするか名前取得するフォルダに入れない方法が簡単です。 特定のファイル名のみ取得する Dir関数を使い、「A」で始まるファイル名のみ書き出す例です。 サンプルコード(コピー可能) Sub sample2() buf = Dir(fPath & "A" & "*") Cells(i, 1) = buf buf = Dir() Loop 変更箇所 buf = Dir(fPath & "A" & "*")