[[20201113023107]]　『マクロ付きシートを別のシートにコピー』（さりー）　ページの最後に飛ぶ

『マクロ付きシートを別のシートにコピー』（さりー）

過去に同じ質問をされてる方の投稿を見たのですが、２０１３年（だったか）頃のもので、かつVBAでコピーをする方法だったので再度質問させてください。

現在、マクロ付きのシートを別のシートにコピーする、という宿題をやっているのですがどうやってもエラーメッセージが出てしまいます。

手順としては、コピーしたいシートのタブを右クリック→移動もしくはコピー、をクリック。
移動したいシートを選び、コピーするにチェック。すると下記のようなエラーが出ます。

Path/File access error:￥BBDDB.temp

この二つのファイルは、MicrosoftExcel Macro-Enabled Worksheetとして保存されていますが、ここに原因がありますか？

以上よろしくお願いします。

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

 ファイルの拡張子が tmp だとすると、このあたりの情報が関連していないでしょうか。
https://itojisan.xyz/trouble/15141/

 作業をしている二つのファイルは、どこに保存されたファイルでしょうか。
 マイドキュメントや、C: や D: の直下にフォルダを作成して、そこに保存してからやってみても
 変わらないでしょうか。
（QS） 2020/11/13(金) 03:28

ありがとうございます。早速いただいた情報を見てTempの削除を試みましたがダメでした。
確かにコピーをすると必ずTempというフォルダが保存されてしまいます。
マイドキュメントにも保存してみましたがダメでした。
一つ懸念があるとすれば以前もう一台のパソコンと共有できるように設定したのですがそれが原因だとかんがえらますか？
だとするとその共有をはずす方法を教えていただけますでしょうか？
今色々とググってやってるのですがなかなか解決ができません・・

よろしくお願いします。
（さりー） 2020/11/13(金) 04:31

 今回は tmp ファイルが残るというよりは、tmp ファイルが保存できないというためのエラーに見えます。
 エラーからは、作成しようとしている場所のアクセス権が無かったり、変更しようとしたときに
 ロックされているようなケースがありそうですが、行っている操作は手作業によるものでしょうか。
 あるいは、マクロ処理を行っている最中でしょうか。

 あまり状況が見えないので「Path/File access error:」だけが現在のところの頼りですが、
下記のリンクの保存のオプション設定を確認してみてどうでしょうか。

https://stackoverflow.com/questions/50831902/what-is-the-cause-of-the-path-file-access-error-error

 日本語だと、
　　ファイル 　オプション  保存 の「自動回復用のファイルの場所」
 になります。

 このあたりを確認してみて、その場所に手作業でファイルの作成や削除ができるでしょうか。
（QS） 2020/11/13(金) 09:16

何度もありがとうございます。試してみましたがダメでした。
行ってる作業は手作業で、マクロが入ってるシートを別のシート（隣のシートではないです）にコピーをする。（本来ならば、タブから「コピーまたは移動」みたいなところでコピーができるそうなんです）

実は有料で教えてくれる人に聞いたのですが、テンポラリー的な対策として、マクロが入ってるシートを新しいエクセルファイルにいったんコピーしてみる、というのを教えてもらって遠隔操作してもらったらできたので、その後もう一度自分で別のシートで試してみたのですがまた同じエラーが出てしまいもうお手上げ状態です。
今アメリカ在住なんですが、日本で有料でエクセルを遠隔操作で教えてくれるサービスご存じではないでしょうか？一つ見つけて電話したら、「その問題は難しくてわかりません」と言われてしまいました。もしご存じでしたら教えていただけると幸いです。

よろしくお願いします。
（さりー） 2020/11/13(金) 12:49

 確認ですが、コピー元ファイルと、コピー先ファイルはどちらもローカルで
 OneDrive のようなクラウドではない環境、ということでよろしいでしょうか。

 コピー元のファイル名を「src.xlsm」
 コピー先のファイル名を「dst.xlsm」
 として開いた状態で、

 src.xlsm で Alt+F11 を押して開いたウィンドウで、
 挿入（Insert）から標準モジュール（Standard Module or Module）を選び、でたWindowに、

 Sub CopyWS()
    Dim srcWB As Workbook
    Set srcWB = Workbooks("src.xlsm")
    Dim dstWB As Workbook
    Set dstWB = Workbooks("dst.xlsm")
    srcWB.Worksheets(1).Copy After:=dstWB.Worksheets(dstWB.Worksheets.Count)
 End Sub

 Sub CopyWS() の行にカーソルを置いて、F5で実行するとどうなるでしょうか。

 日本では、リモートサービスはクラウドマッチングなどで、個人レベルの交渉となるかと思います。
（QS） 2020/11/13(金) 14:29

コメント返信：

[ 一覧(最新更新順) ]

[[20201113023107]] 『マクロ付きシートを別のシートにコピー』（さりー） ページの最後に飛ぶ

[[20201113023107]]　『マクロ付きシートを別のシートにコピー』（さりー）　ページの最後に飛ぶ