[發問] 網路芳鄰中原主機路徑應如何下語法?

向大大先進們求救:
   原本在自己主機由A1.xls 表單開啟A2.xls  沒問題
   Private Sub UserForm_Initialize()
            Dim Path1, str1, str2 As String
            Path1 = Application.ActiveWorkbook.Path
            Set wb = ActiveWorkbook
            wb.Activate
            ChDrive Split(Path1, ":")(0)
            ChDir Path1
            Dim FileName As Variant
            Dim xlfileName As String
            FileName = Path1 & "\" & "A2.xls"
            xlfileName = Dir(FileName)
            If IsOpen(xlfileName) Then
                  Workbooks(xlfileName).Activate
                  Set wb1 = Workbooks(xlfileName)
         Else
                  Set wb1 = Workbooks.Open(FileName, True, False)
         End If
         wb.Activate
   End Sub
因情勢需要需將此A1.xls  置入網路芳鄰中  由第二桌電開A1.xls
結果抓不到 A2.xls
我知道是path1之問題
應如何設定 FileName = " 主機一" 的 Path1 & "\" & "A2.xls"  ????
  當然以下所開的 Word檔亦在網路芳鄰中路徑應如何下語法
Set appWD = CreateObject("Word.Application")
With appWD
      .Visible = True
      .ChangeFileOpenDirectory Path1 & "\"
      .Documents.Open FileName:="A4合併列印(3X5).doc"
      .WindowState = wdWindowStateNormal
      .Run "A4合併列印(3X5)!upPrint1" '執行這巨集
'       .Quit SaveChanges:=False    '關閉Word
End With
謝謝協助  有點心急  萬分感激
Set appWD = Nothing
End Sub

樓主熱帖

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

7^#

發表於 2014-2-27 21:26 | 只看該作者

本帖最後由 yangjie 於 2014-2-27 21:27 編輯

回復 6# stillfish00

謝謝已解決
拿掉 ChDrive Split(Path1, ":")(0) 即可

TOP

stillfish00

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

6^#

發表於 2014-2-20 17:03 | 只看該作者

本帖最後由 stillfish00 於 2014-2-20 17:06 編輯

回復 5# yangjie

網路芳鄰中的Drive

這是甚麼?? 你是指網路磁碟機嗎??
如果有設定網路磁碟機， .path 是會包含磁碟機代號

TOP

yangjie

中學生 Rank: 2

帖子: 258
主題: 77
精華: 0
積分: 385
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-8-8
最後登錄: 2021-1-25

5^#

發表於 2014-2-20 00:43 | 只看該作者

請教stillfish00:
當  A1.xls  ，  A2.xls 都放在主機1的網路芳鄰中共享
由區域網路主機2  去打開  A1.xls
Sub UserForm_Initialize()
            Path1 = Application.ActiveWorkbook.Path
            Set wb = ActiveWorkbook
            wb.Activate
            FileName = Path1 & "\" & "A2.xls"
            xlfileName = Dir(FileName)
            If IsOpen(xlfileName) Then
                  Workbooks(xlfileName).Activate
                  Set wb1 = Workbooks(xlfileName)
         Else
                  Set wb1 = Workbooks.Open(FileName, True, False)
         End If
問題一:此  path1抓得到主機1 中的  A2.xls (由主機2) 嗎
            此  path1有含網路芳鄰中的Drive嗎?
問題二: FileName =ThisWorkbook.Path & Application.PathSeparator & "A2.xls"
         有含網路芳鄰中的Drive嗎?

TOP

stillfish00