Question

如何利用vb关闭多个excel文件中的一个

,如何利用vb关闭多个excel文件中的一个另外，如何选择操作其中一个excel进行操作，相关语句是啥呢，能给个例子吗，谢谢？

Answer 1

给你盲打一个，你打开两个工作簿1.xlsx和2.xlsx：

代码如下：

Private Sub Command1_Click()
    dim xlapp as object
    set xlapp = getobject(,"Excel.Application")  '获得Excel应用环境
    Dim wb1 as object, wb2 as object
    set wb1 = xlapp.Workbooks("1.xlsx")   '用wb1引用1.xlsx工作簿
    set wb2 = xlapp.workbooks("2.xlsx")   '用wb2引用2.xlsx工作簿
    
    wb1.Sheets(1).Range("A1") = "巴蜀兄弟连"  '给1.xlsx的A1单元格输入：巴蜀兄弟连
    
    wb2.Close True  '关闭2.xlsx工作簿的同时，True表示保存修改，改为False表示不保存修改
    
    msgbox xlapp.Workbooks("1.xlsx").name   '显示1.xlsx工作簿的名称
    
end sub

追问

谢谢，还有个问题就是如何知道这2个文件在哪里呢，刚试了下，提示“下标越界”，是哪里出问题了呢？我也建了1和2两个文件了。

追答

如果要知道这两个文件在哪里，可以msgbox wb2.fullname或者msgbox wb2.path，但是必须在wb2.close这个关闭语句之前。

msgbox wb2.fullname
wb2.close true

追问

谢谢。