VBAで入力した値を、別ブックに出力する方法を教えてください。

前提・実現したいこと

VBA・プログラミング初心者です。
VBAで一覧.xlsxの「一覧表」シートに記載した値を、ひな形.xlsxの「Sheet2」シートに値出力する方法を教えてください。

実施したいこと
①一覧.xlsxの「一覧表」シートに記載した値を、ひな形.xlsxの「Sheet2」シートに値出力
②ひな形.xlsxを別名で保存

※ひな形.xlsxの6行目までがひな形です。7行目以降は記載例です。

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

9行目
インデックスが有効範囲にありません。

該当のソースコード

VBA
1Sub 表作成()
2
3    'ひな形ファイルを開く
4    ファイルパス = "C:\Users\Desktop\新しいフォルダー"
5    ファイル名 = "\ひな形.xlsx"
6    Workbooks.Open Fiename:=ファイルパス & "\" & ファイル名
7
8    '管理番号を一覧表からひな形ファイルに値を投入
9    Workbooks("一覧.xlsｍ").Worksheets("一覧表").Range("B1").Value = Workbooks("ひな形.xlsx").Worksheets("Sheet2").Range("C3").Value
10
11    'ダイアログで保存先・ファイル名を指定
12    Dim strFilePath As String
13    strFilePath = Application.GetSaveAsFilename
14 
15    '名前を付けて保存
16    Workbooks("ひな形.xlsx").SaveAs strFilePath
17
18End Sub

imihito

2019/12/08 13:32

1. どの行でエラーメッセージが表示されているのですか？ 2. 「ひな形.xlsx」と「ひな形.xls」のふたつの表記がありますが、それは意図したとおりですか？

meg_

2019/12/08 14:02

「ファイルパス & "\" & ファイル名」ですと、”C:\Users\Desktop\新しいフォルダー\\ひな形.xlsx”となりバックスラッシュが2つ続くかと思うのですが、このコードはマクロのコードそのものですか？

imihito

2019/12/08 22:37

追加の確認で申し訳ありませんが、プロシージャが書かれているのはどのブックですか？画像や説明では「一覧.xlsx」となっていますが、VBAのコード中では「一覧.xlsm」となっているので

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

回答1件

###回答
私の環境で動かしてみました。
Workbooks.Openがうまく動かなかったため、少し変えてます。（質問者様の環境では、動いているみたいなので、気にしないでください。）
あと、日本語の変数名は慣れていないため、変えさせて頂きました。

エラーの原因ですが．．．
xlsmが全角になっているため、「インデックスが有効範囲にありません。」が出ていたようです。また、一覧.xlsmはマクロ自身なので、「Workbooks("一覧.xlsｍ")」は省略できるかと思います。
ついでに、入力先は「ひな形.xlsx」なので、右辺と左辺が逆です．

Error
1'管理番号を一覧表からひな形ファイルに値を投入
2    Workbooks("一覧.xlsｍ").Worksheets("一覧表").Range("B1").Value = Workbooks("ひな形.xlsx").Worksheets("Sheet2").Range("C3").Value
3

以下のコードで動作しましたので、ご確認ください。

VBA
1Sub 表作成()
2
3    'ひな形ファイルを開く
4    Dim FileDir As String
5    Dim FileName As String
6    Dim FilePath As String
7    FileDir = "C:\Users\user1\Documents\VBA" '自分のパスにしてください
8    FileName = "\ひな形.xlsx"
9    FilePath = FileDir & "\" & FileName
10    Workbooks.Open FilePath
11
12    '管理番号を一覧表からひな形ファイルに値を投入
13    '[変更前]
14    '「Workbooks("一覧.xlsm")」の拡張子が全角になってます．※これが原因でインデックス範囲外エラーが出てました．
15    '入力先は「ひな形.xlsx」なので、右辺と左辺が逆です．
16    'Workbooks("一覧.xlsｍ").Worksheets("一覧表").Range("B1").Value = Workbooks("ひな形.xlsx").Worksheets("Sheet2").Range("C3").Value
17    '[変更後]
18    Workbooks("ひな形.xlsx").Worksheets("Sheet2").Range("C3").Value = Workbooks("一覧.xlsm").Worksheets("一覧表").Range("B1").Value
19
20
21    'ダイアログで保存先・ファイル名を指定
22    Dim strFilePath As String
23    strFilePath = Application.GetSaveAsFilename
24
25    '名前を付けて保存
26    Workbooks("ひな形.xlsx").SaveAs strFilePath
27
28End Sub