使用 VBA 保存另一个工作簿时，保存弹出窗口显示该工作簿文件路径

问题描述

在主文档中使用 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