[發問] 檔案開啟另存複本

cowww

請教論壇的大大們

我想把另存新檔改成先判斷檔案是否有被開啟
如果有，就另存複本
如果沒有，就直接儲存

原先的語法
  ThisWorkbook.SaveAs fileName:= _
        "\\group.com\dept\備份\123\急件專案狀態追蹤_v2_0.xlsm", WriteResPassword:="6112"

以下是修改的語法，請問哪裡有錯誤
    Dim fileName As String
    fileName = "\\shl-group.com\dept\急件專案狀態追蹤_v2_0.xlsm"
   
    If IsFileOpen(fileName) Then
        Dim copyName As String
        copyName = Left(fileName, Len(fileName) - 5) & "_Copy.xlsm"
        
        ThisWorkbook.SaveCopyAs fileName:=copyName, WriteResPassword:="6112"
        
    Else
        ThisWorkbook.SaveAs fileName, WriteResPassword:="6112"
    End If

下載 (14.02 KB)

2023-5-22 12:00

quickfixer

你程式碼有少,isfileopen不是內建的功能
應該還要有一個function isfileopen(filename as string),自建的副程式

cowww

回復 2# quickfixer

非常感謝quickfixer大大的解惑

GPT給我了這一段語法，測試上是沒有問題的
Function IsFileOpen(filePath As String) As Boolean
    Dim fileNum As Integer
    fileNum = FreeFile()

    On Error Resume Next
    Open filePath For Binary Access Read Write Lock Read Write As fileNum
    If Err.Number <> 0 Then
        IsFileOpen = True
    End If
    Close fileNum
    On Error GoTo 0

准提部林

回復 3# cowww


這個少了結尾
End Function

cowww

回復 4# 准提部林

非常感謝准提部林大大的提醒

想說可以執行就沒甚麼注意了