有关Excel VBA得问题，高手们帮个忙

Question

现在有
按钮1个, Excel文件1(文件名固定)， Excel文件2(文件名未固定， 因工作需求每天更改)
按钮在Excel文件1里， Excel文件1的 B2里写Excel文件2的名字(B2值随时更改)
1. 我想用Excel文件1的按钮打开跟B2相同名字的Excel文件2(文件2都在固定的文件夹里）
如果B2值更改的话打开别的Excel文件
2. 我想用Excel文件1的按钮选择跟B2相同名字的Excel文件2(文件1, 2已开)
※ 请高手们帮个忙。。。希望自己实验一次。。可以的话在贴。。谢谢
或者提个别的意见也可。。。

Answer 1

假设两个文件都存放在同一个文件夹下面：
[B1] = "文件2.xls"

Sub 打开B1文件()
Dim openFile_path As String
Dim openFile_name As String
'获取需要打开的文件名，和路径
openFile_path = ThisWorkbook.Path
openFile_name = [B1]
'显示一下文件名是否正确，可以注释掉
MsgBox [B1]
'其实就这么一句话的事..
Workbooks.Open openFile_path & "\" & [B1]
End Sub

然后自己设置一个按钮加宏

Answer 2

A1写要打开文件的路径：例如====》D:\YourFile\Me\
B1写要打开的文件名： 例如 ===》MyFriend.xls
在VBA上定义， Dim StrPath As String ：Dim StrFilename As String
赋值， StrPath=cells(1,1) : StrFilename =StrPath+cells(1,2)
打开文件： Workbooks.Open Filename:=StrFileName

可以啦！五步而已。另加按钮不算！

[email protected]

Answer 3

'打开文件用下面的语句
Private Sub CommandButton1_Click()
Workbooks.Open Sheets(1).Cells(2, 2).Value & ".xls"
End Sub
'选择文件用下面的语句
Private Sub CommandButton1_Click()
Workbooks(Sheets(1).Cells(2, 2).Value & ".xls").Activate
End Sub本回答被提问者采纳