質問: False 'csvファイルを閉じる(保存無し) ActiveWorkbook.Close SaveChanges:=False End Sub ```
回答: > > 現状、エラーは表示されないものの欲しい結果を得られていません。 > > > ``` If IsArray("myFile") = False Then Exit Sub End If ``` `"myFile"`は単なる文字列で配列ではないので、上記の部分で必ず処理か終了しますので、エラーは表示されないですが、なにもしてないのと同じことです。 正解のコードを書くのは簡単ですか、 > > 色々なサイトを参考にして切り貼りしているので、おかしいところがあるかと思います。 > > > 色々なサイトを参考にするのはいいのですが、そのコードの意味も調べずにただ切り貼りするだけではうまくいきません。意味を理解して適正な場所に適切にコードを記述するようにしないと。 とりあえずヒントとして処理の流れを書いておきますのでそれを参考にコードを書きなおしてみてください。 1. GetOpenFilenameでCSVファイルを選択させる。 (選択するのは一つなのか複数選択を許可するのでコードが異なるのでどちらか決めてください。) 2. 選択したCSVファイルを Workbooks.Open で開く。 3. 開いたシートのUsedRangeでデータのある範囲を取得。 4. 転記先シートの最終行の次のセルを取得。 5. 3.で取得したデータ範囲を4.のセルにコピーする。 (Copyメソッドを使うのが簡単、Valueで代入する場合はサイズを合わせる必要がある)