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

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

GetOpenFilename相当于Excel打开窗口,通过该窗口选择要打开的文件,并可以返回选择的文件完整路径和文件名 此方法并不会真正打开文件, 不能显示文件夹路径FILEDIALOG可以打开此方法不能打开文件,只能返回路径 不能显示文件夹路径 Application...

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

代码改一下 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...

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

ls = Application.GetOpenFilename(, , , , True) 第一个文件名就是ls(1),可以使用了

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

如下注释,如还有不明之处 可以再问: Sub 合并工作薄() Dim FilesToOpen Dim x As Integer On Error GoTo ErrHandler Application.ScreenUpdating = False '禁用屏幕刷新,提高代码运行效率 FilesToOpen = Application.GetOpenFilename _ (File...

Wb.Activate Sheets("0812").Select Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Range("P2").Select ActiveSheet.Paste 把上面的改为下面的: wb.Sheets("0812").Range(Cells(2, 3), Range("C2").End(...

楼上说得还不清楚,应该是你的 FileName 定义的是一种特殊的类型,所以你的“FileName = Application.GetOpenFilename(FileFilter:=Filt, FilterIndex:=FiltIndex, Title:=Title)”这一句就是给FileName定义了一个字符串类型了,所以它只代表该工...

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