エクセル 保存是非のダイアログを出さずに保存VBA

質問

エクセル　保存是非のダイアログを出さずに保存VBA

エクセルファイルの
ひとつのブック L.xlsxの特定のセルを
別のブックR.xlsxのセルにコピーするを
VBAコードで　コピーまでは出来たのですが
R.xlsxのブックを保存するかどうかの
ダイアログが出てしまいます
これが出ないで保存できるように
ActiveWorkBook.Save
これを入れてもやはり保存是非の確認が
出てしまいます
コードは
--------------------
Sub ID移動()
Dim x As Workbook
Dim y As Workbook
Workbooks.Open Filename:="C:\Users\USER\Desktop\ACCESS\L.xlsx"
Set x = Workbooks("L.xlsx")
Workbooks.Open Filename:="C:\Users\USER\Desktop\ACCESS\R.xlsx"
Set y = Workbooks("R.xlsx")
y.Sheets("sheet1").Range("A2") = x.Sheets("output").Range("B2")
x.Close
y.Close
ActiveWorkBook.Save
End Sub
------------------
保存是非のダイアログがでないで
保存できるための方法を
御教示いただけますか
win10 office365
すみませんが
宜しくお願い致します

回答No.1

kkkkkm · ベストアンサー

R.xlsxを保存せずにクローズしているので保存してからクローズすればいかがでしょう。

y.Sheets("sheet1").Range("A2") = x.Sheets("output").Range("B2")
y.Save
x.Close
y.Close

お礼

あっけなく出来ました。有り難うございました。

Powered by GRATICA