共有ドライブにE​​xcelワークブックをアップロード

Question

他のExcelワークブックからデータを収集するマスターブックを作成しました。以下は、私の他のワークブックが置かれている場所（そこからデータを収集する必要がある）とマスターブックがデスクトップ上にあるパスです。以下は私が使用しているコードです。私は、共有ドライブ上にこのファイルをアップロードしていた場合、次のように

' Change this to the path\folder location of the files. 
MyPath = "C:\P&G\" 

' Add a slash at the end of path if needed. 
If Right(MyPath, 1) <> "\" Then 
    MyPath = MyPath & "\" 
End If 

' If there are no Excel files in the folder, exit. 
FilesInPath = Dir(MyPath & "*.xl*") 
If FilesInPath = "" Then 
    MsgBox "No files found" 
    Exit Sub 
End If 

' Fill in the myFiles array with the list of Excel files in 
' the search folder. 
FNum = 0 
Do While FilesInPath <> "" 
    FNum = FNum + 1 
    ReDim Preserve MyFiles(1 To FNum) 
    MyFiles(FNum) = FilesInPath 
    FilesInPath = Dir() 
Loop 

、私は私の道を与えている：

"\\151.208.196.138\ATS shared drive\F&HC\PSG OPS\New DDS Sheet"

しかし、これはエラーを与えています。誰でも私を助けることができますか？

Answer 1

UNC（汎用命名規則）は、基本的に完全なファイルパスの場所です。

\\Server\Share\filepath 

"\\"に注目してください。あなたのケースでは

、それはまだエラーを与えて

"\\151.208.196.138\ATS shared drive\F&HC\PSG OPS\New DDS Sheet"