如何用窗体打开其他文件

任真

我做了一个窗体，想用按钮打开任意的EXECL文件，在文件名右边的列表框中显示出文件名，将工作表名加入到工作表右边的组合框中由用户选择工作表名，谢谢各位老师。

maditate

没看附件。想打开任意位置的Excel文件还是直接用Windows的本身功能吧，如果想打开指字位置的Excel文件用窗体还是有价值的。

任真

目的是选择工作表

三戒

不知是否满足你的要求，请测试

Private Sub CommandButton1_Click()
If ComboBox1.Value <> "" Then Worksheets(ComboBox1.Value).Select
End Sub

Private Sub CommandButton3_Click()
Dim strFileName As String
strFileName = Application.GetOpenFilename("Excel files(*.xls),*.xls", MultiSelect:=False)
ListBox1.AddItem strFileName
End Sub


Private Sub ListBox1_Click()
On Error Resume Next
Workbooks.Open Filename:=ListBox1.Value
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
   ComboBox1.AddItem sht.Name
Next
End Sub