使用VBA提取文本框的文本数据

来源：互联网 2023-03-17 00:21:29 145

如下图所示，Excel表格要提取文本框、图形里边的文本数据写入工作表。如果文本框、图形数量较少时，可以手动处理；在文本框数量较多时，还是使用VBA程序处理比较快捷。

使用VBA提取文本框的文本数据

工具/原料

打开Excel表格，点击【开发工具】、【Visual Basic】打开VBA编辑器。

使用VBA提取文本框的文本数据

在VBA编辑器左侧的“工程资源管理器”窗口里边的“VBAProject”上单击右键，选择“插入”、“模块”。

使用VBA提取文本框的文本数据

在模块的代码窗口里边输入以下程序代码，然后按下【F5】键运行程序。

Sub GetShapeText()

Dim i, shp

On Error Resume Next '忽略运行过程中可能出现的错误

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1

Set mysheet2 = ThisWorkbook.Worksheets("Sheet2") '定义工作表Sheet2

mysheet2.Range("A1:A10000") = "" '清空单元格里边的内容

i = 0 'i初始化

For Each shp In mysheet1.Shapes '对Sheet1里面的每一个图形执行一次

If shp.TextFrame2.TextRange.Text > "" Then '如果获取的文本不是空白，则

i = i 1 '逐行递增

mysheet2.Cells(i, 1) = shp.TextFrame2.TextRange.Text '把图形（文本框）里面的文本写入单元格

End If

End Sub

使用VBA提取文本框的文本数据

回到Sheet2工作表界面，将会看到程序的运行结果。

使用VBA提取文本框的文本数据

4本页面非法爬取自百度经验

VBA程序代码解读：

（1）使用Sheet2工作表存放获取的文本框、图形数据时，该表格第一列最好不要有数据，以免数据丢失，或者将获取的数据存放于其他工作表上面。

（2）在不确定工作表上面有多少个文本框、图形的情况下，使用“For Each shp In mysheet1.Shapes”对工作表里面的每一个文本框、图形执行一次，然后获取里面的文本内容。

（3）如果要查看执行时的图形属性、参数等信息，可以在VBA编辑器的菜单栏上边点击【视图】、【本地窗口】，再按下【F8】键逐一运行程序，在“本地窗口”里边就可以看到相关信息。

使用VBA提取文本框的文本数据

以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！

上一篇：表格中拆分字符技巧下一篇：Visual Studio "必须先部署项目" 如何解决