精华内容
下载资源
问答
  • VBA对话框的常用处理函数
  • 用html VBA 编制的对话提示框,用来代替VBA中的msgbox函数.
  • VBA 自定义对话框

    2020-08-17 22:09:45
    今天主要讲讲自定义对话框这一章,中间鸽了一小部分的函数过程,WindowsAPI、连接数据库的内容还没学,后续再更新。 一、inputbox inputbox输入框之前已经用过了,但是除了之前VBA中用的inputbox之外,还有...

    今天主要讲讲自定义对话框这一章,中间鸽了一小部分的函数过程,WindowsAPI、连接数据库的内容还没学,后续再更新。

    一、inputbox

    inputbox输入框之前已经用过了,但是除了之前VBA中用的inputbox之外,还有Application对象中的方法,这两个是不一样的。

    ①VBA中的inputbox函数用法:

        Dim str As String
        str = InputBox("请随便输入一串字符串")

    VBA中的inputbox函数完整方法:

    InputBox(prompt、[ title ]、[ default ]、[ xpos ]、[ ypos ]、[HelpFile、Context])

    prompt:必填,也就是要显示的提示信息,最多1024个字符,回车(chr(13))、换行(chr(10))

    title:可选,输入框的标题。不写的话就是上图的“Microsoft Excel”。

    default:可选,指定一个初始值,用户输入前就会有个内容

    xpos:可选,提示框距离屏幕左侧位置(单位缇:1缇相当于1/15像素,按照现在的屏幕分辨率,起码上千才能到屏幕中间)

    ypos:可选,提示框距离屏幕上侧位置(单位缇)

    HelpFile:帮助文件

    Context:帮助主题

    也可以这样操作:

    str = InputBox(prompt:="请输入", Title:="提示框", Default:="默认内容")

    ② EXCEL中inputbox方法用法:

    InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId,Type)

    Prompt:必填,也就是要显示的提示信息,可以是字符串、数字、日期、布尔值,当然了,显示的时候都会被强制转换为String类型。

    Title:可选,输入框的标题。不写的话就是上图的“Microsoft Excel”。

    Default:可选,指定一个初始值,用户输入前就会有个内容

    Left:可选,提示框距离屏幕左侧位置(单位磅:1磅相当于1/72 英寸,约等于1/2.8mm,总之按照现在的屏幕分辨率,起码上千才能到屏幕中间)

    Top:可选,提示框距离屏幕上侧位置(单位磅)

    HelpFile:帮助文件

    HelpContextId:帮助主题

    Type:可选的参数,返回数据类型的代号

    type和之前的函数比是多出来的,参数可以直接写数字,也可以写公式(例如4+4),有以下几种:

    说明

    0

    公式

    1

    数字

    2

    文本(字符串)

    4

    逻辑值(True 或 False)

    8

    Range 对象形式的单元格引用

    16

    错误值,如 #N/A

    64

    数值数组

    例如需要用户输入单元格区域,可以这样操作:

    str = Application.InputBox(prompt:="请输入单元格区域", Type:=8)

    type的好处是会自动判断用户输入的数据类型。

     

     

    二、VBA中的Msgbox

    MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])

    prompt:必填,也就是要显示的提示信息,最多1024个字符,回车(chr(13))、换行(chr(10))

    buttons :可选。 数值表达式,用于指定要显示按钮的类型。

    title:可选,输入框的标题。不写的话就是上图的“Microsoft Excel”。

    HelpFile:帮助文件

    Context:帮助主题

    buttons 参数设置如下:

    二、VBA中的Msgbox

    说明

    MsgBox (prompt, [ buttons, ] [ title, ] [ helpfile, context ])

    0

    仅显示“确定”按钮。

    prompt:必填,也就是要显示的提示信息,最多1024个字符,回车(chr(13))、换行(chr(10))

    1

    显示“确定”和“取消”按钮。

    buttons :可选。 数值表达式,用于指定要显示按钮的类型。

    2

    显示“中止”、“重试”和“忽略”按钮。

    title:可选,输入框的标题。不写的话就是上图的“Microsoft Excel”。

    3

    显示“是”、“否”和“取消”按钮。

    HelpFile:帮助文件

    4

    显示“是”和“否”按钮。

    Context:帮助主题

    5

    显示“重试”和“取消”按钮。

    buttons 参数设置如下:

    16

    显示“关键消息”图标。

    vbQuestion

    32

    显示“警告查询”图标。

    vbExclamation

    48

    显示“警告消息”图标。

    vbInformation

    64

    显示“信息消息”图标。

    vbDefaultButton1

    0

    第一个按钮是默认按钮。

    vbDefaultButton2

    256

    第二个按钮是默认按钮。

    vbDefaultButton3

    512

    第三个按钮是默认按钮。

    vbDefaultButton4

    768

    第四个按钮是默认按钮。

    vbApplicationModal

    0

    应用程序模式;用户在继续在当前应用程序中工作前必须响应消息框。

    vbSystemModal

    4096

    系统模式;在用户响应消息框前,所有应用程序都挂起。

    vbMsgBoxHelpButton

    16384

    在消息框中添加“帮助”按钮。

    vbMsgBoxSetForeground

    65536

    将消息框窗口指定为前景窗口。

    vbMsgBoxRight

    524288

    文本右对齐。

    vbMsgBoxRtlReading

    1048576

    指定文本在希伯来语和阿拉伯语系统中应从右到左显示。

    下面两句意思一样

        str = MsgBox("请进行选择", 4)
        str = MsgBox("请进行选择", vbYesNo)

    根据上面的各种Msgbox的按钮类型,可以得到以下几种用户点击的返回结果:

    常量

    说明

    vbOK

    1

    确定

    vbCancel

    2

    Cancel

    vbAbort

    3

    中止

    vbRetry

    4

    重试

    vbIgnore

    5

    忽略

    vbYes

    6

    vbNo

    7

    三、Excel文件和文件名获取方法

    ①GetOpenFilename (FileFilter, FilterIndex, Title, ButtonText, MultiSelect)

    显示标准的 “打开” 对话框,并获取用户文件名,而不必真正打开任何文件。

    FileFilter:可选,指定文件筛选条件的字符串。

    FilterIndex:可选,指定默认文件筛选条件的索引号,编号从 1 直到 FileFilter 中指定的筛选器编号。 如果此参数被省略或大于存在的筛选器数,使用的是第一个文件筛选器。

    Title:可选,指定对话框的标题。 如果此参数被省略,标题为“打开”。

    ButtonText:可选,仅限 Macintosh。

    MultiSelect:可选,允许选择多个文件名。 若为 False,仅允许选择一个文件名。

    不写参数用法:

    Sub demo()
        Dim fileName As String
        fileName = Application.GetOpenFilename
        MsgBox fileName
    End Sub

    此时只能选择一个文件,输出文件路径和名称

     

    指定文件类型用法(比如指定EXCEL和WORD文件),默认选定为word文件,可以多选:

    Sub demo()
        Dim fileName As Variant
        Dim filt As String
        Dim msg As String
        Dim i As Integer 
        msg = ""
        filt = "excel文件,*.xls*,word文件,*.doc*,所有文件,*.*"
        fileName = Application.GetOpenFilename(filt, 2, , , True)
        If IsArray(fileName) Then
            For i = LBound(fileName) To UBound(fileName)
                msg = msg + fileName(i)
            Next
        Else
            msg = fileName
        End If
        MsgBox msg
    End Sub

    需要注意的是,文件类型的选择上每一个类型要写两个内容,一个是文本提示,一个是后缀名。例如"excel文件,*.xls*,只写了后缀是会报错的。

    LBound 函数:返回包含指定的数组维度的最小可用下标的Long数据类型。

    UBound 函数:返回包含指定的数组维度的最大可用下标的Long数据类型。

     

    ② GetSaveAsFilename (InitialFilename, FileFilter, FilterIndex, Title, ButtonText)

    显示标准的“另存为”**** 对话框,获取用户文件名,而无须真正保存任何文件

    InitialFilename:指定建议的文件名。 如果省略该参数,Microsoft Excel 使用活动工作簿的名称。

    FileFilter:指定文件筛选条件的字符串。 最大长度为 255 个字符,否则该方法返回错误 2015。

    FilterIndex:指定默认文件筛选条件的索引号,范围为 1 到 FileFilter 指定的筛选条件数。 如果此参数被省略或大于存在的筛选器数,使用的是第一个文件筛选器。

    Title:指定对话框的标题。 如果省略该参数,则使用默认标题。

    ButtonText:仅限 Macintosh。

     

    ③FileDialog (fileDialogType):获得目录的名称可以使用这个

    返回一个 FileDialog 对象,它表示文件对话框的实例。 提示输入目录名称

    fileDialogType:必需,文件对话框的类型。共以下几种:

    msoFileDialogFilePicker。 允许用户选择文件。

    msoFileDialogFolderPicker。 允许用户选择文件夹。

    msoFileDialogOpen。 允许用户打开文件。

    msoFileDialogSaveAs。 允许用户保存文件。

    用法如下:

    Sub demo2()
        Dim str As String
        With Application.FileDialog(msoFileDialogFilePicker)
            .InitialFileName = "C:\"
            .Title = "选择一个文件夹"
            .Show
            If .SelectedItems.Count = 0 Then
                MsgBox "啥也没选"
            Else
                MsgBox .SelectedItems(1)
            End If
        End With
    End Sub

     

     

    展开全文
  • VBA 文件对话框

    千次阅读 2019-08-13 20:31:11
    此属性对 “文件夹选取器” 对话框或 “另存为” 对话框无效,因为用户永远无法从这些类型的文件对话框中选择多个文件。 InitialFileName 属性,读/写,设置或返回一个 String 类型的值,代表文件对话框中初始...

    语法:

    	expression.FileDialog(fileDialogType )
    	expression,一个代表 Application 对象的变量。
    	通常写作	 Application.filedialog(fileDialogType)
    

    参数

    名称 必需/可选 数据类型 说明
    fileDialogType 必需 MsoFileDialogType 文件对话框的类型

    其中,fileDialogType 必需 MsoFileDialogType 文件对话框的类型。
    MsoFileDialogType 可为下述常量之一:

    常量 说明
    msoFileDialogOpen 1 允许用户打开文件
    msoFileDialogSaveAs 2 允许用户保存文件
    msoFileDialogFilePicker 3 允许用户选择文件
    msoFileDialogFolderPicker 4 允许用户选择文件夹

    FildDialog 对象的 Show 方法

    当设置完FileDialog 对象的基本属性后,需要使用 Show 方法打开对话框。
    Show 方法具有一个返回值:当用户选择文件(夹)后,返回 -1;当用户未选择或者直接关闭对话框,则返回 0。

    FildDialog 对象的Execute 方法

    当用户选择某个文件后,若 FileDialog 类型为 msoFileDialogOpen 或 msoFileDialogSaveAs 时,则该对象的 Execute 方法执行打开或者保存文件的操作。

    FildDialog对象的常用属性及其介绍

    说明 读/写
    .Filters 文件筛选文本对象 只读
    .FilterIndex 文件筛选的序号 读/写
    .ButtonName 按钮显示的文本 读/写
    .Title 对话框的标题 读/写
    .AllowMultiSelect 是否允许选择多个文件 读/写
    .InitialFileName 可选项,默认打开的地址 读/写
    .InitialView 文件排列的默认视图 读/写
    .SelectedItems 获取 FileDialogSelectedItems 集合 只读
    • Filters属性,返回一个FileDiabogFilters集合对象。可以使用其Clear方法和Delete方法删除筛选的项目,也可以使用Add方法添加筛选项目,其Add方法如下(参考 “示例1):

        Filters.add(Descriptions, Extensions, [Position])
      
    参数 类型 说明 示例
    Descriptions 文本 文件类型的描述
    Extension 文本 文件类型的扩展名,可以由逗号或分号隔开多个相同描述的扩展名 如:*.gif, *.jpg, *.jpeg
    Position 添加文件类型的项目位置,该参数从1开始
    • FilterIndex属性表示要默认显示的 “文件筛选类型”,其对应 Filters属性的 “Position”参数,参考 “示例1”

    示例1

    Sub Main()
    
      Dim fd As FileDialog
      Dim vrtSelectedItem As Variant
      
      Set fd = Application.FileDialog(msoFileDialogFilePicker)
      
      With fd
        .Filters.Clear 			'清除现有的文件类型
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1  	'添加选择文件类型
        .Filters.Add "自定义格式类型", "*.格式1; *.格式2", 2
        .Filters.Add "所有文件", "*.*", 3
        
        .FilterIndex = 2		'默认显示的 “文件筛选类型”	
        
        If .Show = -1 Then  	'显示窗体
          For Each vrtSelectedItem In .SelectedItems 		'遍历所有选择的文件
            MsgBox "Selected item's path: " & vrtSelectedItem
          Next vrtSelectedItem
        Else
        End If
      End With
      
      Set fd = Nothing  '清空对象
    End Sub
    
    

    在这里插入图片描述

    • ButtonName 属性,读/写,设置或获取代表文件对话框中动作按钮上所显示文本的 String 类型的值,通常可以使用其默认属性,无需特殊设置。
    • Title属性,读/写,设置对话框标题,其长度不可超过127字符,通常可使用其默认属性,无需单独设置。
    • AllowMultiSelect 属性,读/写,是否允许选择多个文件,True 允许多选,False 不允许多选
      注:
      1. 此属性对 “文件夹选取器” 对话框或 “另存为” 对话框无效,因为用户永远无法从这些类型的文件对话框中选择多个文件。
    • InitialFileName 属性,读/写,设置或返回一个 String 类型的值,代表文件对话框中初始显示的路径或文件名。
      注:
      1. 指定文件名时可以使用 * 和 ? 通配符,但在指定路径时则不能使用它们。
      2. 如果指定了路径而没有指定文件名,则对话框中将显示文件筛选器所允许的所有文件。
      3. 如果指定了位于初始文件夹中的某个文件,则对话框中只显示该文件。
      4. 如果指定了并不存在于初始文件夹中的文件名,则对话框将不包含任何文件。
      5. 你在 InitialFileName 属性中指定的文件类型将覆盖文件筛选器设置。
      6. 如果指定了无效路径,则将使用上次使用的路径。
      7. 如果使用无效路径,则系统会向用户发出警告消息。
      8. 将此属性设置为长度超过 256 个字符的字符串会导致运行时错误。
    • InitialView 属性,读/写,获取或设置一个 “MsoFileDialogView ” 常量, 该常量代表文件和文件夹在文件对话框中的默认显示样式。
      其值可以参考链接: MsoFileDialogView 枚举 (Office)
    • SelectedItems 属性,只读,获取 FileDialogFilters 集合
      当 FileDialog 对象的方法 Show = -1,即用户选择了文件(夹)对象,则返回用户在文件对话框中所选的文件的路径列表。

    示例

    在此示例中,Microsoft Excel 打开文件对话框,允许用户选择一个或多个文件。 选择这些文件后,Excel 会在单独的消息中显示每个文件的路径。

    Sub UseFileDialogOpen() 
        Dim lngCount As Long 
        With Application.FileDialog(msoFileDialogOpen) 	'对话框为 打开文件 样式
            .AllowMultiSelect = True 
            .Show
            For lngCount = 1 To .SelectedItems.Count 
                MsgBox .SelectedItems(lngCount) 
            Next lngCount 
        End With 
    End Sub
    

    以下代码创建一个选择文件夹的对话框:

    Sub UseFolder
    	dim fd as FileDialog
    	dim fp as string
    	Set fd = Application.FileDialog(msoFileDialogFolderPicker)	'对话框为 选择文件夹 样式
        With fd
          .InitialFileName = ActiveWorkbook.path
          If .Show = -1 Then		'如果进行了选择并确认
            fp = .SelectedItems(1)	'fp = 选中的文件夹地址
            Msgbox fp
          Else
            Set fd = Nothing
            Exit Sub				'退出程序
          End If
        End With
    end Sub
    

    自定义示例:

    With Application.FileDialog(fileDialogType)
       .InitialFileName = filepath  '可选项,默认打开的地址
       .AllowMultiSelect = False
      If .Show Then P = .SelectedItems(1) Else: Exit Sub
    End With
    
    
    展开全文
  • VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。用Microsoft Office提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogType MsoFileDialogType 类型...

    VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。
    用Microsoft Office提供的文件对话框比较方便。
    用法如下
    Application.FileDialog(fileDialogType)
    fileDialogType      MsoFileDialogType 类型,必需。文件对话框的类型

      MsoFileDialogType 可为以下 MsoFileDialogType 常量之一。
        msoFileDialogFilePicker  允许用户选择文件。
        msoFileDialogFolderPicker  允许用户选择一个文件夹。
        msoFileDialogOpen  允许用户打开文件。用Excel打开。
        msoFileDialogSaveAs  允许用户保存一个文件。

    分别举例如下:

     

    1、msoFileDialogFilePicker 
    1)选择单个文件

     

    Sub SelectFile()
        '选择单一文件
        With Application.FileDialog(msoFileDialogFilePicker)
            .AllowMultiSelect = False   '单选择
            .Filters.Clear   '清除文件过滤器
            .Filters.Add "Excel Files", "*.xls;*.xlw"
            .Filters.Add "All Files", "*.*"          '设置两个文件过滤器
            If .Show = -1 Then    'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。
                MsgBox "您选择的文件是:" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
            End If
        End With
    End Sub

     

    2)选择多个文件

     

    Sub SelectFile()
        '选择多个文件
        Dim l As Long
        With Application.FileDialog(msoFileDialogFilePicker)
            .AllowMultiSelect = True   '单选择
            .Filters.Clear     '清除文件过滤器
            .Filters.Add "Excel Files", "*.xls;*.xlw"
            .Filters.Add "All Files", "*.*"    '设置两个文件过滤器
            .Show
            'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。
            For l = 1 To .SelectedItems.Count
                MsgBox "您选择的文件是:" & .SelectedItems(l), vbOKOnly + vbInformation, "智能Excel"
            Next
        End With
    End Sub
     

    2、msoFileDialogFolderPicker

    文件夹仅能选择一个

     

    Sub SelectFolder()
        '选择单一文件
        With Application.FileDialog(msoFileDialogFolderPicker)
            If .Show = -1 Then
            'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。
                MsgBox "您选择的文件夹是:" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
            End If
        End With
    End Sub

     

    3、msoFileDialogOpen
    4、msoFileDialogSaveAs

    使用方法与前两种相同
    只是在.show可以用.Execute方法来实际打开或者保存文件。

    例如:

     

    Sub SelectFile()
        '选择单一文件
        With Application.FileDialog(msoFileDialogFilePicker)
            .AllowMultiSelect = False   '单选择
            .Filters.Clear   '清除文件过滤器
            .Filters.Add "Excel Files", "*.xls;*.xlw"
            .Filters.Add "All Files", "*.*"          '设置两个文件过滤器
           .Execute
        End With
    End Sub
     

     

     

    另见:

     

    《用Excel VBA选择文件、高容错性地打开文件》

    http://justsee.iteye.com/blog/1468743

     

     

    转自因特网,感谢因特网的雷锋们!

    展开全文
  • Excel 打开对话框,获取文件夹路径 'Window「参照」ダイアログで選択したItem 名を取得 Public Function GetFolderName(ByVal DialogType As MsoFileDialogType) As String With Application.FileDialog(DialogType...

    Excel 打开对话框,获取文件夹路径

     

    'Window「参照」ダイアログで選択したItem 名を取得
    Public Function GetFolderName(ByVal DialogType As MsoFileDialogType) As String
        With Application.FileDialog(DialogType)
            If .Show = True Then
                GetFolderName = .SelectedItems(1)
            End If
        End With
    End Function
    
    
    Public Sub setInputAndOutput()
    
        Dim inFolder As String: inFolder = GetFolderName(msoFileDialogFolderPicker)
        Dim outFolder As String
        
        ActiveSheet.Range("D4") = inFolder
        
        Dim indexOfIN As Integer
        
        indexOfIN = InStr(inFolder, "\In")
        
        
        If indexOfIN > 0 Then
            outFolder = Mid(inFolder, 1, indexOfIN) & "Out"
            ActiveSheet.Range("D12") = outFolder
            
            Range("I2:N15").Select
            Selection.ClearContents
            Range("A1").Select
        Else
            TOOL_FILE_NAME = ThisWorkbook.Name
            TOOL_FILE_SHEET_NAME = "ツール"
            Set ERROR_INFO_LIST = New Collection
            ERROR_INFO_LIST.Add ("input:inputの選択不正確、" & "inputに対して、In フォルダーを選択ください。")
            Call setErrorInfoToExcel
            Set ERROR_INFO_LIST = New Collection
            Range("A1").Select
        End If
    
    End Sub
    
    
    

     

     

     

    以上

     

    具体用法

    Application.FileDialog(fileDialogType)
    fileDialogType      MsoFileDialogType 类型,必需。文件对话框的类型。

    MsoFileDialogType 可为以下 MsoFileDialogType 常量之一。

        ・允许用户选择文件。              msoFileDialogFilePicker    
        ・允许用户选择一个文件夹。          msoFileDialogFolderPicker
        ・允许用户打开文件。             msoFileDialogOpen      
        ・允许用户保存一个文件。          msoFileDialogSaveAs     

     

     

     

     

    展开全文
  • VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。 用Microsoft Office提供的文件对话框比较方便。 用法如下 Application.FileDialog(fileDialogType) fileDialogType ...
  • VBA 浏览文件夹对话框调用实现代码。大家可以根据需要选择。
  • VBA 输入输出对话框

    2020-03-25 13:40:31
    inputbox prompt:=提示文字 title:=最上面的那个字 default:=默认值,如果你啥都不写,那就是这个默认值 xpos:=左端与屏幕左端的距离 ypos:=顶端与屏幕顶端的距离 在输入对话框VBA中有两种形式,分别是: ...
  • '选择文件夹(http://blog.sina.com.cn/s/blog_55fc7c2f0101mb4t.html): Option Explicit 'http://www.mvps.org/access/api/api0002.htm 'Code courtesy of Terry Kreft Private Type BROWSEINFO hOw...
  • shenzhengwei 于 2009-10-28 10:52 AM 发表评论: 请问在VB6中怎样调用AutoCAD “选择颜色对话框请问在VB6中怎样调用AutoCAD “选择颜色对话框 发表评论 - 不要忘了输入验证码哦!作者: 用户: 密码: 注册? ...
  • '提供文件对话框,功能与 Microsoft Office 应用程序中标准的“打开”和“保存”对话框类似。 '利用这些对话框,解决方案的用户可以简便地指定解决方案中应该使用的文件和文件夹。 ' '“打开”对话框:让用户选择...
  • CADvba开发手册VBA开发人员手册VBA入门本章将为你介绍AutoCAD VBA工程及VBA交互开发环境(VBA IDE)。尽管大部分VBA环境在行为上都是相似的,但AutoCAD VBA IDE还是有些独有的特性。在AutoCAD中还有些相关的命令可以...
  • VBA 打开文件对话框

    2013-04-28 21:58:00
    对话框类型有下面4中属性 msoFileDialogFilePicker ' 选择文件 msoFileDialogFolderPicker ' 选择一个文件夹 msoFileDialogOpen ' 用Excel打开文件 msoFileDialogSaveAs ' 保存一个文件   转载于:...
  • vba 浏览文件夹对话框

    2013-03-22 10:02:14
    Sub test() Call OpenFilename End Sub Sub OpenFilename()  Dim fName As Variant  fName = Application.GetOpenFilename(fileFilter:="EXCELファイル,*.xls;*.xlsx", Title:="ファイルを開く") ...
  • Electron弹出的打开文件对话框存在必现的卡死场景,原因是弹窗线程COM反初始化卡死,而主线程在同步等待弹窗线程销毁。Electron的部分代码还没及时跟上Chromium的改动,分析Electron的问题时,可多跟最新版Chrome...
  • Excel VBA和文件夹-1.7通过对话框灵活选定文件夹并打开对应文件前景提要之前我们学习过了如何通过VBA遍历我们指定的文件夹,通过此方法,我们可以很方便将某个文件夹中相关格式的文件全部打开并处理,节省了不少的...
  • '将此份文档另存为纯文本格式文件MdFileBrw.bas,'并导入至vba的模块中即可在其他模块调用当中的函数。'其中GetFolder函数可以选择文件夹并返回选择的路径(按取消则返回空字符串),'ListFilesFSO过程可以根据传入的...
  • VBA-使用msgbox对话框

    2020-02-29 20:41:00
    使用msgbox对话框 在使用 Excel 的过程中,如果需要向用户显示简单的提示信息,可以使用 MsgBox 函数显示一个消息框,其格式为:MsgBox(prompt[, buttons] [, title] [, helpfile, context]) prompt:必须项,代表...
  • EXCEL VBA 选择文件对话框

    万次阅读 2013-08-20 15:13:53
    对话框,并获取用户文件名,而不必真正打开任何文件。 语法 表达式 .GetOpenFilename( FileFilter , FilterIndex , Title , ButtonText , MultiSelect ) 表达式  一个代表 Application 对象的变量。...
  • 作为一名设计狗,见CAD的时间比见任何人都多,而最扎心的事莫过于CAD出现大大小小的问题了。今天就列举CAD最容易出现的2个问题:「打开不了」和「显示文件缺失」,教教大家怎么解决。一、CAD显示文件缺失怎么回事?...
  • VBA-选择文件对话框

    2015-09-17 13:57:29
    '打开选择路径对话框 '@strTitle 对话框标题名 '@strTypesDec 选择文件类型名(多文件名时用"|"连接) "Images|All files" '@strExten 选择文件类型(一个文件名有多个读取类型时用";"连接,多个文件名用|连接...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 695
精华内容 278
关键字:

vba对话框