マクロに別ブックからの値を埋める

前提・実現したいこと

別ファイルからの値をリストのあるファイルのセルに移したい。
別ファイルは種類が多いので、ファイル名を別のセルに埋め込むたびに
自動で反映するよう、それぞれのセルに別ファイルを参照する関数
(='C:\data\リスト[AD-2-1.xlsm]AD-2-1'!$C$12)
を埋め込みたいのですがやり方がわかりません。

わかる方はご教授お願いします。

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

コンパイルエラーです。

該当のソースコード

VBA
1Sub tes()
2    Dim i As Long, j As Long, k As Long, r As Long
3    Dim c As String
4
5    r = 3
6    For i = 1 To 2
7        c = Chr(i + 64)
8        For j = 2 To 3
9            For k = 1 To 10
10                Range("D" & r).Value = "A" & c & "-" & j & "-" & k
11                Range("A" & r).Value ='C:\data\リスト["A" & c & "-" & j & "-" & k.xlsm]"A" & c & "-" & j & "-" & k'!H6
12                r = r + 1
13                
14            Next k
15        Next j
16    Next i
17End Sub
18

meg_

2020/12/14 10:56

エラーはどこで発生していますか？

memem12

2020/12/14 23:38

Range("A" & r).Value ='C:\data\リスト\["A" & c & "-" & j & "-" & k.xlsm]"A" & c & "-" & j & "-" & k'!H6 A列にブックからの値を入力するあたりで手書きによるミスができています。

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

回答1件

ベストアンサー

別ファイルは種類が多いので、ファイル名を別のセルに埋め込むたびに

自動で反映するよう、それぞれのセルに別ファイルを参照する関数
(='C:\data\リスト[AD-2-1.xlsm]AD-2-1'!$C$12)
を埋め込みたいのですがやり方がわかりません。

外部参照式を設定したいということでしょうか。

vba
1Sub tes()
2    Dim i As Long, j As Long, k As Long, r As Long
3    Dim c As String
4
5    r = 3
6    For i = 1 To 2
7        c = Chr(i + 64)
8        For j = 2 To 3
9            For k = 1 To 10
10                Dim s As String
11                s = "A" & c & "-" & j & "-" & k
12                Range("D" & r).Value = s
13                Range("A" & r).Formula = "='C:\data\リスト[" & s & ".xlsm]" & s & "'!H6"
14'                Range("A" & r).Value = Range("A" & r).Value '式を値に変換したい場合はコメントを外す
15                r = r + 1
16            Next k
17        Next j
18    Next i
19End Sub