Question

如何编写VB程序，用来打开存在E盘的以当前工作表A1为文件名的EXCEL文件

在OFFICE EXCEL 2003中，编写一个宏程序，运行这个宏后，就可以打开存在E盘的以当前工作表A1单元格内容为文件名的EXCEL文件，如果当前工作表中A1单元格的内容为：“AAA”，就打开存在E盘中文件名为“AAA.xls”的工作薄文件；如果当前工作表中A1单元格的内容为：“BBB”，就打开E盘中文件名为“BBB.xls”的工作薄文件。（假设E盘中文件“AAA.xls”“BBB.xls”都存在）

Answer 1

Sub openfile()
'On Error Resume Next
If Len(Range("A1").Value) = 0 Then '如果A1单元格为空
filesxls = Application.GetOpenFilename("Excel(*.xls),*.xls,Excel(*.xlsx),*.xlsx", , "选择需要打开的文件", MultiSelect:=True)
If filesxls <> False Then '如果在对话框中选择了文件,则打开(可以是多个)
For y = 1 To UBound(filesxls)
Workbooks.Open filesxls(y)
Next y
End If
Else
filesxls = Dir(Range("A1").Value, vbNormal)
If filesxls = "" Then '如果A1中指定的文件不存在
MsgBox ("A1中指定的文件不存在")
Else '如果A1中指定的文件存在
Workbooks.Open (Range("A1").Value)
End If
End If
End Sub

A1中需输入完整的路径文件名
如果只有文件名,中需将
filesxls = Dir(Range("A1").Value, vbNormal)
改成
filesxls = Dir("E:\"& Range("A1").Value & ".xls", vbNormal)

Workbooks.Open (Range("A1").Value)
改成
Workbooks.Open ( "E:\"& Range("A1").Value & ".xls" )

Answer 2

Sub OpnFile()
Shell "excel.exe " & "e:\" & [a1] & ".xls", vbNormalFocus
End Sub

Answer 3

Application.Workbooks.Open "e:\" & ActiveSheet.Range("A1").Value & ".xls"

Answer 4

Shell "excel.exe " & "e:\" & [a1] & ".xls", vbNormalFocus

Answer 5

N=Activesheet.cells(1,1)
Workbooks.Open "E:\" & N &".xls"