双击打开不同的EXCEL文件，如何在第1个EXCEL文件的VBA里获取其他的EXCEL文件名并操作

透彻丶

　　双击打开不同的EXCEL文件，如何在第1个EXCEL文件的VBA里获取其他的EXCEL文件名并操作？

　　查了很多资料，都是说要在第1个EXCEL文件里用“打开”选项打开的文件或者用vba命令打开的文件才能操作。

　　 Workbooks的方法都必须是满足上面这个条件才能运行成功。

　　我就想知道：双击打开不同的EXCEL文件后，是没办法相互操作的是么？
　　因为工作中，一般都是双击文档打开，大家很少习惯去点击“打开”命令去打开新文件啊。


补充内容 (2024-5-4 15:00):
　　最后的处理方法：老老实实地在表格中建立了一个[打开文件]按钮，强制在第一个表格中用VBA方法打开需要操作的文件。

582766

最好上传附件，模拟想要的效果说明

sqxzgg

在VBA中，你可以使用Application.Workbooks集合来访问当前Excel实例中打开的所有工作簿。如果你想从第一个Excel文件的VBA中获取并打开其他Excel文件，你可以遍历Workbooks集合，查找并操作其他工作簿。

以下是一个简单的示例，说明如何在第一个Excel文件的VBA中获取其他打开的工作簿的文件名，并进行一些基本操作：

vba复制代码

	Sub OperateOnOtherWorkbooks()
	Dim wb As Workbook
	Dim wbName As String
	' 遍历当前Excel实例中的所有工作簿
	For Each wb In Application.Workbooks
	' 排除自身工作簿
	If wb.Name <> ThisWorkbook.Name Then
	wbName = wb.Name
	' 在这里你可以对其他工作簿进行你需要的操作
	' 例如，我们在这里简单打印其他工作簿的文件名
	Debug.Print "其他打开的工作簿名称: " & wbName
	' 如果你想对其他工作簿进行更具体的操作，可以在这里添加代码
	' 例如，激活第一个工作表并更改A1单元格的值
	wb.Worksheets(1).Activate
	wb.Worksheets(1).Range("A1").Value = "已被修改"
	End If
	Next wb
	End Sub

这个VBA宏会遍历当前Excel实例中的所有打开的工作簿，并打印出除了当前工作簿之外的所有其他工作簿的文件名。同时，它还演示了如何激活其他工作簿的第一个工作表并修改A1单元格的值。

请注意，根据你的具体需求，你可能需要添加更多的错误处理和检查来确保代码的稳定性和可靠性。例如，你可能需要检查工作簿是否已被保护或是否为只读，以避免在尝试进行修改时出错。

成长作文网：http://www.sjzwndj.cn

透彻丶

sqxzgg 发表于 2024-4-27 16:18
在VBA中，你可以使用Application.Workbooks集合来访问当前Excel实例中打开的所有工作簿。如果你想从第一个E ...

　　你的代码只能用在这个情况：在第1个EXCEL文件里用“打开”选项打开的文件或者用vba命令打开的文件才能操作。
　　不能用在我说的双击文件打开

红太阳的天

1. 使用 Workbooks 集合
如果其他Excel文件已经打开，无论它们是如何打开的，你都可以通过VBA的 Workbooks 集合来引用它们。Workbooks 集合包含了所有打开的Excel工作簿，包括由其他用户打开的，或者通过其他应用程序打开的。

Sub ReferenceAnotherWorkbook()
    Dim otherWb As Workbook
    Set otherWb = Workbooks("其他工作簿的名字.xlsx") ' 替换为实际的工作簿名称
    ' 接下来可以操作otherWb
    ' 例如，引用第一个工作表的第一个单元格：
    MsgBox otherWb.Sheets(1).Cells(1, 1).Value
End Sub
2. 使用 Windows 集合
如果你知道工作簿的窗口标题（即工作簿的名称），你可以使用 Windows 集合来引用它：

Sub ReferenceByWindowName()
    Dim otherWb As Workbook
    Set otherWb = Windows("其他工作簿的名字.xlsx").Workbook ' 替换为实际的工作簿窗口标题
    ' 接下来可以操作otherWb
End Sub
3. 使用 Application.Workbooks.Open 方法
如果你想通过VBA打开一个新的工作簿，然后对其进行操作，可以使用 Workbooks.Open 方法：

Sub OpenAndReferenceWorkbook()
    Dim otherWb As Workbook
    Set otherWb = Workbooks.Open("C:\路径\其他工作簿的名字.xlsx") ' 替换为实际的文件路径
    ' 接下来可以操作otherWb
End Sub
4. 使用 Application.Run 方法
如果你想要从一个打开的工作簿中调用另一个工作簿中的宏，可以使用 Application.Run 方法：

Sub CallMacroInAnotherWorkbook()
    Application.Run "其他工作簿的名字.xlsx!宏的名字"
End Sub
请确保宏的名字是正确的，并且该宏存在于目标工作簿中。

透彻丶

红太阳的天 发表于 2024-4-27 17:17
1. 使用 Workbooks 集合
如果其他Excel文件已经打开，无论它们是如何打开的，你都可以通过VBA的 Workbooks ...

　　你的代码只能用在这个情况：在第1个EXCEL文件里用“打开”选项打开的文件或者用vba命令打开的文件才能操作。
　　不能用在我说的双击打开文件后，引用双击打开的文件。

　　直接提示：下标越界。

baofa2

补充，怪了，我这里测试可以……

透彻丶

baofa2 发表于 2024-4-27 18:07

　　WORKBOOKS.COUNT 这个代码只能用在这个情况：
　　在第1个EXCEL文件里用“打开”选项打开的文件或者用vba命令打开的文件才能操作。

　　不能用在我说的双击打开文件后，引用双击打开的文件。

透彻丶

baofa2 发表于 2024-4-27 18:07
补充，怪了，我这里测试可以……

　　你是双击一个Excel文件打开，然后又双击另一个Excel文件打开的么？