[[20190714180011]]　『名前をつけて保存が途中で止まってしまう』（夏子）　ページの最後に飛ぶ

『名前をつけて保存が途中で止まってしまう』（夏子）

以下の名前をつけて保存するマクロを組みましたが、「ReadOnlyRecommend」の所で
止まってしまいます。
なぜここで止まるかわかりません。
ちなみに、この保存しようとしているファイルは、
マクロ.xlsx で保存先シートA1に保存先のパスとファイル名があります。
このファイルは読み取り専用です。

Dim A As String
A = ActiveWorkbooks.Worksheets("保存先").Range("A1")
ActiveWorkbooks.SaveAs filename:=
A,FileFormat:=xlOpenＸＭＬWorkbooksMacroEnabled,Password:="",
WriteResPassword:="",_

ここで止まります→ReadOnlyRecommend:=True,CreateBackup:=False

＜使用 Excel：Excel2010、使用 OS：Windows8 ＞

＞マクロ.xlsx

マクロ.xlsm　では？

（マナ） 2019/07/14(日) 18:24

止まるというのは？

エラーになるということ？

それともなにか入力を求められるということ？

前者ならSaveAsの　ステートメントでエラーになっているはずなので
ReadOnlyRecommend　でのエラーとは特定できないと思いますが・・・

マナさんのご指摘での拡張子違いでのエラーならば。その旨のエラーメッセージが出ると思います
（こちらの環境で確認しました）

（渡辺ひかる） 2019/07/14(日) 18:51

 なんか改行が不自然すぎるので、実際のコードを載せた方が良い。
（BJ） 2019/07/14(日) 19:02

名前がややこしくてすみません。
マクロ.xlsxはあっており、マクロという名前がついてますが、
マクロが組まれていないただのxlsxのファイルになっています。
しかし、
実行時エラーが1004で、
この拡張子は、選択したファイル形式には使用できません。
と出ました。

（夏子） 2019/07/14(日) 19:18

実行時エラーが1004で、この拡張子は、選択したファイル形式には使用できません。と出ました。

これが出るという事は、マクロが含まれていると判断されているという事だと思います
空のモジュール、空のユーザーフォームが　登録されているだけでも　マクロファイルと認識されます

保存したいExcelファイルを眺めてみて　標準モジュール、ユーザーフォームがないかどうか確認してみてください

（渡辺ひかる） 2019/07/14(日) 19:23

＞FileFormat:=xlOpenＸＭＬWorkbooksMacroEnabled

なぜ？

（マナ） 2019/07/14(日) 19:28

マナさんがビンゴかも
（渡辺ひかる） 2019/07/14(日) 20:03

今回参考にしたファイルがマクロが登録された.xlsmのファイルから
マクロコードをコピペしたためそのようなコードになってしまっています。
やはりマクロ.xlsxにはマクロは登録されていないようです。

（夏子） 2019/07/14(日) 20:46

マナさん指摘の　ファイルフォーマットは？

現在のコードでは　マクロ付きのExcelファイルとして保存するという命令になっているという事ですよ？

（渡辺ひかる） 2019/07/14(日) 20:51

xlOpenXMLWorkbookにしたら動きました(>_<)
マクロ初心者で全くわかっておらず、失礼しました。
皆さんのアドバイスのおかけです。
ありがとうございましたm(__)m
（夏子） 2019/07/14(日) 20:57

再度、質問させてください。
マクロ.xlsx が元々読み取り専用ファイルだったため、上記マクロを
実行して出来上がったファイル◯◯◯.xlsxを開けると「◯◯◯.xlsxを保存する
必要がなければ、読み取り専用で開いてください。読み取り専用で開きますか?」
というメッセージが出てしまいます。
これを出さずに書き込みできるファイルとして保存するには、
上記のマクロにどのようなコードを足したらいいのでしょうか?
（夏子） 2019/07/14(日) 23:08

 そうなるように、こんなことを書いていないですか？　書いていたら削除してみて下さい。
　 　　　　　　　　↓
 ReadOnlyRecommend:=True

（半平太） 2019/07/14(日) 23:42

半太郎さん
書いておりました(^_^;)
削除して動かすと、思うように保存が出来ました。
ありがとうございました。
（夏子） 2019/07/15(月) 00:27

コメント返信：

[ 一覧(最新更新順) ]

[[20190714180011]] 『名前をつけて保存が途中で止まってしまう』（夏子） ページの最後に飛ぶ

[[20190714180011]]　『名前をつけて保存が途中で止まってしまう』（夏子）　ページの最後に飛ぶ