[[20180301153115]]　『シート名を指定してCSVファイルの書き込み』（りん）　ページの最後に飛ぶ

『シート名を指定してCSVファイルの書き込み』（りん）

CSVファイルを開き『全データ』シートにその内容をコピーする、というマクロを作っていますが、シート名を指定してアクティブにしても別のシートに書き込みをしてしまいます。

シート追加で書き込む分には問題ないのですが『全データ』シートの内容を使って関数を組んでいるので、毎回追加と削除だと大変です。

下のコードでどこを修正すれば最初からある全データのシートに書き込みができるか、ご教示いただけるとありがたいです。

Sub DL()

    Dim varFileName As Variant

    varFileName = Application.GetOpenFilename(FileFilter:="CSVファイル(*.csv),*.csv", _
                                        Title:="CSVファイルの選択")
    If varFileName = False Then
        Exit Sub
    End If

    Workbooks.Open Filename:=varFileName
    ActiveSheet.Name = ActiveWorkbook.Sheets.Count

    ActiveSheet.Cells.Copy

    Worksheets("全データ").Activate

    ThisWorkbook.ActiveSheet.Cells
    ActiveWorkbook.Close SaveChanges:=False

End Sub

＜使用 Excel：Excel2010、使用 OS：WindowsXP ＞

 マクロの記録でデータ-外部データの取り込み-テキストファイルを記録してそれを参考にしてみてはどうか？
（ねむねむ） 2018/03/01(木) 15:48

ねむねむ様

すみません。自動記録を見ても謎が解けなかったのでこちらで質問させていただいたのですが……どうもありがとうございました。
（りん） 2018/03/02(金) 13:40

 >   ActiveSheet.Cells.Copy
 >   Worksheets("全データ").Activate
 >   ThisWorkbook.ActiveSheet.Cells

 を
 ActiveSheet.Cells.Copy ThisWorkbook.Worksheets("全データ").Cells
 かな？

（seiya） 2018/03/02(金) 13:56

seiya様

ありがとうございます！できました！シート名、そこに入れるのですね！覚えました！
（りん） 2018/03/02(金) 14:15

コメント返信：

[ 一覧(最新更新順) ]

[[20180301153115]] 『シート名を指定してCSVファイルの書き込み』（りん） ページの最後に飛ぶ

[[20180301153115]]　『シート名を指定してCSVファイルの書き込み』（りん）　ページの最後に飛ぶ