将文本文件转为Excel文件

APPLE123

将文本文件转为Excel文件
1、测试文本.txt有很多人员信息，主要包括人员姓名、身份证号、所属单位证书编号、所属单位名称、手机号、技术职称、是否就职等，当前文本提供6个人仅是样本。
2、将测试文本.txt的人员信息导入Excel文件的对应列B、C、D、E、F、G等列，并自动产生序号，序号在A列。
希望VBA一键获取，可否实现，请老师们帮帮忙，谢谢！

APPLE123

请各位大神帮帮忙，谢谢！

迪尼索斯

1234567890

taller

caiyu93

APPLE123

迪尼索斯 发表于 2023-2-9 23:20
1234567890

首先感谢老师的帮助！
由于我考虑不周到，测试文本是由网页复制，但填写不齐全，有一小部分人员未填写手机号或技术职称，导致现有代码实用性不够强大，可否请老师帮忙修改完善一下代码。或者按如下思路可否实现数据正确导入Excel：分析测试文本2.txt的人员信息，姓名、身份证号、所属单位证书编号、所属单位名称和是否就职属于必填项目，手机号和技术职称属于选填项目。如果在分析测试文本2.txt中第一行增加“就职”两个字，那么VBA查找到“就职”两个字，就可以依次导入“就职”之后的姓名、身份证号、所属单位证书编号、所属单位名称等字段列，将“就职”之前1行（源数据只有手机号）或2行（源数据有手机号和技术职称）的数字导入手机号字段，将“就职”之前1行的汉字导入技术职称字段。
谢谢！

APPLE123

taller 发表于 2023-2-10 01:27

谢谢老师的帮助！
由于实例中有一小部分人员未填写手机号或技术职称，导致现有代码需要修改。老师可否帮忙修改一下。或者按如下思路看看可否实现，分析测试文本2.txt的人员信息，姓名、身份证号、所属单位证书编号、所属单位名称和是否就职属于必填项目，手机号和技术职称属于选填项目。如果在分析测试文本2.txt中第一行增加“就职”两个字，那么VBA查找到“就职”两个字，就可以依次导入“就职”之后的姓名、身份证号、所属单位证书编号、所属单位名称等字段列，将“就职”之前1行（源数据只有手机号）或2行（源数据有手机号和技术职称）的数字导入手机号字段，将“就职”之前1行的汉字导入技术职称字段。附件附后。
麻烦老师了，谢谢！

gwjkkkkk

请楼主参考附件。。。

APPLE123

gwjkkkkk 发表于 2023-2-10 23:40
请楼主参考附件。。。

谢谢老师的帮助。
对代码不甚理解，
请老师抽空解释一下以下代码意思，

1. r = 0
   
2.        Set regEx = CreateObject("Vbscript.RegExp")
   
3.           With regEx
   
4.              .Pattern = "\d+"
   
5.              For i = 1 To UBound(br)
   
6.                 If br(i)(0) <> br(i)(1) Then
   
7.                    r = r + 1: n = 2
   
8.                    For j = br(i)(0) + 1 To br(i)(0) + 4
   
9.                       vResult(r, n) = ar(j)
   
10.                       n = n + 1
    
11.                    Next j
    
12.                    For j = br(i)(0) + 5 To br(i)(1)
    
13.                       If .TEST(ar(j)) Then
    
14.                          vResult(r, 6) = ar(j)
    
15.                       Else
    
16.                          vResult(r, 7) = ar(j)
    
17.                       End If
    
18.                    Next j
    
19.                    vResult(r, 1) = r
    
20.                 End If
    
21.              Next i
    
22.          End With

复制代码

麻烦老师了，谢谢！

APPLE123

gwjkkkkk 发表于 2023-2-10 23:40
请楼主参考附件。。。

谢谢老师！麻烦老师了！