在文件，复制和粘贴单元格Excel VBA中查找文本-Java 学习之路

我在VBA编写代码，寻找到一个字符的文件，在宏观的UNSER输入，宏后发现被我希望它提取整条生产环境线的用户和过去，在Excel表提供的字符采取的第一个字符并将它们放入电池1a再服用下一组这是通过在文本的空间分隔的字符，并将它们放置到另一个小区，这里是我迄今为止，并希望与提取，以取代线17数据;

Dim oFSO As Object
    Dim arrData() As String

    Sub test()
    Dim f As Integer
    Dim IngLine As Long
    Dim strLine As String
    Dim bInFound As Boolean
    f = FreeFile
    Tfile = "C:\TAXETI.TXT"
    staffdat = InputBox(Prompt:=" Please enter the staff number", Title:="Load Staff Data")
         Open Tfile For Input As #f
             Do While Not EOF(f)
                  IngLine = IngLine + 1
                  Line Input #f, strLine
                  If InStr(1, strLine, staffdat, vbBinaryCompare) > 0 Then
                     MsgBox "Search string found in line" & IngLine, vbInformation
                     bInFound = True
                     Exit Do
                  End If
             Loop
             Close #f
             If Not bInFound Then
             MsgBox "Search string not found", vbInformation
             End If
    End Sub

1 回答

1
我建议你研究一下Split（）函数 .

MSDN Reference

Another example

我认为您的代码最终会像＃17中的以下内容一样（您必须修剪/确定在哪里'标记'您的行，具体取决于您的输入文件的样子）：
```
If InStr(1, strLine, staffdat, vbBinaryCompare) > 0 Then
 foundArr = Split(strLine, " ")'change " " to whatever fits your needs
 For i = LBound(foundArr) to UBound(foundArr)
    'enter each string into a cell, etc
 Next i
```
回复于 2024-04-28T05:08:35+08:00

在文件，复制和粘贴单元格Excel VBA中查找文本

1 回答

相关问题