クラウドにあるフォルダを共有フォルダにコピーする作業が非常に遅いです。[VBA]
説明:
ワークシートにコピーしたいフォルダ名が書かれた一覧表があります。
一覧表にあるフォルダはクラウドにあります。
マクロで一覧表の上から順にフォルダ名を取得し共有フォルダにコピーするコードを作成したのですが、
クラウドにあるフォルダを共有フォルダにコピーする作業が非常に遅いです。
マクロが遅いのは初回だけです。同じ事を2回以降作動させると早く作動します。
始めてコピーするフォルダがあると遅くなります。スピードは10倍近く遅くなります。
コピーには下記のコードを使い、一覧表を読むためのループは For Next を使っています。
Dim fso As FileSystemObject
Set fso = New FileSystemObject
Call fso.CopyFolder("(クラウドのアドレス)", "(共有アドレス)", True) ' 同じフォルダ名でコピー
Set fso = Nothing '変数を初期化する
原因は何でしょうか。
早く作動させるにはどのような方法がありますか。
ご教授お願い致します。
No.2ベストアンサー
- 回答日時:
ダウンロードが始まってからも遅いのか、始まればスムースなのかでも異なると思いますが、
初回は目的地(クラウドのフォルダ)までの接続に時間がかかる。
クラウドのサーバーの処理に問題がある。
対ウィルスソフトの検知が足を引っぱっている。
後は・・・。
もしかしたら改善するかも?
複数のクラウドストレージをドライブとしてマウントできる「Air Live Drive」の無料版
https://forest.watch.impress.co.jp/docs/news/127 …
ご参考まで。
ご指摘のようにクラウドからのダウンロードが遅いのだと思います。
会社では指定ソフト以外は使えないのでご提案のソフトは諦めます。
夜間にバッチとWinのスケジューラを使って出社前にコピーしようと思いました。
アドバイスありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA This Workbookモジュールを別ファイルにコピーする方法 1 2022/09/14 01:51
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Android VBA、フォルダのパスに環境文字 ㉑ があり、VBAが機能しません。 2 2022/07/27 09:16
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Excel(エクセル) excel 別のフォルダから列コピーする方法 8 2022/12/17 16:24
- Excel(エクセル) 【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在 5 2022/08/31 10:03
- Windows 10 Corsair SSDが遅い (2)WDに比べて 3 2023/04/25 11:21
- Visual Basic(VBA) Excel VBAについて、 フォルダ内のファイルを全て開きたい場合、 FSOを使えば、Dirは使わ 1 2023/01/27 13:18
- Excel(エクセル) 【マクロ】ファイルを古い順に、1個ずつ移動する 1 2022/09/06 20:30
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
-
4
【ExcelVBA】各セルをダブルクォーテーションで括ってCSV保存したい
Visual Basic(VBA)
-
5
ExcelVBA サーバーの(共有フォルダ)中のファイル移動
Excel(エクセル)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
8
IF関数で空欄(")の時、Nullにしたい
その他(Microsoft Office)
-
9
FSO.CopyFileでのエラー無視方法
その他(Microsoft Office)
-
10
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
11
EXCEL VBA マクロ 実行する度に処理速度がどんどん遅くなる原因が知りたい
Excel(エクセル)
-
12
excel vbaから実行するexe実行の黒い画面の非表示
Visual Basic(VBA)
-
13
【VBA】ファイルパスに半角スペースが入ると、VBAが動かない
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
デスクトップの画像をhtmlに表...
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
VBA 最新のフォルダ取得
-
ExcelのVBAでフォルダ指定がで...
-
ファイル名から該当フォルダへ移動
-
【マクロ】ファイル名の日付に...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
VBA フォルダ名に特定の文字を...
-
同一フォルダ内の別ブックから...
-
ExcelのVBAでの複数階層からの...
-
FTPでフォルダごとにパスワード...
-
[VBS] Unicodeの文字化けを防ぎ...
-
カレントフォルダって?
-
エクセルマクロで指定フォルダ...
-
VBSでファイル名と同じフォルダ...
-
Excel VBA フォルダ存在チェッ...
-
フォルダ作成と同時に作成され...
-
あるフォルダーのファイルを違...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
windowsでテキストファイルの各...
-
VBA 最新のフォルダ取得
-
ファイル名と同名のフォルダを...
-
デスクトップの画像をhtmlに表...
-
VBA フォルダ名に特定の文字を...
-
Excelのハイパーリンクについて...
-
フォルダ内のPDFファイル名を変...
-
Excelで指定したフォルダに保存...
-
会社のネットワーク上のファイ...
-
【マクロ】ファイル名の日付に...
-
保存先のフォルダ名を指定した...
-
多量のファイルをフォルダに自...
-
パス名に2バイト文字(マルチバ...
-
ディレクトリ名変更してコピー...
-
C ファイル出力で、フォルダが...
-
Access VBA で フォルダ権限...
-
サーバ内のフォルダ名と各フォ...
-
フォルダにリンクを貼りたい
-
vbsで選択ダイアログを表示した...
おすすめ情報