テキストボックスの値を他のブックのセルで表示したい

質問

ＥＸＣＥＬsolo365　Windows10です
(1)A.xism を開くとユーザーフォームが開く
(2)そのユーザーフォームにテキストボックス設置
(3)テキストボックスに2020/04/20と入力
(4)セル”A1”にも2020/04/20が表示される
これを、他ブックB.xlsmのセル　”Ｕ2”に直接リンクして
表示したいです。よろしくお願いします。

マクロの記録でやると、「worksheetクラスのPasteメソッドが
失敗しました。」のエラーが出てしまします。
Sub test()
Workbooks.Open Filename:=ThisWorkbook.Path & "A.xlsm"
Windows("A.xlsm").Activate
Range("A1").Select
Selection.Copy
Windows("B.xlsm").Activate
Sheets("CC").Select
Range("D1").Select
ActiveSheet.Paste Link:=True
End Sub

回答No.3

kkkkkm · ベストアンサー

> Ｂ.xlsm ブックは毎月１回、異なるシートに更新しますので

No2を回答するときにこの補足を見ていなかったのですが
シートは「CC」限定ではなく、コード実行時に選択されているシートにリンクする場合は

Sub test2()
Workbooks.Open Filename:=ThisWorkbook.Path & "\A.xlsm"
Windows("B.xlsm").Activate
ActiveSheet.Range("D1").Formula = "=[A.xlsm]Sheet1!$A$1"
End Sub

お礼

あありがとうございます。自分が思っているようにできました。感謝です。

回答No.4

imogasi

なんで複雑な問題にして（テキストボックスなど使って）考えるのか。あえて質問するなら、事情を書いておくべきと思う。
（１）テキストボックスを使うのは、テキストボックスに文字を打ち込み、それがいわった終わったことを知らせるため、コマンドボタンを１つ設けるようにすべきだろう。これが書いてないのはなぜ。
すると、コマンドボタンのクリックイベントで、
Private Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A1") = UserForm1.TextBox1.Text
End Sub
でA1セルに値がセットされる。
（２）他ブックのシートセルに値代入
両ブックを開いている状態で、
Sub test01()
x = Workbooks("コントロール動的作成.xlsm").Worksheets("Sheet1").Range("A1")
MsgBox x
Application.Windows("XXXX.xlsx").Activate
Workbooks("YYYY.xlsx").Worksheets(3).Range("B2").Value = x
End Sub
質問ではB2はU2ですが。
あと
・リンク貼り付けにする（上記は代入）
・ブックを開かないで行う
など積み残しているが、とりあえず、挙げます。
２つのブックをまたいで処理するのは、学習が初心者には大変で、出来れば避けるのが賢明かと。
　すでに出ている回答の方を検討すべきかと。

回答No.2

kkkkkm

ThisWorkbook.Path & "A.xlsm"
は
ThisWorkbook.Path & "\A.xlsm"
じゃないと開かないと思いますがタイプミスでしょうか。
全体的に以下のようにしてみてはいかがでしょう。
Sub test()
Workbooks.Open Filename:=ThisWorkbook.Path & "\A.xlsm"
Windows("B.xlsm").Activate
Sheets("CC").Select
Range("D1").Formula = "=[A.xlsm]Sheet1!$A$1"
End Sub

回答No.1

kkkkkm

B.xlsm のセルU2で「=」を入力してA.xlsmのセルA1を選択してリンクしておけばいかがですか。

補足

すみません。Ｂ.xlsm ブックは毎月１回、異なるシートに更新しますので、更新された時も自動でＡ.xlsm の日付を入れたいです。入れるセル番地はいつも同じにしたいです。