精华内容
下载资源
问答
  • VBA中经常要用到文件对话框来进行打开文件选择文件选择文件夹的操作。Microsoft Office提供的文件对话框比较方便。用法如下Application.FileDialog(fileDialogType)fileDialogTypeMsoFileDialogType类型,...

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

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

    分别举例如下:

    1、msoFileDialogFilePicker 
    1)选择单个文件

    复制内容到剪贴板
    代码:

    Sub SelectFile()
        '选择单一文件
        'www.okexcel.com.cn
        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()
        '选择多个文件
        'www.okexcel.com.cn
        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()
        '选择单一文件
        'www.okexcel.com.cn
        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方法来实际打开或者保存文件。

    转载于:https://www.cnblogs.com/shida-liu/p/9242524.html

    展开全文
  • Excel VBA选择文件、打开文件

    千次阅读 2010-07-15 23:26:00
    介绍如何用VBA选择文件用VBA打开文件。 点击打开文件会弹出一个windows文件打开对话框,在EXCEL中VBA怎么实现这个功能?   Sub SelectFile()  Dim FileName As Variant   '...

    介绍如何用VBA选择文件和用VBA打开文件
    点击打开文件会弹出一个windows文件打开对话框,在EXCEL中VBA怎么实现这个功能?

     

    Sub SelectFile()
        Dim FileName As Variant                        
         '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant
        Dim sFileName As String                         '从FileName中提取的文件名
        Dim sPathName As String                         '从FileName中提取的路径名
        Dim aFile As Variant                            '数组,提取文件名sFileName时使用
        Dim ws As Worksheet                             '存储文件路径名和文件名的工作表
        Set ws = Worksheets("Sheet1")                   '设置工作表
        FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
        '调用Windows打开文件对话框
        If FileName <> False Then                       '如果未按“取消”键
            aFile = Split(FileName, "/")                '在全路径中,以“/”为分隔符,分成数据
            sPathName = aFile(0)                        '取盘符
            For i = 1 To UBound(aFile) - 1              '循环合成路径名
                sPathName = sPathName & "/" & aFile(i)
            Next
            sFileName = aFile(UBound(aFile))            '数组的最后一个元素为文件名
            ws.Cells(1, 2).Value = sPathName            '保存路径名
            ws.Cells(2, 2).Value = sFileName            '保存文件名
        End If
    End Sub
    选择打开文件后并没有真实的把它打开。

    如何安全地打开Excel文件请参见《高容错性地打开文件

    本文件实例请参见《从任一Excel中批量导出Txt文件

    展开全文
  • VBA中经常要用到文件对话框来进行打开文件选择文件选择文件夹的操作。 Microsoft Office提供的文件对话框比较方便。 用法如下 Application.FileDialog(fileDialogType) fileDialogType ...

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

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

    分别举例如下:

    1、msoFileDialogFilePicker 
    1)选择单个文件

    Sub SelectFile()
    '选择单一文件
    'www.okexcel.com.cn
    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()
    '选择多个文件
    'www.okexcel.com.cn
    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()
    '选择单一文件
    'www.okexcel.com.cn
    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方法来实际打开或者保存文件。




    转载于:https://www.cnblogs.com/p4759521/articles/2203828.html

    展开全文
  • 使用VBA操作文件

    2012-12-06 00:09:15
    使用VBA操作文件
  • VBA选择文件   Sub SelectFile() Dim FileName As Variant '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim sFileName As String '从FileN

    VBA选择文件

     

    Sub SelectFile()
        Dim FileName As Variant                        
         '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant
        Dim sFileName As String                         '从FileName中提取的文件名
        Dim sPathName As String                         '从FileName中提取的路径名
        Dim aFile As Variant                            '数组,提取文件名sFileName时使用
        Dim ws As Worksheet                             '存储文件路径名和文件名的工作表
        Set ws = Worksheets("Sheet1")                   '设置工作表
        FileName = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
        '调用Windows打开文件对话框
        If FileName <> False Then                       '如果未按“取消”键
            aFile = Split(FileName, "\")                '在全路径中,以“\”为分隔符,分成数据
            sPathName = aFile(0)                        '取盘符
            For i = 1 To UBound(aFile) - 1              '循环合成路径名
                sPathName = sPathName & "\" & aFile(i)
            Next
            sFileName = aFile(UBound(aFile))            '数组的最后一个元素为文件名
            ws.Cells(1, 2).Value = sPathName            '保存路径名
            ws.Cells(2, 2).Value = sFileName            '保存文件名
        End If
    End Sub
     

    选择打开文件后并没有真实的把它打开,然后高容错性地打开文件

     

    Function OpenExcelFile(sPath As String, ByVal sFileName As String, bDisplay As Boolean, sPwd As String) As Integer
        '打开Excel文件
        'Ver 1.05
        '完成时间:2007.12.01
        '设计:美猴王软件工作室 www.okexcel.com.cn
        '参数说明:
        'sPath:文件绝对路径;sFileName:Excel文件名;bDisplay:True显示错误信息;sPwd:文件打开密码
        '返回值:-1:同名文件已经打开;-2:文件不存在或密码错误;0:成功打开;1:文件已经被打开
        Dim bOpen As Boolean
        Dim sFullName As String
        On Error Resume Next
        If InStr(LCase(sFileName), ".xls") = 0 Then sFileName = sFileName & ".xls"
        sFullName = Workbooks(sFileName).FullName
        '检查是否已经打开同名的Excel文件
        '如果有sFullName不为空
        On Error GoTo 0
        bOpen = False
        If sFullName <> "" Then
            If LCase(sFullName) = LCase(sPath & "\" & sFileName) Then
                bOpen = True
                '判断已经打开的同名文件是否本次需要打开的文件
                OpenExcelFile = 1
                '文件已经被打开
            Else
                If bDisplay Then
                    MsgBox "请首先关闭“" & sFileName & "”文件!" & Chr(13) & "不能同时打开同名文件,这是Excel的规定!", vbOKOnly + vbExclamation, "文件的打开错误"
                End If
                bOpen = True
                OpenExcelFile = -1
                '不能同时打开同名文件,这是Excel的规定
            End If
        End If
        If Not bOpen Then
            On Error GoTo errOpen
            Workbooks.Open Filename:=sPath & "\" & sFileName, Password:=sPwd
            On Error GoTo 0
            OpenExcelFile = 0
            '成功打开文件
        End If
        Exit Function
    errOpen:
        If bDisplay Then MsgBox Err.Description, vbOKOnly + vbExclamation, "文件的打开错误"
        OpenExcelFile = -2
        '文件不存在或密码错误
        On Error GoTo 0
    End Function
     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

     

    展开全文
  • EXCEL VBA 选择文件对话框

    万次阅读 2013-08-20 15:13:53
    Sub XXX() Dim arr() arr = Application.GetOpenFilename("所有支付文件 (*.xls;...*.csv,Excel 文件 (*.xls),*.xls,Excel2007 文件 (*.xlsx),*.xlsx,CSV 文件 (*.csv),*.csv", , "选择文件", , T
  • VBA 打开文件

    千次阅读 2011-02-22 21:44:00
    Excel VBA选择文件、打开文件介绍如何用VBA选择文件用VBA打开文件。点击打开文件会弹出一个windows文件打开对话框,在EXCEL中VBA怎么实现这个功能? 复制内容到剪贴板代码:Sub SelectFile() Dim FileName As ...
  • VBA安装文件

    2018-08-03 16:02:52
    VBA安装文件,安装金蝶时要用到,是金蝶软件中非常重要的一个文件,当你的计算机出现金蝶老提示缺少VBA.msi,就会导致金蝶软件无法正常使用或者无法安装。
  • VBA 弹框选择文件路径

    千次阅读 2017-10-30 20:17:34
    弹框选择文件路径
  • VBA-选择文件

    千次阅读 2018-08-04 11:26:07
    Option Explicit ... Dim aFile As Variant '数组,提取文件名fileName时使用 '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim filename As String Dim ful...
  • 【SolidWorks宏】VBA 选择文件

    千次阅读 2018-05-16 20:53:15
    Rem 选择文件-从注册表中获取 Function SG_BrowseForFileFromReg() Dim shell: Set shell = CreateObject("WScript.Shell") Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") ...
  • Excel VBA获取选择文件文件名称

    千次阅读 2020-10-20 10:50:20
    Dim aFile As Variant '数组,提取文件名fileName时使用 '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant Dim i As Integer File = Application.GetOpenFilename(...
  • 详细讲解VBA操作文件文件对象的方法,精心整理
  • 【办公-excel】VBA 选择文件、文件夹

    千次阅读 2018-05-16 22:20:20
    1、选择单个文件Sub SelectFile() '选择单一文件 'www.okexcel.com.cn With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False '单选择 .Filters.Clear '清除文...
  • 分享成果,随喜真能量。大家好,今日内容仍是和大家分享VBA编程中常用的简单“积木”过程代码,这些内容... 184:在VBA使用CopyFile方法复制VBA过程代码183:在VBA使用MoveFile方法将示例文件移动Sub mynz() ...
  • 'VBA打开文件选择框、取得文件全路径与文件名 Sub selectExcelfile() Dim fileNameObj As Variant Dim aFile As Variant '数组,提取文件名fileName时使用 '打开文件对话框返回的文件名,是一个全路径文件名,...
  • VBA 操作文件综合

    2013-05-06 12:42:41
    VBA处理文件的高质量速度问题,文件处理,重命名等
  • VBA编程中,我们常常需要手动打开文件选择框、取得文件全路径与文件名,下面这个例子可以实现这些功能,VBA代码如下:'VBA打开文件选择框、取得文件全路径与文件名Sub selectExcelfile()Dim fileNameObj As ...
  • WPS文字 VBA帮助文件

    2019-01-20 13:54:52
    金山出的WPS文字(Word)VBA的帮助文件,看起来比微软Word VBA的帮助文件相对简单,示例更为详细易懂
  • @VBA GetOpenFilename文件类型筛选规则,返回选择文件完整路径和文件名 一、概述基本语法 'GetOpenFilename相当于Excel打开窗口,通过该窗口选择要打开的文件,并可以返回选择文件完整路径和文件名。 '注: 1、此...
  • VBA-选择文件对话框

    2015-09-17 13:57:29
    '@strTypesDec 选择文件类型名(多文件名时"|"连接) "Images|All files" '@strExten 选择文件类型(一个文件名有多个读取类型时";"连接,多个文件名|连接) "*.gif; *.jpg; *.jpeg|*.*" '@...
  • 如图所示,如何利用VBA将文件夹“文件”内的所有文件复制到另一个文件夹“新文件”中并实现批量改名,将文件之后加上扩展名“.BAK”,从而创建备份? Option Explicit Sub 复制文件并改名() Dim sPathOld As ...
  • excel vba 帮助文件

    2018-02-19 12:14:11
    最全的vba 帮助文件,hxs 格式可下载Hxs阅读器查看,解决了2013版无法查阅帮助的问题
  • vba帮助文件

    2015-02-11 00:14:51
    很好用的vba学习文档 请多关照,期待着你的支持

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 23,538
精华内容 9,415
关键字:

如何用vba选择文件