使用 VBA 保存另一個工作簿時，保存彈出窗口顯示該工作簿文件路徑

Question

在主文檔中使用 VBA 時，我需要從另一個工作簿復制和粘貼數據並保存到該工作簿。 雖然保存彈出窗口顯示文件目標路徑，但我不希望其他用戶知道該路徑。

Sub RTS()

ThisWorkbook.Activate

Application.DisplayAlerts = False

Application.ScreenUpdating = False

ActiveSheet.Range("A7:D7", "Q7").Select ActiveSheet.Range("A7:D7,Q7").Select Range("Q7").Activate Application.CutCopyMode = False Selection.Copy

on Error Resume Next While cont Err.Clear Dim wb As Workbook Set wb = Workbooks.Open(Filename:="RTS Report.xlsx") Do Until wb.ReadOnly = False wb.Close Application.Wait Now + TimeValue("00:00:01") Set wb = Workbooks.Open(Filename:="RTS Report.xlsx")

Loop

If Err.Number <> 0 Then Application.Wait (Now + TimeValue("0:00:01")) Err.Clear Else cont = False End If

Wend

On Error GoTo 0

Dim She As Worksheet Dim b As Integer ActiveWorkbook.Sheets("Data").Activate

Set She = ActiveWorkbook.ActiveSheet

b = She.Range("A" & Rows.Count).End(xlUp).Row

She.Range("A" & b + 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone,

SkipBlanks:=False, Transpose:=False

Cells.Select Cells.EntireColumn.AutoFit

ActiveWorkbook.Save ActiveWorkbook.Close ThisWorkbook.Activate Application.ScreenUpdating = True Application.DisplayAlerts = True

End Sub

Answer 1

放在保存字符串之前

Application.DisplayAlerts=False

並刪除"Application.DisplayAlerts = True"