回答編集履歴
2
こちらかがいいかも
answer
CHANGED
|
@@ -20,6 +20,8 @@
|
|
|
20
20
|
|
|
21
21
|
Tisworkbook.sheets(1).Range("C54").Value = wb.Worksheets(1).Range("C54").Value
|
|
22
22
|
|
|
23
|
+
wb.Close savechanges:=False
|
|
24
|
+
|
|
23
25
|
set wb = nothing
|
|
24
26
|
|
|
25
27
|
End Sub
|
1
こちらかがいいかも
answer
CHANGED
|
@@ -2,6 +2,15 @@
|
|
|
2
2
|
|
|
3
3
|
wwbとはなんでしょうか・・。
|
|
4
4
|
|
|
5
|
+
マクロを実行したファイルを見失いために、
|
|
6
|
+
Thisworkbook.sheets(1).range("XX")
|
|
7
|
+
開いたファイルはwb.sheets(1).range("XX")
|
|
8
|
+
とするなどして見失わないようにします。
|
|
9
|
+
|
|
10
|
+
マクロの延長で考えるとselect とかactive copyなどの命令で記述しがちですが
|
|
11
|
+
|
|
12
|
+
下記のように記述するとよろしいかと思います。
|
|
13
|
+
|
|
5
14
|
```vba
|
|
6
15
|
Sub test()
|
|
7
16
|
|