Top > よくつかうプログラム> 特定の名前の付いているCSVファイルを1つのブックに集める

VBA通信教材申込み

VBA課題解決型実践塾セミナー内容

申込 ヤフーショッピング

特定の名前の付いているCSVファイルを1つのブックに集める

(11)フォルダーの中にある特定の名前の付いているCSVファイルを1つのブックに集める

CSVファイルを1つのブックに集める

mougモーグさんのサイトを参考にさせていただきました。
http://www.moug.net/tech/exvba/0060001.html
Sub Sample()
  Dim sFile As String
  Dim sWB As Workbook, dWB As Workbook
  Dim dSheetCount As Long
  Dim i As Long
  Const SOURCE_DIR As String = "D:\得意のあるフォルダー\"
  Const DEST_FILE As String = "D:\得意取り出し先\取り出し先.xlsx"
  Dim sheetname As String
  Application.ScreenUpdating = False
'指定したフォルダ内にあるブックのファイル名を取得
  sFile = Dir(SOURCE_DIR & "得意*.csv")
'フォルダ内にブックがなければ終了
  If sFile = "" Then Exit Sub
'集約用ブックを作成
  Set dWB = Workbooks.Add
'集約用ブック作成時のシート数を取得
  dSheetCount = dWB.Worksheets.Count
  Do
'コピー元のブックを開く
    Set sWB = Workbooks.Open(Filename:=SOURCE_DIR & sFile)
    sheetname = ActiveSheet.Name
'コピー元のシートを集約用ブックにコピー
    sWB.Worksheets(sheetname).Copy After:=dWB.Worksheets(dSheetCount)
'シート名をセルA1の値に変更
' ActiveSheet.Name = Range("A1").Value
'コピー元ファイルを閉じる
    sWB.Close
'次のブックのファイル名を取得
    sFile = Dir()
  Loop While sFile <> ""
  '集約用ブック作成時にあったシートを削除
  Application.DisplayAlerts = False
  For i = dSheetCount To 1 Step -1
    dWB.Worksheets(i).Delete
  Next i
  Application.DisplayAlerts = True
  '集約用ブックを保存して閉じる
  dWB.SaveAs Filename:=DEST_FILE
  dWB.Close
  Application.ScreenUpdating = False
End Sub
全てのCSVファイルを取り込む場合は*.csvに変える
  sFile = Dir(SOURCE_DIR & "*.csv")
CSVファイルはファイル名がシート名になっているため取り込む場合もそのシート名を使っている。

フォルダーの中にある特定の名前の付いているCSVファイルを1つのブックに集める

フォルダー内の特定のファイルのコピー

Sub CopyFileSample()
  Dim TempFileName As String
  Dim TempFolderName As String
  TempFileName = "d:\得意のあるフォルダー\*.csv"
  TempFolderName = "D:\得意取り出し先\"
  With New FileSystemObject
.CopyFile TempFileName, TempFolderName, True
  End With
  MsgBox "ファイルのコピーが完了しました", vbInformation
End Sub
このプログラムを使う時はツールの参照設定から
Windows Script Object Modelを追加してください。

 
塾長あいさつ
基本方針(考え方)
通信教育内容
課題解決セミナー内容
初心者基礎コース内容
カリキュラム・料金
案内地図・各種リンク
問合せ・申込み
アベノ塾
システムの内製化
アサイコンピュータACS
応用部品集(有料)
販売管理(事例)
財務管理(事例)
顧客管理(事例)
見積もり(事例)
給与(事例)
介護(事例)
ゴースト暗算(事例)
部品集(部品の基礎)
部品集(シート関連)
部品集(データベース)
部品集(セル関連)
部品集(関数)
部品集(フォーム関連)
部品集(ブック関連)
部品集(その他)
変数の勉強
繰り返しと条件文
マスター登録.訂正.削除
フォルダー内のファイル
項目をシート名で作成
ブックの操作
CSVファイルの取り込み
呼び出し元・先
商品マスター検索
エクセル関数をVBAで
エクセル関数を使う
よくつかうプログラム
販売管理(ソース)
財務管理(ソース)
給与管理(概要・画面)
見積もり(概要・画面)
工程管理(概要・画面)
原価管理(概要・画面)