精华内容
下载资源
问答
  • 利用excelvba打开文件夹
    千次阅读
    2020-05-24 13:47:47

     PS:使用下面的代码时,请先根据自己所需要处理的文件夹,进行更改mypath的路径

    Sub VBA打开文件夹内所有Excel表格()
        Dim myPath$, myFile$, WB As Workbook    '这个$ 是相当于定义字符串
        myPath = "F:\" '把文件路径知定义给变量,这里请自行更改,记得最后要加一个反斜杠
        myFile = Dir(myPath & "*.xls*") '依次找寻指定路径中的*.xls,或者xlsx文件
        Do While myFile <> "" '当指定路径中有文件时进行循环
            If myFile <> ThisWorkbook.Name Then '如果我们这个宏文件在需要处理的文件夹之中,这个判断就会跳过下面的操作
                Set WB = Workbooks.Open(myPath & myFile) '打开符合要求的文件
                WB.Close 0  '不保存文件直接关闭
            End If
            myFile = Dir '找寻下一个*.xls,或者xlsx文件
        Loop
        Set WB = Nothing    '释放变量内存
    End Sub
    

     

    更多相关内容
  • Excel_VBA FileDialog 打开文件夹或文件

    千次阅读 2012-09-27 12:00:04
    ‘浏览文件和文件夹清单 Application.FileDialog(msoFileDialogFilePicker).Show ‘浏览文件夹清单 ...FileDialog 打开文件夹或文件 Dir 判断文件存在 Sub 按钮1_Click() '选择单一文...
    ‘浏览文件和文件夹清单
    Application.FileDialog(msoFileDialogFilePicker).Show
    ‘浏览文件夹清单
    Application.FileDialog(msoFileDialogFolderPicker).Show

    FileDialog 打开文件夹或文件
    Dir 判断文件存在

    Sub 按钮1_Click()

    '选择单一文件夹
    With Application.FileDialog(msoFileDialogFolderPicker)

    If .Show = -1 Then
    'FileDialog 对象的 Show 方法显示对话框,并且返回 -1(如果您按 OK)和 0(如果您按 Cancel)。
    MsgBox "您选择的文件夹是:" & .SelectedItems(1), vbOKOnly + vbInformation, "智能Excel"
    Dim fileOfIndexHtml As String
    fileOfIndexHtml = .SelectedItems(1) + "\index.html"
    '如果文件不存在就返回空字符串
    If Dir(fileOfIndexHtml) = "" Then MsgBox "文件夹中不存在,请重新指定文件目录!" Else MsgBox "该文件存在." + fileOfIndexHtml

    End If

    End With

    End Sub
    展开全文
  • '依次打开当前文件夹中所有的工作簿并且向该工作簿中的工作表中写入内容后并保存 Sub OpenAndSave() Dim myPath$, myFile$, AK As Workbook Dim sh As Worksheet Dim i As Integer i = 2 Dim fname As ...
    '依次打开当前文件夹中所有的工作簿并且向该工作簿中的工作表中写入内容后并保存
    Sub OpenAndSave()
    
    
            Dim myPath$, myFile$, AK As Workbook
            Dim sh As Worksheet
            
            Dim i As Integer
            i = 2
            
            Dim fname As String
            
            Application.ScreenUpdating = False '冻结屏幕,以防屏幕抖动
            
            myPath = "C:\Users\DELL\Desktop\新建文件夹 (2)\" '把文件路径定义给变量
            
            myFile = Dir(myPath & "*.xlsx") '依次找寻指定路径中的*.xlsx文件
            
            Do While myFile <> "" '当指定路径中有文件时进行循环
                If myFile <> ThisWorkbook.Name Then
                
                    Set AK = Workbooks.Open(myPath & myFile) '打开符合要求的文件
                    
                    Debug.Print AK.Name
                    
                    Set sh = AK.Sheets(1)
                    
                    
                      With sh
                      
                      .Range("A1").Value = "测试123"
                      
                      
        
                      End With
                    
                    
                    i = i + 1
                
                    AK.Save
                    AK.Close
                    Set AK = Nothing
                
                End If
                
                myFile = Dir '找寻下一个*.xlsx文件
                
            Loop
            Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用
            
    
    
    End Sub
    

     

    展开全文
  • 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程序,实现批量读取同一文件夹内的所有文件名称,且不需要修改程序就可以自由选择...
  • image不知道大家有没有遇到过这种情况,一个文件夹下有很多Excel文件,每个文件里面一个或多个表都有一个同样的单元格,比如自己的名字啊、生日啊之类的。这个时候如果要改动这个单元格的内容我们需要一个个改动,就...
  • Excel VBA 基础教程

    2019-01-01 18:51:06
    .................................................................................................................1 1.1 VBA是什么...........................................................................
  • GetOpenFilename方法相对应的,Excel VBA中提供了另一个方法Application. GetSaveAsFilename,该方法可以提供一个“另存为”对话框。与 GetOpenFilename方法不同的是,GetSaveAsFilename可以输入一个不存在的文件名...
  • 利用活动工作表中的所有图片的旧名与新名的对照,对指定文件夹中JPG图片进行重命名; 1.打开Excel文件,不要关闭; 2.再另外打开你自己需要操作的另一个Excel文件,并保持你要操作的工作表做为当前活动工作表; 3...
  • 心得(2):如何利用VBA一键更改多个excel文件为指定的名称 问题:如何一键更改相同目录下的所有excel文件的名称,改为这个excel文件名内的每个单元格的内容,如我这个因为是要统计所有比赛队伍的信息,因为大部分人的...
  • 文件夹2.wind_numerical_excello中有多个文件夹,每个文件夹中都有不定数目的Excel表格实现通过VBA,为每个Excel文件加入一个表头,即:插入一行,然后加入内容Sub jiabiaotou()Dim fs, f, fds, fd, fls, flSet fs =...
  • 'Check Public Function Check() As Variant On Error GoTo erlb Dim StrDir As String StrDir = ThisWorkbook.Worksheets("Path").Range("B2") objfile = Dir(StrDir & "\*.xlsx") ThisWorkbook...
  • excel使用vba语言实现宏,虽然没学过 但是大致的代码可以看懂 就搞了一个打开excel自动运行宏 在ftp服务器上下载文件到本地的小脚本 0x01 配置 首先需要打开excel的宏,在excel的 开始-》选项-》信任中心 -》宏...
  • Excel VBA 利用FileSystemObject处理文件

    千次阅读 2020-10-01 11:18:20
    Excel VBA 利用FileSystemObject类处理文件 FileSystemObject介绍 FileSystemObject是Windows Script Host Object Model对象模型的成员,能够对文件进行方便的基本操作,读取,写入,提取关键字等操作。若与...
  • VBA文件及文件夹操作

    千次阅读 2021-08-12 11:08:39
    VBA文件及文件夹操作1.VBA操作文件及文件夹on error resume next下测试A,在D:\下新建文件夹,命名为folder方法1:MkDir "D:\folder"方法2:Set abc =CreateObject("Scripting.FileSystemObject")abc.CreateFolder...
  • 如果用Dir()方法和MkDir方法,一般只能在已经存在的文件夹内创建一层新的子文件夹。无法命名任意多层文件夹。...比如给定需要创建的文件夹利用【FSO.DriveExists()】函数判断给定的路径对应的盘符【E:\】是否存在
  • excel利用vba批量生成word报告

    千次阅读 2022-01-27 10:15:06
    excel利用vba生成word报告
  • Excel VBA编程

    万次阅读 多人点赞 2019-04-11 16:45:51
    文章目录如何创建VBAVBA语法规则声明变量给变量赋值让变量存储的数据参与运算关于声明变量的其他知识变量的作用域特殊的变量——数组声明多维数组声明动态数组其他创建数组的方法数组函数利用UBound求数组的最大索引...
  • ExcelVBA之复制文件

    千次阅读 2020-06-08 11:14:34
    使用FileCopy语句,可以在文件夹之间复制文件: FileCopy 来源, 目的地 该语句的第一个参数是文件来源,明确你要复制的文件名称,该名称可以包含驱动名称。第二个参数是复制的目的地,可以包括驱动和文件夹的地址。...
  • 今天介绍利用Excel VBA的Dir方法来遍历某文件夹下的所有excel文件。还是直接来看例子,假设在D盘有一个叫工作日志的文件夹,里面放着每日的工作记录,都是excel 2007表格,现在由于工作需要要从这里表格中提取数据,...
  • 将所有要复制的excel文件放到同一个文件夹下边。新建一个excel文件,在sheet1处右击鼠标,打开代码窗口,复制上述代码到代码窗口,点击运行即可。
  • Excel VBA编程教程(基础一)

    万次阅读 多人点赞 2020-07-10 19:27:39
    VBA介绍 Visual Basic for Applications(VBA)是 VisualBasic 的一种宏语言,是微软开发出来在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展 Windows 的应用程序功能,特别是Microsoft ...
  • 最近刚好有需求,就研究了下VBA编程,使用excel的宏命令编写了一个数据汇总小工具,汇总指定目录下的所有excel文件seet1的数据至一个新的excel表中,设计思想如下:1、将要汇总的excel文件放置在一个“数据文件夹”...
  • VBA 有很多用于文件操作的语句和函数,能满足绝大多数场景下的文件操作要求。本文将按操作目的一一进行介绍。
  • Excel的使用过程中,经常需要引用其他工作簿的数据,而用户往往希望能在不打开工作簿或看似不打开工作簿的情况下取得其他工作簿中的数据,有以下几种方法可以实现。 1、使用公式 如果需要引用的数据不是太多,...
  • Excel VBA 操作 Word(入门篇)

    千次阅读 2021-06-12 04:49:46
    VBA中,工具-引用,选取“MicroSoft Word 11.0 Object Library”。 方法一、New Word.Application Dim Wordapp As Word.Application Set Wordapp = NewWord.Application Wordapp.Visible = True '可见 'Worda.
  • vba遍历文件夹中的文件夹 使用方便 (Ease of use) The goal is to read and create cabinet folders with no third-party tools or libraries that are not already present in the user's machine. As you will see...
  • VBA批量操作excel文件

    千次阅读 2021-11-16 09:56:34
    Application.ScreenUpdating = False '冻结屏幕,打开各个文件及关闭时屏幕不会晃瞎你的狗眼 Path = "c:\temp\" '把目标文件夹路径赋值给变量,这里的路径可以自己改 File = Dir(Path & "*.xlsx") '一次找寻...
  • 1.EXCEL VBA遍布文件夹的操作 关于VBA遍历文件夹主要用的是提供的Application.FileDialo函数来由个人进行自由选择,通过获取选择的文件夹地址之后,通过Dir函数来匹配选取文件夹下的相应的文档。相应的VBA程序代码...
  • Excel VBA实用技巧大全 附书源码

    热门讨论 2010-10-08 18:59:24
    01007获取打开Excel文件时的默认路径 01008获取模板保存的默认路径 01009获取库文件夹的路径 01010获取路径分隔符 01011获取Excel主窗口标题栏的名称 01012获取Excel窗口的状态(大小) 01013获取Excel主窗口的高度...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 1,297
精华内容 518
热门标签
关键字:

利用excelvba打开文件夹