<em>vba</em>如何关闭一个指定<em>excel</em>文件

Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks.open("源文件e79fa5e98193e59b9ee7ad94364.xls") '先打开要复制的文件
wkbk.sheets(1).Copy thisworkbook.sheets(1) '再将此文件中第一个工作表复制到当前工作簿的第一个工作表前
End Sub

这样是最简单的代码了，但是有些限制：如果工作表的某些单元格中字符数超过255个，则副本的该单元格中只保留前255个字符。

如果复制源文件中第一个工作表内容到当前工作簿第一个工作表中，用下列代码：
Sub copySheet()
Dim wkbk As Workbook
Set wkbk = Workbooks("book2") '先打开要复制的文件
wkbk.Sheets(1).UsedRange.Copy '复制源文件中第一个工作表的内容
ThisWorkbook.Sheets(1).Range("A1").Paste '粘贴到当前工作簿第一个工作表中
End Sub

另外，欢迎到office精英俱乐部http:///cdb/index.php来作客：）
------------引用-------------------
我想把源文件设置成选择打开(INPUT)的形式.
能不能不打开源文件,直接在当前文件上COPY啊?

-----------回答--------------------------
如果用VB的open **** for input语句打开excel，那样得不到任何有用数据的，因为xls文件不是以文本方式保存，而是以二进制方式保存的。

如果a是b通过vba调用百excel application打开的, 那代码关闭它度很容易
如果不是, 那需要知调用windows API遍历目前道所有进程专, 然后判断哪个excel进程是需要关闭属的, 关闭即可

如何单独关闭一个软件的声音可以这样解决：

1、首先，在电脑桌面的右下角，找到调节音量的选项百，点击打开。

2、找到音量调节的选项后，找到音量合成器度，点击打开。知

3、打开音量合成器后，第一个扬声器的音量的调节等同于对电脑所有音量进行调节的。

4、当然如果要关闭个道别软件，是不需要把扬声器的声音关闭的，只需在右边的软件选项中，找到想要关闭声音的软件进行调节即可。

5、找到想要关闭声音的软件后，可以根据音量的调节条进行调节音量的大小。

6、如需直接静音，也内可以选择底部中的一个小喇叭的图标，进行点击即可对此软件或者应用容进行静音，非常方便。

这就是如何单独关闭一个软件的声音的解决步骤。

咱们能不能zhidao换个想法,即处理后保存的文件,然后再另存为一份,对另存为的进行继续处理.这样实现起来比较方便一些:
记得在另存为前,先执行一下回 activeworkbook.save,以便把你修改的结果保存下来(成为你题目中需要的另存为文件)
下面是另存为的代码(然后对另存为的文件进答行处理)
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\admin\桌面\1051616.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False