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 方法,可...

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

下面是GetOpenFileName的例子: Option Explicit Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _ "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long Private Type OPENFILENAME lStructSize As Long hwndOwne...

执行GetOpenFileName成功后, 用函数PathStripPath可以得到文件名。 OPENFILENAME ofn; char strFile[MAX_PATH]; memset(&ofn,0,sizeof(OPENFILENAME)); memset(strFile,0,sizeof(char)*MAX_PATH); ofn.lStructSize=sizeof(OPENFILENAME); ofn.l...

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

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

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

你可以偿试改下里面的参数,会存现不动的效果;我把几个参的详细给你说下吧:全部是我以前自己学习的时候总结的。 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 ...

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