lzth.net
当前位置:首页 >> VBA 这个AppliCAtion.GEtOpEnFilEnAmE 的用法 举个... >>

VBA 这个AppliCAtion.GEtOpEnFilEnAmE 的用法 举个...

朋友,我发给你的附件中不就是例子吗!其实也就几个参数而以; 你可以偿试改下里面的参数,会存现不动的效果;我把几个参的详细给你说下吧:全部是我以前自己学习的时候总结的。 一、概述基本语法 'GetOpenFilename相当于Excel打开窗口,通过该...

您好, Application.GetOpenFilename 方法不具备这种功能的! 替代方案如下: Sub Demo() With Application.FileDialog(msoFileDialogOpen) .InitialFileName = "D:\" .Show End WithEnd Sub 如果实在要用 Application.GetOpenFilename 方法,可...

Sub test() Dim FileName As String Dim wb As Workbook FileName = Application.GetSaveAsFilename(ThisWorkbook.Path) If FileName = "False" Then Exit Sub Set wb = Workbooks.Add wb.SaveAs FileName End Sub

区别就是一个是"GetOpenFileName"一个是"GetSaveFileName" 很明显哦,一个是完成打开操作后返回信息,另一个是完成保存操作后返回信息.

代码改一下 Private Sub CommandButton1_Click() Dim strfile As String strfile = Application.GetOpenFilename("所有文件(*.*),*.*") If strfile = "False" Then'strfile定义的是String类型,无法与boolean类型的False比较 MsgBox ("未选择...

你的思路错了。 一、如果是用VBA的编程环境,根本没必要用这种方式。 你可以直接 dim wb as excel.workbook set wb=application.workbooks.open("你的另一个EXCEL的路径") dim sh as excel.worksheet set sh=wb.worksheets(1) sh就是你要的sheet...

我测试可以, 我的是WIN7 的系统, OFFICE 2010

把Dim strfile As String的“As String”删掉即可。

Sub test() Dim FileName As String FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx") If FileName "" Then Workbooks.Open FileName, 0, 1 Range("A1:D5").Copy ThisWorkbook.ActiveSheet.Range("A65000").E...

Application.Documents .Open "AAA.dwg" Application.ActiveDocument .FullName

网站首页 | 网站地图
All rights reserved Powered by www.lzth.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com