Không sử dụng được With Workbooks.Open(ThisWorkbook.Path & "\" & Filename1) qua mạng. (1 người xem)

[lhthai]

Không sử dụng được chức năng With Workbooks.Open(ThisWorkbook.Path & "" & Filename1)
khi chia sẽ qua mạng LAN.
Hiện tại máy mình thì sử dụng bình thường nhưng Share ổ đĩa sang máy khác thì không dùng được.
Anh Chị nào biết hướng dẫn mình với

Filename1 = InputBox("Nhap Ten File :", "CHON FILE THUC HIEN")
With Workbooks.Open(ThisWorkbook.Path & "\" & Filename1) 
...............
End with

Còn áp dụng code sao thì không sao.

With Application.FileDialog(1)
        .InitialFileName = ThisWorkbook.path
        .Title = "Chon file nguon"
        .FilterIndex = 3
        .AllowMultiSelect = False
        Do
            .Show
            If .SelectedItems.Count = 0 Then Exit Sub
            If .SelectedItems(1) = ThisWorkbook.FullName Then MsgBox "Khong chon file nay!"
        Loop Until .SelectedItems(1) <> ThisWorkbook.FullName
        With Workbooks.Open(.SelectedItems(1))
................
End with

 

[Kiều Mạnh]

Hình như qua mạng lan nó có thêm \\192.168.xxxxx..... hay Sharing Full hay sao ý

 

[Nguyễn Duy Tuân]

Để mở file Excel qua mạng LAN bạn cần làm 2 việc:
1. Tại máy chủ: Lưu file Excel với thuộc tính [Shared]. Tại menu View->Share Workbook...
2. Tại máy chủ: share full folder chưa file Excel trên theo cách của Windows

Tại máy khách để mở file Excel trong máy chủ đã share làm như sau:

Dim Wb As Workbook
Set Wb = Workbooks.Open(\\Địa chỉ IP hoặc tên máy chủ\Thư mục share full\tệp Excel shared")

 

[jack nt]

Hình như qua mạng lan nó có thêm \\192.168.xxxxx..... hay Sharing Full hay sao ý

tốt nhất là Map a letter drive
https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=map letter drive
có thể sử dụng mấy cái drives X:, Y:, Z:, ... tương tự như C:, D:, E:,...
nhiều phần mềm trước đây không hỗ trợ đọc file có đường dẫn kiểu \\...

 

[Nguyễn Duy Tuân]

tốt nhất là Map a letter drive
https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=map letter drive
có thể sử dụng mấy cái drives X:, Y:, Z:, ... tương tự như C:, D:, E:,...
nhiều phần mềm trước đây không hỗ trợ đọc file có đường dẫn kiểu \\...

Map Drive thì máy khách nào cũng phải làm thế mới mở được, thậm chí mỗi máy lại mang tên một ổ đĩa theo thứ tự của nó, khi file này mở ở các máy khác trong mạng thì rất phiền phức. Đường dẫn "\" là nguyên lý mở qua mạng LAN của hệ điều hành, phần mềm nào không mở được là lỗi nặng của người làm phần mềm đó.

 

[lhthai]

Map Drive thì máy khách nào cũng phải làm thế mới mở được, thậm chí mỗi máy lại mang tên một ổ đĩa theo thứ tự của nó, khi file này mở ở các máy khác trong mạng thì rất phiền phức. Đường dẫn "" là nguyên lý mở qua mạng LAN của hệ điều hành, phần mềm nào không mở được là lỗi nặng của người làm phần mềm đó.

Mình áp dụng cách này nhưng vẫn không được bạn ơi
Cám ơn bạn góp ý.

 

[Kiều Mạnh]

tốt nhất là Map a letter drive
https://www.google.com/webhp?sourceid=chrome-instant&ion=1&espv=2&ie=UTF-8#q=map letter drive
có thể sử dụng mấy cái drives X:, Y:, Z:, ... tương tự như C:, D:, E:,...
nhiều phần mềm trước đây không hỗ trợ đọc file có đường dẫn kiểu \\...

Thì từ máy chính Share Full ổ dĩa hay Folder xong .... Run ....\\192.168.1.xxx Tìm Folder hay ổ x,y,z .... đó tao ra một cái tên theo ký tự nó cho đó ..Ok xong

Từ máy con thấy thêm một cái ổ mới tên x,y,z.... mở nó lên.... nếu đạt pass thì nhập cho nó một cái Pass mới login vào máy chính được .... tạm sơ bộ vậy thôi...........

 

[anhdepjai]

Mình từng thử nhưng không được, Sau mới chơi trò COPY cái file cần mở về máy mình. sau đó mở trên máy mình của mình.
Code copy:
Sub xCopyFolder1()
Dim fso As Object, lastRow As Long, r As Long, sourceDir As String, destDir As String, subFolder As String
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
destDir = ThisWorkbook.Path
sourceDir = Range("A2").Value
subFolder = destDir & Mid(sourceDir, InStrRev(sourceDir, ""))
If fso.FolderExists(subFolder) Then fso.DeleteFolder subFolder
fso.CreateFolder subFolder
Xcopy sourceDir, subFolder, "*.*", True
Set fso = Nothing
End Sub

Còn đường link thì nó như hình vẽ

 

[Nguyễn Duy Tuân]

Mình áp dụng cách này nhưng vẫn không được bạn ơi
Cám ơn bạn góp ý.

Nếu máy chia sẻ bạn dùng Win7 thì để đơn giản cho các máy khách kết nối (không phải làm nhiều thao tác) bạn tắt Firewall trong Control Panel đi nhé.