精华内容
下载资源
问答
  • VBA 打开文件

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

    http://topic.csdn.net/t/20050606/09/4061737.html

    用Excel VBA选择文件、打开文件

    介绍如何用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
    选择打开文件后并没有真实的把它打开。

    展开全文
  • 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 VBA打开文件目录

    千次阅读 2015-04-08 09:43:03
    WinXP系统下使用VBA打开文件并拷贝内容至新的工作表 Sub Get_data()  Dim objDialog As Object, blnFile As Boolean, strLoadFile As String, filename As String  Set objDialog = CreateObject("UserAccounts....

    WinXP系统下使用VBA打开文件并拷贝内容至新的工作表

    Sub Get_data()

        Dim objDialog As Object, blnFile As Boolean, strLoadFile As String, filename As String
        Set objDialog = CreateObject("UserAccounts.CommonDialog")
        objDialog.Filter = "Excel文件(*.xls)|*.xls|所有文件(*.*)|*.*"
        blnFile = objDialog.ShowOpen
        If blnFile Then
            strLoadFile = objDialog.filename
            filename = CreateObject("Scripting.FileSystemObject").GetFileName(strLoadFile)
            Workbooks.Open filename:=strLoadFile
            Sheets("源数据").Select
            ActiveSheet.UsedRange.Select
            Selection.Copy
            Windows("统计模板.xlsm").Activate
            Sheets("目的数据").Select
            Range("A1").Select
            ActiveSheet.Paste
            Windows(filename).Activate
            ActiveWindow.Close
        End If
        Set objDialog = Nothing
        Sheets("首页").Select
    End Sub
    展开全文
  • 'VBA打开文件选择框、取得文件全路径与文件名 Sub selectExcelfile() Dim fileNameObj As Variant Dim aFile As Variant '数组,提取文件名fileName时使用 '打开文件对话框返回的文件名,是一个全路径文件名,...
    'VBA打开文件选择框、取得文件全路径与文件名
    Sub selectExcelfile()
        Dim fileNameObj As Variant
        Dim aFile As Variant                            '数组,提取文件名fileName时使用
        
         '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant
        Dim fullName As String
        Dim fileName As String                         '从FileName中提取的路径名
    
        Dim i As Integer
    
        fileNameObj = Application.GetOpenFilename("Excel 文件 (*.xls),*.xls")
        '调用Windows打开文件对话框
        If fileNameObj <> False Then                       '如果未按“取消”键
            aFile = Split(fileNameObj, "\")
            
            fileName = aFile(UBound(aFile))            '数组的最后一个元素为文件名
            fullName = aFile(0)
            For i = 1 To UBound(aFile)                 '循环合成全路径
                fullName = fullName & "\" & aFile(i)
            Next
            
        Else
            MsgBox "请选择文件"
            End
        End If
        '得到Excel全路径
        allExcelFullPath = fullName
        '得到Excel文件名
        workbookName = fileName
    End Sub
    

    展开全文
  • 大家好,我们今日继续讲解VBA代码解决方案的第127讲内容:VBA如何打开和读取顺序文件VBA在控制文件的时候,打开和读取是最基本的操作,今天开始及以后的几讲会讲解这方面相关的内容,今日讲解的是VBA如何打开和...
  • 今天就列举CAD最容易出现的2个问题:「打开不了」和「显示文件缺失」,教教大家怎么解决。一、CAD显示文件缺失怎么回事?一般出现这种「缺少SHX文件」的弹窗,都是字体缺失的问题,只要安装相应的CAD字体文件即可...
  • CADvba开发手册VBA开发人员手册VBA入门本章将为...在AutoCAD中还有些相关的命令可以用于装载工程、运行工程,或打开VBA IDE环境。本章将概要介绍VBA工程、VBA命令和VBA IDE的使用。本章具体内容如下:了解嵌入和全局...
  • Electron弹出的打开文件对话框存在必现的卡死场景,原因是弹窗线程COM反初始化卡死,而主线程在同步等待弹窗线程销毁。Electron的部分代码还没及时跟上Chromium的改动,分析Electron的问题时,可多跟最新版Chrome...
  • 在VBA编程中我们,常常需要手动打开文件选择框、取得文件全路径与文件名,下载这个...'VBA打开文件选择框、取得文件全路径与文件名 Sub selectExcelfile() Dim fileNameObj As Variant Dim aFile As Variant ...
  • VBA中经常要用到文件对话框来进行打开文件、选择文件或选择文件夹的操作。 用Microsoft Office提供的文件对话框比较方便。 用法如下 Application.FileDialog(fileDialogType) fileDialogType ...
  • Excel VBA和文件夹-1.7通过对话框灵活选定文件夹并打开对应文件前景提要之前我们学习过了如何通过VBA遍历我们指定的文件夹,通过此方法,我们可以很方便将某个文件夹中相关格式的文件全部打开并处理,节省了不少的...
  • '将此份文档另存为纯文本格式文件MdFileBrw.bas,'并导入至vba的模块中即可在其他模块调用当中的函数。'其中GetFolder函数可以选择文件夹并返回选择的路径(按取消则返回空字符串),'ListFilesFSO过程可以根据传入的...
  • VBA 打开文件对话框

    2013-04-28 21:58:00
    Dim FilePath With Application.FileDialog...用Excel打开文件 msoFileDialogSaveAs ' 保存一个文件   转载于:https://www.cnblogs.com/gamesun/archive/2013/04/28/3050098.html
  • 在使用浩辰CAD软件打开文件的时候,有的时候图纸仅仅一两兆,打开速度却很慢,当然打开之后操作也很缓慢,有时候甚至会出现因内存不足而闪退的情况。虽然对于比较大的图纸的确会出现打开速度较慢的情况,但打开仅仅...
  • '打开文件对话框结构Public Type OPENFILENAMElStructSize As LonghwndOwner As LonghInstance As LonglpstrFilter As StringlpstrCustomFilter As StringnMaxCustFilter As LongnFilterIndex As LonglpstrFile As ...
  • '声明PrivateDeclareFunctionacedSetColorDialogLib"acad.exe"_(ColorAsLong,ByValbAllowMetaColorAsBoolean,ByValnCurLayerColorAsLong)AsBoolean'封装API函数,获得用户选择颜色的结果PublicFunctionGetColorFro.....
  • ArcGIS VBA 打开文件对话框 OpenFileDialog

    千次阅读 2014-05-16 13:31:27
    Private Sub CommandButton2_Click()  Dim pGxdial As IGxDialog  Set pGxdial = New GxDialog  pGxdial.ButtonCaption = "保存路径" ... pGxdial.Title = "打开"  pGxdial.RememberLocation = True  
  • 2、设置为当前的图层ThisDrawing.ActiveLayer=图层对象注意,等号右边的变量不能用图层名称,必须使用一个有效的图层变量以下一些属性在图层比较常用:LayerOn 打开关闭Freeze 冻结Lock锁定Color 颜色Linetype 线型...
  • CAD_VBA_二次开发中的所有方法的中文翻译AActivate 激活指定的图形。Add 创建成员对象并将它添加到适当的集合中。Add3DFace 以给定的四个顶点创建 3DFace 对象。Add3DMesh 以给定的 M 和 N 方向上点的数目和坐标创建...
  • 最近的CAD每次打开系统都会新建一个Acad.vlx文件,为了保持桌面整洁,我每次打开一张图纸,都需要手动去删除这个文件,现在给大家找到一个解决方式,如下 这个实际上不是Autodesk提供的AutoCAD文件。当AutoCAD载入...
  • 今天就列举CAD最容易出现的2个问题:「打开不了」和「显示文件缺失」,教教大家怎么解决。一、CAD显示文件缺失怎么回事?一般出现这种「缺少SHX文件」的弹窗,都是字体缺失的问题,只要安装相应的CAD字体文件即可...
  • 发现纯VBA环境貌似是无法实现自动加载的,所以想到了用“事件”的方式,即是说用DVB作为代码的载体,在启动CAD后手动加载DVB,这时DVB中和菜单建立相关的代码作为APP级别的事件,这里我选择了AcadDocument_Activate...
  • 01命令修复使用修复命令直接用输入命令,接着在对话框中输入要恢复的文件,确认后cad系统开始执行恢复文件操作。我们也可以尝试点击CAD“文件”下的“修复”按钮,修复已损坏的文件。02警告时保存方法CAD文件出现...
  • 如果用的是很早的AUTOCAD的版本或最新的AUTOCAD版本,通常不会有这样的问题,因为早期AUTOCAD R14版以前的版本都是单文档程序,就是会打开一个文件就启动一个CAD窗口,而在高版本,例如2011以后版本也不会有这个问题...
  • 用Excel VBA选择文件、打开文件

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

    2019-10-09 00:53:45
    Sub fileCreate2() Dim folderPath, fileName, s As String Dim fs, fo, fc, f As Object folderPath = "C:\Users\ofu1\Desktop\ログ" Open folderPath & "\" & "test02.txt" For Ou...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,362
精华内容 544
关键字:

vba打开文件