制作VBS“保存”已打开的excel文件，而不用手动保存！-vbs保存excel,Excel的vbs教程下载

Set excelApp = CreateObject("Excel.Application")

With excelApp

    Set xwk = .Workbooks.Open("D:\1.xlsx")

    Set ywk = .Workbooks.Open("F:\5.xlsx")

    xwk.Worksheets("Sheet1").Cells.Copy ywk.Worksheets("Sheet5").Range("A1")

    ywk.Save

    ywk.Close

    xwk.Close

    .Quit

End With

Dim wb as workbook
for each wb in workbooks
wb.Save
next wb

要是复直接打开那个宏文件不是更简单一点吗制？

刚才自己弄了个vbs ，这个应该可以实现，请进行测试百：

Set Eapp = CreateObject("Excel.Application")
If MsgBox("是否调用宏？", vbYesNo) = 6 Then
With Eapp
    .Visible = True
    Set mbk = .Workbooks.Open("D:\vba工具\测试.xlsm") '你的宏文件完整路径
    .Run "测试" '宏名度字，注意不要有重复的宏名，否则可能会问调用错
    mbk.Close False '这句会在运行答完毕后关闭宏文件，并且不保存
End With
End If

这是因为用高版本打开了低版本excel表格，两个版本的后缀不一样；所以每次都会出现这样的提示的，只要重新另存为2003版格式的表格就可以的。