[[20200522183758]]　『閉じているブックのデータを取得』（ＴＷＳ）　ページの最後に飛ぶ

『閉じているブックのデータを取得』（ＴＷＳ）

閉じでいるブック:Book1のリンク先を開いているブックのSheets("リンク先").A1のセルに、
"'C:\Users\ymskb\OneDrive\デスクトップ\[Book1.xlsm]休日リスト'!a2"
というリンク先を入力しています。

しかし、下記のコードではA1セルのデータをリンク先として認識しません。
どうかご教授お願いします。

Dim x, y As Worksheet
Dim e As String

Set x = Sheets("リンク先")

    e = x.range("a1").Value

    With Sheets("休日リスト").Range("a2:ag200")
        .Formula = "=if(" & e & "="""",""""," & e & ")"
        .Value = .Value
    End With

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 >.Value = .Value

 これをとっぱらって、結果を見れば良い良いんじゃないですか。
（BJ） 2020/05/22(金) 19:23

とりあえず、「e」ってどこで取得してるんですか？
↑も含めて、Sub～End Sub までがプロシージャと呼ばれる一つの塊ですから、数行くらい横着せずに提示したほうがお互い誤解がなくてよいと思います。
（もちろんシートの名前などがばれては困る場合は、適宜変えても問題ないです）

また、↓の書き方だとxはVariant型になります。

 Dim x, y As Worksheet

（もこな２） 2020/05/22(金) 20:14

もこな２さん、説明内容に不足があり申し訳ありません。

 e = x.range("a1").Valueのところを 
 e = "'C:\Users\ymskb\OneDrive\デスクトップ\[Book1.xlsm]休日リスト'!a2" 
 であるとうまくいくのですが、読み込むブックの保存先を変えることがありますので、Sheets("リンク先").A1のセルのリンク先を設定したいのです。

現在は下記のコードが入力されています。どうかよろしくお願いします。

Private Sub Workbook_Open()

 Dim x, y As Worksheet 
 Dim e As String

 Set x = Sheets("リンク先")

    e = x.range("a1").Value

    With Sheets("休日リスト").Range("a2:ag200")
        .Formula = "=if(" & e & "="""",""""," & e & ")"
        .Value = .Value
    End With

End Sub
（ＴＷＳ） 2020/05/23(土) 10:11

 何度も言わすな。

 >.Value = .Value

 これをとっぱらって、結果を見れば良い良いんじゃないですか。

 接頭辞

（BJ） 2020/05/23(土) 14:13

コメント返信：

[ 一覧(最新更新順) ]

[[20200522183758]] 『閉じているブックのデータを取得』（ＴＷＳ） ページの最後に飛ぶ

[[20200522183758]]　『閉じているブックのデータを取得』（ＴＷＳ）　ページの最後に飛ぶ