vba - 如何使用 VBA 从每一行读取位置？

Question

如何从 txt 文件中读取位置值？就像我在文本文件中有包含多行数据的文本文件。

10234511234preview compostion 12345  
2034512344566345644444  
2344455555555  
2100000034567  

现在我想7 to 10从第一行读取位置并将我的常量值和位置11 to 18再次与常量值匹配。同样的方式必须对第二行执行此操作。

所以开始两位数是 10,20 每行的键值。

请帮我如何为上述场景做 VBA 代码？

Answer 1

您的问题有多种方法，我使用以下一种方法来实现我使用 VBA 的自动化。

我会建议你使用两张表（比如同一个工作簿的输入和输出），其中输入表应该有来自你的文本文件的数据，输出表会给你从特定位置开始的数据（比如 10,20）。

在输入表上添加一个按钮并在其单击事件上编写以下代码（从文本文件的 C7 单元格中粘贴您的数据）：

首先使用以下代码获取总行数：

usedRowCount = Worksheets("Input").UsedRange.Rows.Count

然后使用以下代码从特定位置复制字符串并使用以下代码将其粘贴到输出表上：

For i = 1 To usedRowCount

'Get the first row in variable strRecord

strRecord = Worksheets("Input").Cells(i, "C").Value        
'Copy substring from 10th posotion, 6 characters and copy it to sheet Output position A1  
Worksheets("Output").Cells(i, "A").Value = Mid(CStr(strRecord), 10, 6)    
'Copy substring from 20th posotion, 8 characters and copy it to sheet Output position B1  
Worksheets("Output").Cells(i, "B").Value = Mid(CStr(strRecord), 20, 8)    
'Copy substring from 30th posotion, 4 characters and copy it to sheet Output position C1  
Worksheets("Output").Cells(i, "C").Value = Mid(CStr(strRecord), 30, 4)    
next i