• はてなアカウントでログイン
• 無料ユーザー登録

ベストアンサー

• oil9992012/11/22 22:27:36

  満足100pt

  こんな感じでどうでしょう。
  "C:\test\" にあるCSVファイルのみを連結して、"C:\test\test.csv" に出力します。
  ターゲットのフォルダ、拡張子、出力先ファイル名は、マクロの最後の Call hogeCoupling の引数を変更することで対応できます。
  

  Option Explicit
  
  '1ファイル処理
  Sub appendFile(path As String, fname As String, outfname As String)
      Dim buf As String, idx As String
      Dim fname2 As String, fname3 As String
      Dim x As Long
      
      'CSVファイル読み込み＆書き込み
      fname2 = path & fname
      Open fname2 For Input As #1
      Open outfname For Append As #2
      Do Until EOF(1)
          Line Input #1, buf
          Print #2, buf
      Loop
      Close #2
      Close #1
  End Sub
  
  'ファイル探索＋処理実行
  Sub hogeCoupling(path As String, ext As String, outfname As String)
      Dim fcol As Object, re As Object
      Dim flist As Variant, remat As Variant
      Dim pat As String, fname As String
      Dim n As Long
      
      '処理対象ファイル探索＋処理実行
      Set fcol = CreateObject("Scripting.FileSystemObject").GetFolder(path).Files
      Set re = CreateObject("VBScript.RegExp")
      pat = "\." & ext & "$"
      With re
          .Pattern = pat
          .IgnoreCase = True
          .Global = True
          For Each flist In fcol
              Set remat = .Execute(flist.name)
              If remat.Count > 0 Then
                  Call appendFile(path, flist.name, outfname)
              End If
          Next flist
      End With
      Set re = Nothing
      Set fcol = Nothing
  End Sub
  
  Sub main()
      Call hogeCoupling("C:/test/", "csv", "C:/test/test.csv")
  End Sub
  
  

  スター

  • 

    1件のコメントを見る

  • inosisi 2012/11/23 17:22:24

    ありがとうございます
    大変よくできています
    
    ターゲットのフォルダ、拡張子、出力先ファイル名は、マクロの最後の Call hogeCoupling の引数を変更することで対応できます。
    
    があったので同じフォルダーの保存先ＣＳＶにできないのでどうしようかと思ってましたありがとうございました

    スター

その他の回答

• inosisi

  2012/11/22 11:44:30

  ファイルの件数は最高で99件です

  01-99

この質問へのコメント

• ku__ra__ge2012/11/22 12:02:51
  マクロを組まなくてもコマンドプロンプトで
  copy c:\test\*.csv c:\test\01-10.csv
  と打つことで出来ると思います。
• inosisi2012/11/22 12:29:18
  ありがとうございます
  参考にさせていただきます
  他のマクロと連携したいものですから

質問の情報

登録日時

2012-11-22 11:36:35

終了日時

2012-11-23 17:22:37

回答条件

1人5回まで

この質問のカテゴリ

• コンピュータ

この質問に含まれるキーワード

人気の質問

• この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…匿名質問者112日前
• 不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者112日前
• 日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者19時間前
• 共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者119時間前
• 内定してほしいポケモンはいますか？匿名質問者20時間前

メニュー

• 質問一覧
• カテゴリ一覧
• 無料ユーザー登録
• 人力検索はてなトップ

PC版

• お問い合わせ
• ヘルプ
• お知らせ
• はてなトップ