66

view

マクロでどの処理を自動でやりたいのかいまいち質問文から読み取ることができませんが、元のデータをファイル形式（１日１ファイル）で持っている場合にファイルデータを読み込み、既存のシートの最終行＋１行（空白行）の後にデータをコピーする。と仮定してマクロで作ってみました。とりあえずシートの切り替わりのタイミングで動作するマクロですがエクセルのファイルオープン時や、ボタン押下時などタイミングは好みで変えて下さい。＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊Private Sub Worksheet_Activate() Dim SheetName1 As String 'シート名称 Dim SheetName2 As String 'シート名称 Dim Sh1 As Worksheet Dim Sh2 As Worksheet Dim File種類, Prompt As String Dim FileNamePath As Variant Dim RowMax As Integer 'データ最終行数を取得 '現在のファイル SheetName1 = ActiveSheet.Name Set Sh1 = Worksheets(SheetName1) 'ファイルのパスを取得 File種類 = "テキストファイル(*.txt),*.txt,ＣＳＶファイル(*.csv),*.csv" Prompt = "ファイルを指定してください" FileNamePath = SelectFileNamePath(File種類, Prompt) 'キャンセルボタンが押された If FileNamePath = False Then End End If 'ファイルを開く Workbooks.Open Filename:=FileNamePath '選択したファイル SheetName2 = ActiveSheet.Name Set Sh2 = Worksheets(SheetName2) 'ファイル内容をコピーする RowMax = Sh2.Cells(Sh2.Rows.Count, 1).End(xlUp).Row Sh2.Range(Sh2.Cells(1, 1), Sh2.Cells(RowMax, 1)).Select Selection.Copy 'ファイルをクローズする Workbooks(Dir(FileNamePath)).Close 'ファイル内容を貼り付ける RowMax = Sh1.Cells(Sh1.Rows.Count, 1).End(xlUp).Row Sh1.Cells(RowMax + 2, 1).Select ActiveSheet.PasteEnd SubFunction SelectFileNamePath(File種類, Prompt) As Variant SelectFileNamePath = Application.GetOpenFilename(File種類, , Prompt)End Function