首页 > 其他分享> 文章详细

使用DIR函数合并多个文件的数据——Excel之VBA(10)

2020-11-19 18:32:15 阅读：256 来源： 互联网

标签：10 VBA End Sub Dim Excel str Dir wb

•将对象赋值到变量

用到Set

•将对象赋值到变量中的好处

•将单元格赋值到变量

•将工作表赋值到变量

Sub test()

Dim i As Integer
Dim sht As Worksheet

For i = 2 To 5
    Set sht = Sheets.Add
    sht.Name = Sheet1.Range("a" & i)
Next

End Sub

•将工作簿赋值到变量

•认识Dir函数

•Dir函数验证是否存在某个文件

Sub test()

Dim i As Integer

For i = 1 To 6

    If Dir("e:\data\" & Range("a" & i) & ".xls*") = "" Then
        Range("b" & i) = "无"
    Else
        Range("b" & i) = " 有"
    End If
Next

End Sub

•多个条件相符的文件 Dir如何返回值

说明：值得注意的是，在多个条件相符的时候，Dir会存放所有结果，调用一次Dir返回一次

并且下一次调用时，不用写后续条件，直接=Dir

另：当结果取完，再取一次结果为空，再取一次会报错

示例：
str = Dir("e:\data\*.xls*")

str = Dir
str = Dir

•Dir函数遍历循环所有文件

Sub test()

Dim str As String
Dim wb As Workbook


str = Dir("e:\data\*.xls*")

For i = 1 To 100

    ' Range("a" & i) = str
    '其余的都是框架，中间才是核心事件处理过程
    ' - - - - - - - - - - - - 分割线 - - - -  - - - -  - - -  - - -
    Set wb = Workbooks.Open("e:\data\" & str)
    
    
    
    wb.Close
    '  - - - - - - - - - - - - 分割线 - - - -  - - - -  - - -  - - -
    str = Dir
    If str = "" Then
        Exit For
    End If
    
Next

End Sub

•多文件合并

•多个文件每个文件中一张表

Sub test()

Dim str As String
Dim wb As Workbook


str = Dir("e:\data\*.xls*")

For i = 1 To 100

    ' Range("a" & i) = str
    '其余的都是框架，中间才是核心事件处理过程
    ' - - - - - - - - - - - - 分割线 - - - -  - - - -  - - -  - - -
    Set wb = Workbooks.Open("e:\data\" & str)
    
    wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) '跨文件了就要带上文件
    ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0)
    
    wb.Close
    '  - - - - - - - - - - - - 分割线 - - - -  - - - -  - - -  - - -
    str = Dir
    If str = "" Then
        Exit For
    End If
    
Next

End Sub

•多个文件每个文件中若干张表

•合并后的命名问题

本节演示案例：

利用Set创建表并命名
利用Dir函数确认某文件是否存在
Dir函数返回某文件夹中的所有文件名
多文件合并-每个文件中一张表
多文件合并-每个文件中若干张表
使用FIND方法查找数据

需要理解并记住写法的概念：

SET sht = sheet1
Dir (“D:\data\*.*”)
Range(“a:a”).find（“张三”)

需要理解的概念：

附表 Dir代码
附表 Find代码

附表：Dir代码

Sub test()
Dim str As String
Dim wb As Workbook
Dim i As Integer

str = Dir("d:\data\*.*")
For i = 1 To 100
    Set wb = Workbooks.Open("d:\data\" & str)
    '这里该干什么干什么
    wb.Close
    str = Dir
    If str = "" Then
        Exit For
    End If
Next
End Sub

附表：FIND代码

Sub test()
Dim rng As Range

Set rng = Range("d:d").Find(Range("l3"))
    If Not rng Is Nothing Then
        Range("m3") = rng.Offset(0, 3)
    End If

End Sub

标签：10,VBA,End,Sub,Dim,Excel,str,Dir,wb
来源： https://www.cnblogs.com/zeon/p/14007230.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9