VBA选择已打开的文件

[huokongfly]

我用VBA打开了多个文件，怎么样在不同的文件中切换并写入数据？

[cphj]

ActiveWorkbook 属性
ActiveWorkbook 属性返回当前处于活动状态的工作簿。下例设置活动工作簿的作者名称。

ActiveWorkbook.Author = "Jean Selva"

ThisWorkbook 属性
ThisWorkbook 属性返回 Visual Basic 代码正在运行的工作簿。在绝大多数情况下，这也就是活动工作簿。然而，如果 Visual Basic 代码是加载宏的一部分，那么 ThisWorkbook 属性就不会返回活动工作簿。在这种情况下，活动工作簿是调用加载宏的工作簿，而 ThisWorkbook 属性将返回该加载宏工作簿。

如果用 Visual Basic 代码创建加载宏，那么对于那些编译到加载宏中的工作簿，在其中运行的语句应当用 ThisWorkbook 属性加以限定。

[lb_bn]

workbooks("xxx.xls").sheets("xxx").range("xxx").value =

[huokongfly]

那怎么样返回窗体所在的文件呢？这个文件可能会改名的。

[舉杯邀明月]

[Quote=引用 2 楼 huokongfly 的回复:]
那怎么样返回窗体所在的文件呢？这个文件可能会改名的。
[/Quote]
没理解你的意思。

给你一段代码参考，自己处理吧：

Sub Main()
    Dim objWB As Workbook
    For Each objWB In Workbooks
        Debug.Print objWB.Path,
        Debug.Print objWB.Name
    Next
End Sub

[舉杯邀明月]

如果 objWB.Path = "" ，表示新建的工作簿还未保存到磁盘上。

[huokongfly]

恩，，我有时候就是操作别的EXCEL时运行的脚本，这时的ActiveWorkbook就不是我要保存的有窗体的那个表格，而是现在操作的表格。看来这个问题有点特殊，，我就先在运行脚本的时候切换回我要保存的那个表格吧，再次谢谢大家的帮助~