以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  EXCEL VBA问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=88927)
--  作者：凡夫俗子
--  发布时间：2016/8/11 18:11:00
--  EXCEL VBA问题
EXCEL中的VBA代码 可以做到 直接关闭 指定 123.xlsx 而不提示 保存对话框

Sub Macro1()
    Dim wb As Workbook
    For Each wb In Workbooks
      MsgBox (wb.Name)
       If wb.Name = "123.xlsx" Then wb.Close False    \' "a"改为真实的文件名
    Next
End Sub

能以此为突破口 变通解决这一问题不。

如果 123.xlsx EXCEL文件  已打开。则新建立一个 EXCEL工作薄 AA，向其中写入 这个 VBA代码 ，执行这个VBA代码，无条件关闭 123.xlsx 文件 
关闭 刚才建立 的 EXCEL工作薄 AA

如何向 打开 的EXCEL文件里 写入 VBA代码，并执行 这个宏


帮助 里说 

如果你是Excel的资深用户，一定会留恋VBA，实际上你的VBA知识在Foxtable一样有用，原来的VBA代码只需稍作修改，就可以在Foxtable中使用。
Foxtable本身已经提供了很强大的Excel报表功能，可以利用报表模板来批量生成各种复杂的报表，所以本节的内容对于一般用户来说并无意义。


那么 这段VBA代码 如何修改 以在 FOXTABLE中运行：

Sub Macro1()
    Dim wb As Workbook
    For Each wb In Workbooks
      MsgBox (wb.Name)
       If wb.Name = "123.xlsx" Then wb.Close False   
    Next
End Sub
[此贴子已经被作者于2016/8/11 18:16:31编辑过]
--  作者：大红袍
--  发布时间：2016/8/11 18:43:00
--  
 不同概念啊，做不到啊。