VBA程序小记

最新推荐文章于 2023-07-28 15:05:09 发布

wisoper

最新推荐文章于 2023-07-28 15:05:09 发布

阅读量467

点赞数

分类专栏： VBA 文章标签： vba

本文链接：https://blog.csdn.net/wisoper/article/details/51840740

版权

VBA 专栏收录该内容

1 篇文章 0 订阅

订阅专栏

最近抽空给单位写了个小程序。打开同一目录下的所有文件。读取相关内容并相加。

程序参考了一些网上资料。新东西到没什么只是记录一下。

Dim fd As FileDialog '定义对话框变量
    
Set fd = Application.FileDialog(msoFileDialogFolderPicker) '使用 FileDialog 对象显示“文件选取器”对话框
With fd
    If .Show = -1 Then '如果选择了确定按钮，则（.show的值等于0，表示按取消按钮）
        T = .SelectedItems(1) & "\" '用T记录下它的路径
    Else
        Set fd = Nothing: Exit Sub '按取消之后就退出程序
    End If
End With
TextBox1 = fd.SelectedItems(1)
  
myPath = fd.SelectedItems(1) & "\" '保存文件路径 做为Dir()函数的参数

 myName = Dir(myPath & "*.xlsx") '打开一个excel文件
    Do While myName <> ""  '循环,当文件名不为空时。
        If myName <> "Book1.xlsm" Then
            With GetObject(myPath & myName) '获得文件对象
           ‘操作文件内容的代码。在此省略
           End With
        End If
        myName = Dir ' 遍历目录中的所有文件
    Loop