VBA 如何打开工作簿A,工作簿B自已跟随打开,简单的说打开一作簿就是打开两个工作簿了？

niko88819 · 发表于 2018-6-28 15:02

本帖最后由 niko88819 于 2018-6-28 15:06 编辑

假设第一张工作簿称为A , 另一张工作簿称为B
两张工作簿打开后停留在工作簿A昼面
关闭时可以任意先关

z403025335 · 发表于 2018-6-28 15:08

在工作簿A的Thisworkbook里面写
Private Sub Workbook_Open()
Dim myPath As String
myPath = "工作簿B的路径"
Workbooks.Open myPath
Workbooks("a").Activate
End Sub

LMY123 · 发表于 2018-6-28 15:11

同时打开B工作薄之后呢?再做些什么事

niko88819 · 发表于 2018-6-28 15:13

LMY123 发表于 2018-6-28 15:11
同时打开B工作薄之后呢?再做些什么事

打开B工作薄之后停留在工作簿A昼面

LMY123 · 发表于 2018-6-28 15:16

niko88819 发表于 2018-6-28 15:13
打开B工作薄之后停留在工作簿A昼面

我的意思是要提取B工作薄中的数据到A工作薄中？还是要对B工作薄中的数据进行更新

niko88819 · 发表于 2018-6-28 15:22

老师这句不通过 Workbooks.Open myPath 假设两工作路径都放在 C:\TEMP

niko88819 · 发表于 2018-6-28 15:24

本帖最后由 niko88819 于 2018-6-28 15:26 编辑

LMY123 发表于 2018-6-28 15:16
我的意思是要提取B工作薄中的数据到A工作薄中？还是要对B工作薄中的数据进行更新

不提任何资料，打开一工作簿等于二个工作簿

用意是怕对方打开A,忘了打开B

z403025335 · 发表于 2018-6-28 15:26

maPath="C:\TEMP\B.xlsx"

niko88819 · 发表于 2018-6-28 15:30

本帖最后由 niko88819 于 2018-6-28 15:39 编辑

z403025335 发表于 2018-6-28 15:08
在工作簿A的Thisworkbook里面写
Private Sub Workbook_Open()
Dim myPath As String

老师这句不通过 Workbooks.Open myPath

(A.XLS) 工作簿可以任何名称,不一定是固定稱A ，B工作簿固定叫 B.XLS
A.XLS and B.XLS 都在 C:\TEMP\

z403025335 · 发表于 2018-6-28 15:38

本帖最后由 z403025335 于 2018-6-28 15:47 编辑

你的变量名称写错了，是myPath,你写的mapath,还有事实上你的这两个工作簿的名字就是A和B吗？如果是的，就把workbooks("a")改成Workbooks("A.xls")

		自动登录	找回密码
密码			免费注册

[求助] VBA 如何打开工作簿A,工作簿B自已跟随打开,简单的说打开一作簿就是打开两个工作簿了？