【Excel】csvファイルから追記の形で転記したい。

Question

######■環境
Excelを使用

######■やりたいこと
csvファイルに入力されたセル(行数不明)を別のブックのシートの既に記入されている行の下にそのまま転記したい。

######■以下のVBAでやっていること(予想)
1.Cフォルダから目的のcsvファイルを選択する。
2.選択したファイルから、入力されているセルを選択し変数にする。
3.転記先ファイルを変数にする。
4.転記先ファイルに既に入力されたセルの最終行の1つ下のセル座標を取得し、変数にする。
5.4.で取得したセルを起点にして2.のセルの集まりを貼り付ける。

Sub mistumori()
    '転記するcsvシートを選択する。
    Dim myFile As Variant
    ChDir "C:\"
    myFile = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", Title:="CSVファイルの選択", MultiSelect:=True)

    'ファイルパスが選択されない場合は処理終了
    If IsArray("myFile") = False Then
        Exit Sub
    End If

    '転記する情報を取得
    Dim tenki As Range
    Set tenki = myFile.UsedRange

    '転記先シートを変数にセット
    Dim ws1 As Worksheet
    Set ws1 = Worksheets("転記シート")
    '転記先シートの最終行の次のセルを取得
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    
    tenki.Value = ws1.Range(LastRow)
    
End Sub

色々なサイトを参考にして切り貼りしているので、おかしいところがあるかと思います。
現状、エラーは表示されないものの欲しい結果を得られていません。
最後の「tenki.Value = ws1.Range(LastRow)」が原因だと思いますので、どう修正したら転記できるがご教授お願いします。

###追記：
自分なりに作成して期待していた結果を得る事が出来ました。

Sub tenki()
    '変数
    Dim csv As Variant '転記元csvシート_拡張子付き
    Dim csvfile As Workbook '転記元csvシート_オブジェクト
    Dim csvname As String '転記元csvの名前
    Dim csvsheet As String '転記元csvのシート名
    Dim tenki1 As String '転記元セル
    
    '転記するcsvシートを選択する。
    ChDir "C:\"
    csv = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", Title:="CSVファイルの選択")
    If OpenFileName <> "False" Then
        Workbooks.Open csv
        'ファイル名を取得
        csvname = Dir(csv)
        'シート名を取得
        csvsheet = ActiveSheet.Name
    Else
        MsgBox "キャンセルされました"
    End If

    '転記するデータを取得
    Workbooks(csvname).Activate
    ActiveSheet.UsedRange.Select
    tenki = Selection.Address
    
    '転記する
    Worksheets(csvsheet).Range(tenki).Copy _
        Destination:=ThisWorkbook.Worksheets("<転記先ファイルのシート名>").Range("<転記先シートの起点となるセル座標>")
        
    'コピーを解除
    Application.CutCopyMode = False

    'csvファイルを閉じる(保存無し)
    ActiveWorkbook.Close SaveChanges:=False
End Sub

Answer 1

https://www.tipsfound.com/vba/18014

↑こんな方法もあります。

Comments

[zazabi]

コメントありがとうございます。
参考にさせていただきます。

Answer 2

現状、エラーは表示されないものの欲しい結果を得られていません。

    If IsArray("myFile") = False Then
        Exit Sub
    End If

"myFile"は単なる文字列で配列ではないので、上記の部分で必ず処理か終了しますので、エラーは表示されないですが、なにもしてないのと同じことです。

正解のコードを書くのは簡単ですか、

色々なサイトを参考にして切り貼りしているので、おかしいところがあるかと思います。

色々なサイトを参考にするのはいいのですが、そのコードの意味も調べずにただ切り貼りするだけではうまくいきません。意味を理解して適正な場所に適切にコードを記述するようにしないと。

とりあえずヒントとして処理の流れを書いておきますのでそれを参考にコードを書きなおしてみてください。

1. GetOpenFilenameでCSVファイルを選択させる。

（選択するのは一つなのか複数選択を許可するのでコードが異なるのでどちらか決めてください。）

1. 選択したCSVファイルを Workbooks.Open で開く。

2. 開いたシートのUsedRangeでデータのある範囲を取得。

3. 転記先シートの最終行の次のセルを取得。

4. 3.で取得したデータ範囲を4.のセルにコピーする。

(Copyメソッドを使うのが簡単、Valueで代入する場合はサイズを合わせる必要がある)

Comments

[zazabi]

コメントありがとうございます。
厳しいお言葉とヒントをありがとうございます。
自分でもう一度丁寧に1つ1つ調べてやってみます。