CommonDialog控件
2015-09-06 10:52
295 查看
'要先单击“工程-部件”,显示“部件”对话框,将“Microsoft Common Dialog control 6.0(SP6)”选中,在工具栏就多出了一个CommonDialog控件图标,将其添加到窗体上 Private Sub Command1_Click() CommonDialog1.CancelError = True CommonDialog1.DialogTitle = "选定要打开的Excel文件" CommonDialog1.InitDir = App.Path CommonDialog1.Filter = "Xls文件(*.Xls)|*.Xls|所有文件(*.*)|*.*" CommonDialog1.InitDir = App.Path CommonDialog1.ShowOpen If Err <> cdlCancel Then TxtFileName = CommonDialog1.FileName Else Exit Sub End If Set xlApp = CreateObject("Excel.Application") '创建EXCEL对象 xlApp.Visible = True Set xlBook = xlApp.Workbooks.Open(TxtFileName) End Sub 注意最后要关闭 On Error Resume Next xlBook.Save xlBook.Close (True) '关闭工作簿............................................. xlApp.Quit '结束EXCEL对象.................................................... Set xlApp = Nothing '释放xlApp对象.............................................!!!
相关文章推荐
- 更换windows xp序列号
- BAE (使用1)
- 记一次FTP服务故障分析
- 某游戏公司“中国传统服装史”培训圆满结束!
- file_operation(文件操作) file(文件) inode(节点) http://blog.itpub.net/14805538/viewspace-445624/
- set
- 初学GtkBuilder界面开发
- window.onload() 和 $(function(){})
- 如何读写串口
- ubuntu安装vim
- session与cookie的区别
- 注册表中保存数据的简单方法
- [LeetCode] Shortest Word Distance I & II & III
- TCP/IP(3)IP
- Manacher算法之个人愚见
- svn Check out 出错解决
- 游戏地图中两点坐标相对的方向(角度)判断
- 迁移SVN仓库
- Codeforces Gym 100342J Triatrip Bitset+枚举
- SpringMVC先将图片进行合成然后下载