各位老师，新年好！保存文件时如何忽略提示

kangfshine · 发表于 2023-1-28 16:46

本帖最后由 kangfshine 于 2023-1-28 16:50 编辑

麻烦各位老师看一下，用下面这个保存文件时，提示有同名文件，如何直接覆盖，不要提示？

Windows("动态预约登记表.xls").Activate

ActiveWorkbook.SaveAs Filename:="D:\NLEMR\MedViewClient\temp\动态预约登记表.xls",_

FileFormat:=xlExcel8, Password:="",WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

kangfshine · 发表于 2023-1-28 16:49

第二个问题，将文档拷贝到另一个工作簿时如何直接删除原有文件？感谢大家

Set wb = ActiveWorkbook
With Workbooks.Open("D:\Documents\Sheet1.xlsx")
      For Each sht In .Sheets
         For Each sh In wb.Sheets
         If sht.Name = sh.Name Then sh.Delete '
         Next
         sht.Copy After:=wb.Sheets(wb.Sheets.Count)
      Next
      .Close False
End With
With Workbooks.Open("D:\NLEMR\MedViewClient\temp\动态预约登记表.xls")
      For Each sht In .Sheets
         For Each sh In wb.Sheets
            If sht.Name = sh.Name Then sh.Delete
         Next
         sht.Copy After:=wb.Sheets(wb.Sheets.Count)
      Next
      .Close False
End With

LIUZHU · 发表于 2023-1-28 17:26

Application.DisplayAlerts=false

chzsh · 发表于 2023-1-28 18:25

Set wb = ActiveWorkbook

Application.DisplayAlerts=false'关闭警告
With Workbooks.Open("D:\Documents\Sheet1.xlsx")
      For Each sht In .Sheets
         For Each sh In wb.Sheets
         If sht.Name = sh.Name Then sh.Delete '
         Next
         sht.Copy After:=wb.Sheets(wb.Sheets.Count)
      Next
      .Close False
End With
With Workbooks.Open("D:\NLEMR\MedViewClient\temp\动态预约登记表.xls")
      For Each sht In .Sheets
         For Each sh In wb.Sheets
            If sht.Name = sh.Name Then sh.Delete
         Next
         sht.Copy After:=wb.Sheets(wb.Sheets.Count)
      Next
      .Close False
End With
Application.DisplayAlerts = True'开启警告

chzsh · 发表于 2023-1-28 18:47

Application.DisplayAlerts = False'关闭警告
Windows("动态预约登记表.xls").Activate
ActiveWorkbook.SaveAs Filename:="D:\NLEMR\MedViewClient\temp\动态预约登记表.xls",_
FileFormat:=xlExcel8, Password:="",WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Application.DisplayAlerts = True'开启警告

kangfshine · 发表于 2023-2-1 20:47

chzsh 发表于 2023-1-28 18:47
Application.DisplayAlerts = False'关闭警告
Windows("动态预约登记表.xls").Activate
ActiveWorkbo ...

楼上的大神，能再帮忙看一下这个该怎么修改？谢谢！
要把一个工作簿的内容拷贝到另一个工作簿的工作簿里

Windows("zx.xlsm").Activate

Sheets("Sheet3").Select

Range("B2:C32").Select

Selection.Copy

Workbooks.Open Filename:="D:\NLEMR\MedViewClient\temp\动态预约登记表.xls"

Range("J4").Select

ActiveSheet.Paste

chzsh · 发表于 2023-2-2 06:49

Sub sh()
Range("B2:C32").Copy
Workbooks.Open Filename:="D:\NLEMR\MedViewClient\temp\动态预约登记表.xls"
Range("J4").Select
ActiveSheet.Paste
End Sub

kangfshine · 发表于 2023-2-10 15:07

chzsh 发表于 2023-2-2 06:49
Sub sh()
Range("B2:C32").Copy
Workbooks.Open Filename:="D:\NLEMR\MedViewClient\temp\动态预约 ...

大神，测试了一下，这样不行啊，还是提示无效的粘贴，能否帮忙再看一下，如何才能 “”把一个工作簿的内容拷贝到另一个工作簿里”，谢谢！

下面这个是我自己录制的
Windows("zx.xlsm").Activate