VBA #VALUE!エラーの解決方法

Question

前提・実現したいこと

いつもお世話になっております。
VBAで転換マクロツールを作っています。

下記に示すようにのコードを書いており
18~22行目の文中の転換抽出先のセルの記述をA2,A3からC2,C3に変更したところ、
(転換抽出元のエクセルファイルのG2,H2のセルの記述を、転換抽出先のエクセルファイルのC2,C3に書き出すというVBAの記述です。)
C2,C3が#VALUE!と表示されるエラーになってしまいます。

抽出先がA2,A3の際は正常に動いていました。
エラーとなる原因・ヒント等、おわかりになれば教えて頂けないでしょうか。

発生している問題・エラーメッセージ

#VALUE!

該当のソースコード

Public Sub Converter() '変数定義

    Dim ftype As Variant
    Dim fpath As Variant
    Dim str As Variant
    Dim Target As Workbook 'コンバートモジュール
    
    ftype = "Microsoft Excelブック,*.xls?"  '選択できるファイルはエクセルファイルのみ
    fpath = Application.GetOpenFilename(ftype, , "") 'ファイル参照ダイアログの表示,ftype=fpath

    Debug.Print fpath
    If fpath = False Then
       Exit Sub 'Endで強制終了はよろしくない。ダイアログでキャンセルボタンが押された場合は処理を終了します。
    End If
    
    Set Target = Workbooks.Open(fpath)
    
    Target.Sheets(1).Range("G2").Copy ThisWorkbook.Sheets(2).Range("C2") 
    Target.Sheets(1).Range("H2").Copy ThisWorkbook.Sheets(2).Range("C3")
    
    ThisWorkbook.Sheets(2).Range("C2:C3").Value = ThisWorkbook.Sheets(2).Range("C2:C3").Value '数式→数値変換
    ThisWorkbook.Sheets(2).Range("C2:C3").NumberFormatLocal = "yyyymmdd"
    
    Target.Close '※開いたブックは閉じておく
    Set Target = Nothing '念のため、変数開放

Dim sh As Worksheet 'csv保存モジュール
Set sh = Worksheets(2)
sh.SaveAs Filename:="C:\Work\出力先\test.csv", FileFormat:=xlCSV
str = FormatYYYYMMDD(2020, 3, 1)
MsgBox (str) 'yyyymmdd出力用

End Sub

Public Function FormatYYYYMMDD(ByVal yyyy As Variant, ByVal mm As Variant, ByVal dd As Variant) As String
    FormatYYYYMMDD = Format(yyyy * 10000 + mm * 100 + dd, "00000000")
End Function

試したこと

転換抽出先が、A2,A3だった時はエラーを吐かずに,1900101,19000102というように文字列→数値に変換して数値が正常に表示されていました。
(日付表示のVBAを実装するために、A、B列に2020年、3月という風に表示して前回のものより変更しています。)

コードの記述をA2,A3に戻したところ正常に動作します。
C2,C3の時は何故#VALUE!になるのか原因がわかりません。

補足情報（FW/ツールのバージョンなど）

Windows10,Excle2016

Answer 1

単純なページでは再現しませんでしたので、原因はわかりませんでした。
やりたいことは結局のところ値のコピーと思われるので、次のようなコードにしたらどうでしょうか。

Set Target = Workbooks.Open(fpath)

Target.Sheets(1).Range("G2").Copy
ThisWorkbook.Sheets(2).Range("C2").PasteSpecial xlPasteValues
Target.Sheets(1).Range("H2").Copy
ThisWorkbook.Sheets(2).Range("C3").PasteSpecial xlPasteValues
ThisWorkbook.Sheets(2).Range("C2:C3").NumberFormatLocal = "yyyymmdd"

Target.Close '※開いたブックは閉じておく
Set Target = Nothing '念のため、変数開放

Comments

[r_o_234]

ttyp03さん

ありがとうございます！助かりました。

毎度ありがとうございます。
ご教授頂いたコードに変更した所、正常に動作しました。
助かりました。エラーの原因は不明ですが、このコードで開発を進めさせて頂きます。

ありがとうございました！