[VBA]別シートから値のみをコピーしたいがコンパイルエラーと出る

前提・実現したいこと

VBAで別のファイルを開き、セルの値を元々開いていたファイルにコピーしたいのですが、
値のみをコピーする際にコンパイルエラーと出てしまいます、、
色々調べてみたのですが、皆さんこのコードで上手くいってるみたいなので、
どうしたら良いのかわからず詰んでいます…
お知恵を貸してください、、よろしくお願い致します…

エラーが出る箇所

 Workbooks("管理表イメージ - コピー").Sheets("2019年10月").Range("A3").PasteSpecial xlPasteValues

該当のソースコード

Sub import_excel()

    Dim export  'Excelファイルのシート名を入れ込む変数'
    Dim Import_File  'Excelファイルに取り込むExcelファイルの名前を入れ込む変数'
    
    export = ActiveSheet.Name  '現在アクティブなシート名を変数 export に入れ込む'
    
    'エクセルファイルを選択する
    Import_File = Application.GetOpenFilename("ブック, *.xlsm")
    'キャンセルなら終了
    If Import_File = "False" Then Exit Sub
    
    'テーマをA3に入れる
    With Workbooks.Open(Import_File)
        
    Cells.Select
    Selection.UnMerge
    
    Sheets(1).Range("E6").Copy _
    Workbooks("管理表イメージ - コピー").Sheets("2019年10月").Range("A3").PasteSpecial xlPasteValues

  End With
  
  '全てのエクセルファイルに同処理をする
  
    
End Sub

ツールのバージョン

Excel 2016

y_waiwai

2019/10/12 14:05

エラーメッセージを提示しましょう

Jonny_dayo

2019/10/12 14:08

大変失礼いたしました！エラーメッセージ追記させて頂きました、ご指摘ありがとうございます！

行動規範の内容に同意します

回答1件

ベストアンサー

Copy の後ろにある" _"を取ってみたらどうなりますでしょうか。

VBA
1Sheets(1).Range("E6").Copy
2Workbooks("管理表イメージ - コピー").Sheets("2019年10月").Range("A3").PasteSpecial xlPasteValues
3'Sheets(1).Range("E6").Copy _
4'Workbooks("管理表イメージ - コピー").Sheets("2019年10月").Range("A3").PasteSpecial xlPasteValues
5```---
6＜追記＞セルに値を代入するやり方もありますので、試してみてください。
7```VBA
8With Workbooks.Open(Import_File)
9    .Cells.UnMerge
10    Workbooks("管理表イメージ - コピー").Worksheets("2019年10月").Range("A3").Value = _
11    .Worksheets(1).Range("E6").Value
12End With