こんにちは、PCの再起動後に実行すると、次の行は機能しません。
Filename = Dir("\\epocal-db-01\qa\docs\shared documents\17000001-*.xlsx")
しかし、私が最初にこの行を実行した場合はそうなります：
Set Wk = Workbooks.Open(Filename:="http://epocal-db-01/qa/docs/Shared Documents/17000001-00.xlsx", UpdateLinks:=0)
PCのネットワークマッピングの問題のようです。（遅い）openメソッドを使用せずにHttpサーバーをマップできますか？ライブラリを宣言する必要がありますか？ありがとう！