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

ベストアンサー

• ardarim2017/10/29 10:32:25

  満足250pt

  サンプルコードです。CopyCsvFileで呼び出します。
  元フォルダに該当のファイルが複数ある場合は、どのファイルがコピーされるかは不定になります。
  例えば、ファイル名の中に入っている数字の部分（日付？）が最新のものをコピーする等も可能ですが、もう少し複雑になります。

  Const SourcePath As String = "C:\Users\naranara19\Downloads"
  
  Sub CopyCsvFile()
      Dim fileName As String
  
      fileName = Dir(SourcePath & "\*.csv")
      Do While fileName <> ""
          If fileName Like "??????????????_発行済データ.csv" Then
              FileCopy Source:=SourcePath & "\" & fileName, Destination:=GetDesktopPath() & "\出力用.csv"
              Exit Do
          End If
          fileName = Dir()
      Loop
  
  End Sub
  
  Function GetDesktopPath() As String
      Dim wsh As Object
      
      Set wsh = CreateObject("WScript.Shell")
      GetDesktopPath = wsh.SpecialFolders("Desktop")
      Set wsh = Nothing
      
  End Function
  

  スター

  • 

    4件のコメントを見る

  • リセール京都買取 2017/10/30 07:07:38

    ありがとうございます。しっかりとできていそうにみえるのですが、実行しても、なぜかうんともすんともいいません。デスクトップのものが上書きされないのです。（特定フォルダには該当のCSVは一つしかありません。）
    
    原因は何か考えられますでしょうか？

    スター

  • ardarim 2017/10/30 23:50:19

    自分の環境では、動作を確認できています（SourcePathは環境に合わせて変えています）。
    原因としては、SourcePathが間違っているか、アクセス権限がないとか、といったことくらいしか考えられません。
    切り分けとしては、「Do While fileName <> ""」の次の行に「Debug.Print fileName」をいう行を挿入してみてください。実行すると、イミディエイトペイン（VBA画面の下のウィンドウ）に見つかったCSVの名前を出力します。まずはここで正しくCSVが検索できているか確認してみてください。
    それでCSVが見つからないようであれば、SourcePathが間違っている可能性があります。
    SourcePathの中身をコピーしてエクスプローラのアドレス欄に貼り付けて、フォルダ名があっているか（CSVがそこにあるか）確認してみてください。

    スター

  • リセール京都買取 2017/10/31 07:37:34

    ありがとうございました。正しくCSVが検索されておりまして、なぜか今回はしっかりできました。実行すると、しっかりとできました。ありがとうございました。
    
    前回は上の緑色のボタンから実行していたのですが、今回はそれを押すとマクロの選択画面がでてそれをクリックするとできました。他のマクロが干渉していたんでしょうか。素人ですみません。
    ご丁寧な対応に深く感謝しております。ありがとうございました。

    スター

  • ardarim 2017/11/01 00:40:06

    うまくいったようでよかったです。
    
    緑色のボタンは、右向きの三角形のボタンだと思いますが、マクロの実行ボタンです。
    ボタンを押すとカーソル位置にあるマクロを実行しますので、前回はたまたま他のマクロの上にカーソルがあったのでしょう。
    なお、カーソルが実行可能なマクロ上にない場合（End Subの後やFunction～End Functionの間など）は、マクロの選択画面が表示されます。
    
    通常はVBA画面は出す必要はありませんので、Excel画面上から[表示]→[マクロ]→[マクロの表示]でマクロの選択画面を出すのが良いと思います。
    シート上にボタンを置いてボタンにマクロを割り当てることもできますのでご参考までに。
    https://support.office.com/ja-jp/article/%E3%83%95%E3%82%A9%E3%83%BC%E3%83%A0%E3%81%BE%E3%81%9F%E3%81%AF%E3%82%B3%E3%83%B3%E3%83%88%E3%83%AD%E3%83%BC%E3%83%AB-%E3%83%9C%E3%82%BF%E3%83%B3%E3%81%AB%E3%83%9E%E3%82%AF%E3%83%AD%E3%82%92%E5%89%B2%E3%82%8A%E5%BD%93%E3%81%A6%E3%82%8B-d58edd7d-cb04-4964-bead-9c72c843a283

    スター

その他の回答

この質問へのコメント

質問の情報

登録日時

2017-10-28 22:45:57

終了日時

2017-10-31 07:38:03

回答条件

1人1回まで

この質問のカテゴリ

• コンピュータ

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

人気の質問

• いつも大変お世話になっています。 アスペルガー精神3級独身会社員34歳男です。 最近心身共に疲れがもの凄…hayakushinene12日前
• https://hikky-mura.org/t/topic/2523/7 でsma200さんという方に戸塚ヨットスクールを勧められましたが、僕…hayakushinene12日前
• 親族（実家）の犬が無駄吠えをしています。朝方に一時間くらい吠えているらしい。昼にも一時間くらい吠え続…匿名質問者2215日前
• 度々すみません。 私は以前から大学入試・成績など教育関連のネガティブな夢を見ていましたが、ここ最近そ…hayakushinene153日前
• 学歴詐称ではなくて、貴族称号詐称について伺います。イボンヌの香りという映画で、ロシアの伯爵を詐称して…匿名質問者4日前

メニュー

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

PC版

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