返回列表下一主題上一主題發帖

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

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2023-5-22 11:58 | 只看該作者

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

本帖最後由 cowww 於 2023-5-22 12:00 編輯

請教論壇的大大們

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

原先的語法
  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

樓主熱帖

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 31
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2024-11-28

2^#

發表於 2023-5-23 05:56 | 只看該作者

本帖最後由 quickfixer 於 2023-5-23 05:59 編輯

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

TOP

cowww

中學生 Rank: 2

帖子: 122
主題: 26
精華: 0
積分: 148
點名: 0
作業系統: windos10
軟體版本: office2016
閱讀權限: 20
註冊時間: 2021-7-8
最後登錄: 2023-8-28

3^#

發表於 2023-5-23 11:39 | 只看該作者

回復 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

TOP

准提部林