在excel中如何使用vba

VBA算得上是Excel的顶级应用技术了,使用VBA几乎可以解决99.99%的Excel应用问题,本问题也不例外。通过VBA遍历同一路径下的所有文档,查找文档中的的特定内容,并把对应值提取出来。具体图文演示如下:

在excel中如何使用vba图1

在excel中如何使用vba图2

在excel中如何使用vba图3

在excel中如何使用vba图4

在excel中如何使用vba图5

Sub VBA应用()

Dim mypath As String, file As String

Dim wb As Workbook

Dim rng As Range

mypath = ThisWorkbook.Path

Application.ScreenUpdating = False

Application.DisplayAlerts = False

file = Dir(mypath & “*.xlsx”)

Do While Len(file) > 0

If file <> ThisWorkbook.Name Then

Workbooks.Open mypath & Application.PathSeparator & file, False

Set wb = ActiveWorkbook

Set rng = wb.Sheets(1).UsedRange.Find(“测试”).Offset(0, 1)

If rng Is Nothing Then

Exit Do

Else

n = n + 1

With ThisWorkbook.Sheets(1)

.Cells(n + 1, 2) = rng.Value

.Cells(n + 1, 3) = Left(file, Len(file) – 5)

End With

End If

file = Dir

wb.Close

End If

Loop

Set wb = Nothing

Application.ScreenUpdating =True

Application.DisplayAlerts = True

End Sub

在excel中如何使用vba图6

代码放入测试工作薄VBE编辑界面的模块中,按F5运行即可提取到各文档中测试对应的值。欢迎关注@Excel泥瓦匠,Excel学习,E路有你!

本文来自投稿,不代表天一生活立场,如若转载,请注明出处:http://tiyigo.com/it/21687.html

(0)
上一篇 2023-03-29 10:39
下一篇 2023-03-29 10:43

相关推荐

  • 讯飞输入法和搜狗输入法哪个语音输入更好使

    我个人觉得讯飞输入法比较好用,讯飞语音输入识别准确率比较高。搜狗输入法在拼音打字方面比较有优势。 讯飞输入法界面比较简洁清新,这也是我喜欢的原因之一。讯飞输入法的语音输入功能入口比…

    2023-02-18
  • 笔记本cpu后缀字母P是什么意思

    一般来说,Intel在笔记本处理器上共有U、Y、H、M、Q和X这几种分类。具体含义如下: U代表低电压,TDP为15W; Y代表超低电压,TDP为10W; H代表的是BGA封装,也…

    2023-05-15
  • 华为的电脑性能怎么样,值不值得推荐买

    作为一名大学生呢,咱俩对电脑的需求还是一样地,就是都不喜好玩游戏。针对这样只办公,不玩游戏来讲,5000-6000地价位足够在性能,价格与体验之间寻求一个平衡点。我当时是选了一台联…

    2023-01-25
  • windows怎么清理系统盘,怎么用windows删除系统盘

    首先来说,对于使用Windows系统的电脑,给C盘分配200G空间是绝对足够的,一般而言Windows安装后占用磁盘空间大概在20~25G,正常情况下我们给C盘分配50G~100G…

    2023-05-03
  • 笔记本无线网卡怎么打开设置(台式机无线网卡怎么打开)

    摘要:随着无线网络的流行,只要设备中拥有无线网卡都可以实现无线上网,很多菜鸟朋友对无线网络都不是很了解,不知道什么是无线网卡?并且无线网络类型众多,不同无线网卡所使用的运营商也不同…

    2023-06-29
  • 电脑坏了怎么办?开不开机?

    对于题主提出的比较笼统,电脑坏了出现的故障有很多种,是电脑硬件出了毛病,还是系统部分出了软故障,这得要分清楚。 我们正在使用的电脑出现的故障,大多数是系统方面出现的软故障。例如电脑…

    2023-06-14
  • 电脑虚拟内存设置多少合适

    电脑运行的时候,应用程序是被放到内存来运行的,内存越大,程序运行起来速度也越快。所以,如果有条件的话,还是尽可能使用大容量的内存条,增加电脑的内存,这很重要。 但是,内存的容量毕竟…

    2023-02-19
  • 怎么剪切电影片段

    如果想截取视频片段,可以使用电脑端的爱剪辑,步骤如下: 一、添加视频 在软件主界面顶部点击“视频”选项卡,在视频列表下方点击“添加视频”按钮,在弹出的文件选择框添加视频。 图1:添…

    2023-04-10
  • 感觉win10不如win7

    没有什么如不如的,更新换代是必然!只是国人在win7以前基本上都是盗版系统,百度一搜,通过下载解压.gho文件,U盘就直接装了!这类系统往往默认关了防火墙,默认不和外网链接,软件装…

    2023-01-18
  • cad无法复制到粘贴板怎么办

    第一种,清理孤立的数据 这个也是我们最常用的一种方法,可以直接用CAD软件中的清理工具将图纸中的无用数据进行清理 如果图中确实有这类数据,清理可能需要等待一段时间。如果之前就勾选了…

    2023-07-28