返回列表 上一主題 發帖

[發問] 請問開啟複本

luhpro

帖子
824 
主題
6 
精華
0 
積分
904 
點名
0  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2023-12-24 
1# 跳轉到 »
發表於 2014-11-18 23:21 | 顯示全部帖子
本帖最後由 luhpro 於 2014-11-18 23:24 編輯
各位大大,想請教

Workbooks.Open Filename:=name, ReadOnly:=True
上面語法是唯讀開啟檔案
但是如果遇 ...
jackdream 發表於 2014-11-17 10:59
  1. Sub nn()
  2.   Dim sFlName$, sNFlName$
  3.   Dim bNFind As Boolean
  4.   Dim vA
  5.   
  6.   sFlName = "D:\test.xls" ' 第一個檔案的完整路徑+檔名
  7.   Workbooks.Open sFlName, , True ' 開啟第一個檔案
  8.   sFlName = Mid(sFlName, InStrRev(sFlName, "\") + 1)
  9.   bNFind = True
  10.   For Each vA In Workbooks
  11.     If vA.Name = sFlName Then bNFind = False ' 找到同名檔案已開啟
  12.   Next
  13.   sFlName = "C:\test.xls" ' 第二個檔案的完整路徑+檔名
  14.   If bNFind Then
  15.     Workbooks.Open sFlName, , True ' 若未發現同名檔案被開啟則直接開檔
  16.   Else
  17.     If Dir(sFlName) <> "" Then ' 確認不同路徑下第二個同名檔案是存在的
  18.       vA = InStrRev(sFlName, "\")
  19.       sNFlName = Left(sFlName, vA) & "副本-" & Mid(sFlName, vA + 1)
  20.       Name sFlName As sNFlName ' 必須先更名才能開啟該檔案
  21.       Workbooks.Open sNFlName, , True ' 開啟第二個檔案
  22.     End If
  23.   End If
  24. End Sub
複製代碼

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題