摘要： VBA代码（珍藏）'**关闭屏幕刷新 Application.ScreenUpdating = False'**取消删除工作表警告提示 Application.DisplayAlerts = False '**引用打开窗口 Dim fd As FileDialog Dim vrtSelectedItem As Variant Set fd = Application.FileDialog(msoFileDialogOpen) fd.InitialFileName = Sheets("设置").Range("CU7").Value 阅读全文