クラウド導入後にExcel マクロが動かなくなった

Question

Excel (VBA)で、①毎月60から70ファイルのデータ（データ件数：約2500）と、②隔月10ファイルのデータ（データ件数：約9000）を

1ファイルにデータを転記しています。クラウド導入前は特にトラブルなくマクロが使えたのに導入後は①途中でフリースしたため

ホルダーを追加してファイル数を少なくしてマクロを動かしたり、②マクロが全く動かなくなり困っています。

ちなみにスタンドアローンでは①、②ともマクロは正常に動きます。解決策をご存知の方教えて下さい。

Answer 1

こんにちは。

他のクラウドがどういうものなのかわからないのですが、仮想デスクトップのようなものをご利用でしょうか？

どちらも同じ Excel 2016 を使用していて、データも同じ OneDrive に置いていたとなると、原因はクラウドサービスによるものではないかと思います。

例えば、クラウド環境からデータを置いている OneDrive へのアクセスに支障はないかなど、クラウドサービスのベンダに確認してみてください。

(もしくは、同期クライアントで OneDrive のデータを同期することで、実行できたりしますか？)

Answer 2

https://www.moug.net/tech/acvba/0130003.html

を参考に、

Set myBook = Workbooks.Open(Filename:=myDir & "" & myName)

の直前、または直後、または双方に

3秒から5秒程度の「待ち」を挿入すると

解決できるかもしれません。

未検証ですし、確証もありません。

つまり当てずっぽうです。

Answer 3

こんにちは。

従来の Excel で動作していたものが、最新の Excel 2016 で動作しないという事でしょうか？

また、クラウド導入というのは Office 365 の導入という事でしょうか？

クラウド導入にともなってデータ保存先をローカルから OneDrive などに変更して動作しなくなったという事でしょうか？

①のマクロが途中でフリーズするケースと、②のまったく動かないケースでは何か違いがありますでしょうか？

もし、何らかのエラーが表示されるのであれば、スクリーンショットなどを添付してください。

Answer 4

おかげさまで、myName = Dir(myDir & "\*.xls") の拡張子を、

myName = Dir(myDir & "\*.xlms")に変更したところ、

クラウド内でマクロが動作いたしました。

いろいろ勉強になりました。ご対応に感謝いたします。ありがとうございました。

Answer 5

ご質問の件でございますが、

従来のExcel で動作していたものが、最新のExcel 2016 で動作しないという事でしょうか？

＝＞　クラウド導入前後とも、Excel 2016を利用。

また、クラウド導入というのはOffice 365 の導入という事でしょうか？

＝＞　他のクラウド　（を、更にカスタマイズしたもの）導入後です。

クラウド導入にともなってデータ保存先をローカルからOneDrive などに変更して動作しなくなったという事でしょうか？

＝＞　クラウド導入前のサーバーも、OneDrive でした。

①のマクロが途中でフリーズするケースと、②のまったく動かないケースでは何か違いがありますでしょうか？

＝＞　ファイル取込用のマクロは①、②とも同じです。また、元データファイルと、

　　　　転送先ファイルの内容（項目名等）全く同じ。違いはデータ取込する際の元ファイル数と元データ件数です。

もし、何らかのエラーが表示されるのであれば、スクリーンショットなどを添付してください。

＝＞　エラー表示は①、②とも非表示です。フリースのみ。

以下、①、②に実際に使っている＜データ取込用VBA＞になります。（2002年「仕事に役立つExcel データベース有効活用テクニック」より）

Sub データ取込()

Dim myDir As String, myName As String, myBook As Workbook

Dim motoRng As Range, sakiRng As Range, myDbox As FileDialog

Set myDbox = Application.FileDialog(msoFileDialogFolderPicker)

myDbox.Show

If myDbox.SelectedItems.Count = 0 Then

MsgBox "フォルダが選択されませんでした"

Exit Sub

End If

myDir = myDbox.SelectedItems(1)

myName = Dir(myDir & "\*.xls")

Do While myName <> ""

Set sakiRng = Range("B65536").End(xlUp).Offset(1)

Set myBook = Workbooks.Open(Filename:=myDir & "" & myName)

Set motoRng = myBook.Names("転記用データ").RefersToRange

motoRng.Copy sakiRng

myBook.Close

myName = Dir()

 Loop

End Sub

マクロ内に旧サーバの具体的な名称やファイルの置き場所のパスの使用はないとおもうのですが、いかがでしょうか？