[已解决]关于用VBA设置对话框的问题

过江龙

请问老师，运行下面代码是，如何将弹出的对话框的名称“打开”改为“测试”呢？谢谢！
Sub 生成temp表()
    Application.Dialogs(XlBuiltInDialog.xlDialogOpen).Show
End Sub

最佳答案

月排行榜 / 总排行榜

美斯特邦威

2013-11-2 14:32

1. Sub 生成temp表()
   
2.     With Application.FileDialog(msoFileDialogOpen)
   
3.         .Title = "测试"
   
4.         If .Show = -1 Then Workbooks.Open .SelectedItems(1)
   
5.     End With
   
6. End Sub

复制代码

跳转到最佳答案楼层

美斯特邦威

1. Sub 生成temp表()
   
2.     With Application.FileDialog(msoFileDialogOpen)
   
3.         .Title = "测试"
   
4.         If .Show = -1 Then Workbooks.Open .SelectedItems(1)
   
5.     End With
   
6. End Sub

复制代码

hwc2ycy

hwc2ycy

象打开按钮，初始打开位置 ，文件过滤都可以自定设置的。

过江龙

美斯特邦威 发表于 2013-11-2 14:32

谢谢及时回复，感谢了！