点击按钮时打开指定的Excel表格，怎么编写按钮的代码

genelny

请教各位高手，我想设置一个按钮，这个按钮具有以下功能：当点击按钮时打开指定的Excel表格，这个按钮的代码该如何编写，谢谢大家！

genelny

知道的告诉小弟一下方法，万分感激，谢谢大家！

todaynew

Sub OpenE()
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim strname as String
strname=Inputbox "请输入文件名："
Set xlBook = xlApp.Workbooks.Open(strname)
xlApp.Application.Visible = True
xlBook.Application.Sheets(1).Select
End Sub
--------------------------------------------------------
如果使用窗体中某控件的变量，则可以
Sub OpenE(strname)
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Set xlBook = xlApp.Workbooks.Open(strname)
xlApp.Application.Visible = True
xlBook.Application.Sheets(1).Select
End Sub

调用：
call openE（me.文件名.value）

------------------------------------------------------
如文件需要查找后打开，则：
Sub OpenE(strname)
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Set xlBook = xlApp.Workbooks.Open(strname)
xlApp.Application.Visible = True
xlBook.Application.Sheets(1).Select
End Sub

Function GetFile() As String
Dim dlgOpen As FileDialog
Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
With dlgOpen
    .AllowMultiSelect = True
    .Show
End With
GetFile = dlgOpen.SelectedItems(1)
Set dlgOpen = Nothing
End Function

调用：
str=getfile()
call openE(str)

genelny

谢谢无私的帮助，万分感谢！

todaynew

不必客气

tz-chf

shell就行

yyliuzheng

谢谢分享