EXCEL VBA CSVファイルの読み込み・テキストファイルを開く・ワークシートへ転記（自動読み込み・複数読み込み）

EXCEL VBA CSVファイルの読み込み・テキストファイルを開く・ワークシートへ転記（OpenTextメゾット自動読み込み・複数読み込み）

EXCEL VBA テキストファイル・CSVファイルの読み込み・プログラムを実行したブックにワークシートを追加してデータ転記

'
'
Sub OpenText01()  'EXCEL VBA テキストファイル・CSVファイルの読み込み・プログラム実行したブックのワークシートへ転記

    Dim OpenWs As Worksheet


    Call Workbooks.OpenText(Filename:="C:\Users\akira\OneDrive\デスクトップ\Sample.txt", DataType:=xlDelimited, Comma:=True)
    '指定したテキストファイルを読み込みます｡
    
    Set OpenWs = Workbooks.Item(Workbooks.Count).Sheets(1)
    '読み込んだテキストファイルをワークシート１番目にセットします。
    
    Call OpenWs.Move(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    ' VBAを実行しているブックのワークシートの最後に追記します。


End Sub
'

EXCEL VBA テキストファイル・CSVファイルの読み込み・プログラムを実行したブックに指定したワークシートにデータ転記

'
'
Sub OpenText02() 'EXCEL VBA CSVファイルの読み込み・プログラム実行した指定ワークシートへ転記



    Dim OpenWb As Workbook
    Dim OpenWs, ws01 As Worksheet
    
    Call Workbooks.OpenText(Filename:="C:\Users\akira\OneDrive\デスクトップ\Sample.csv", DataType:=xlDelimited, Comma:=True)
    '指定したCSVファイルを開きます。

    Set OpenWb = Workbooks.Item(Workbooks.Count) ' 読み込んだ CSV のワークブックをセット
    Set OpenWs = OpenWb.Sheets(1)                 ' 読み込んだ CSV の「シート1」をセット
    Set ws01 = ThisWorkbook.Worksheets("DATA")  '転記先のシート名をセット
    
    ws01.Cells.Clear '転記先のシートをクリアーする。
    
    OpenWs.UsedRange.Copy ' 読み込みんだCSV のデータの範囲をコピーする。
    Call ws01.Range("A1").PasteSpecial(xlPasteAll) ' 選択しているシートの セル「A1」より全てのデータを貼り付ける。
    Application.CutCopyMode = False                 ' コピー状態を解除
    
    OpenWb.Close (False)      ' CSVファイル のワークブックを閉じる
    

End Sub
'

EXCEL VBA 複数のテキストファイル・CSVファイルを読み込み順番にワークシートへデータ転記する。

'
'
Sub OpenText03() 'EXCEL VBA 複数CSVファイルの読み込み・ワークシート別に転記

    Dim OpenWs As Worksheet
    Dim Button As Integer
    Dim OpenCSVFilename, CSVFilename, CSVFilePath, FileName As String
     
     
    Application.DisplayAlerts = False  '確認メッセージを無効化します。
        
    Button = MsgBox("CSVファイル取込処理を行いますか？", vbYesNo + vbQuestion, "確認")
    
    If Button = vbYes Then
            
            OpenCSVFilename = Application.GetOpenFilename("Microsoft Excelブック,*.csv")  'ダイアログを表示、取り込むフォルダーにあるCSVファイルを選択します。
            
            If OpenCSVFilename <> "False" Then
                CSVFilename = Dir(OpenCSVFilename)  '指定したファイルパスからファイル名を代入します。
                CSVFilePath = Replace(OpenCSVFilename, CSVFilename, "")  '指定したファイルパスを指定します。（ファイルパスからファイル名を取り除く）
                        
                MsgBox CSVFilePath & "この選択フォルダからデータを読込み込みます。"
               Else
                    MsgBox "キャンセルされました"
                    Exit Sub  'キャンセルでプログラムを終了します。
                
            End If
        
            FileName = Dir(CSVFilePath & "*.csv")  '指定したフォルダーから一件目のCSVファイルを指定します。

            
            Do While FileName <> ""    '①・・読み込むCSVファイルがなくなるまで繰り返す。
                        
                Call Workbooks.OpenText(FileName:=FileName, DataType:=xlDelimited, Comma:=True)
                'CSVファイルを読み込みます｡
                
                Set OpenWs = Workbooks.Item(Workbooks.Count).Sheets(1)
                '読み込んだCSVファイルをワークシートをセットします。
                
                Call OpenWs.Move(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
                ' VBAを実行しているブックのワークシートの最後に追記します。
            
                FileName = Dir() '次のファイルを指定する。
            
            Loop  ' '読み込むCSVファイルがなくなるまで繰り返す。①・・へ繰り返す
            
        Else
            MsgBox "処理を中断します"
    End If
    

    Application.DisplayAlerts = False  '確認メッセージを有効化します。


End Sub
'
'