把文本里面的数字填写到对应excel表格当中

tayezuifeng

提取文本中Y6,X1,G2...对应的值，自动填写到excel中相应的Y6,X1,G2...对应的B列单元格中。 如何用脚本 实现？


0----Y6----36
1----X1----6
2----G2----34
3----N4----4
4----S1----14
5----N1----13
6----W1----14
7----N3----2
8----X3----2
9----G1----6
10----J4----4
11----A2----6
12----J3----3
13----J1----6
14----H3----8
15----J2----2
16----H1----13
17----N5----8
18----H2----9
19----Z1----8
20----A1----15
21----S2----4
22----X2----2
23----H5----1
24----N2----1
25----H4----1
26----G5----4

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, s, t, f, arr
  f = ThisWorkbook.Path & "\test.txt"
  If Dir(f) = vbNullString Then MsgBox f: Exit Sub
  Open f For Input As #1
  arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbNewLine)
  Close #1
  ReDim brr(UBound(arr), 1 To 2)
  s = String(4, "-")
  For i = 0 To UBound(arr)
    If InStr(arr(i), s) Then
      t = Split(arr(i), s)
      brr(i, 1) = t(1): brr(i, 2) = t(2)
    End If
  Next
  With [a2]
    .Resize(Rows.Count - 1, 2).ClearContents
    .Resize(UBound(brr, 1) + 1, 2) = brr
  End With
End Sub

liulang0808

欢迎新朋友，楼主可以用excel打开文本处理

tayezuifeng

一把小刀闯天下 发表于 2020-2-3 08:42
Option Explicit

Sub test()

感谢，我是小白，运行的时候，提示下标越界，是什么问题呢？

tayezuifeng

liulang0808 发表于 2020-2-3 09:26
欢迎新朋友，楼主可以用excel打开文本处理

文本是软件导出的，想用宏每次更新数据到表格里面，不用每次都处理了

一把小刀闯天下

tayezuifeng 发表于 2020-2-3 12:56
文本是软件导出的，想用宏每次更新数据到表格里面，不用每次都处理了

上附件。数据格式有问题，，，

liulang0808

tayezuifeng 发表于 2020-2-3 12:56
文本是软件导出的，想用宏每次更新数据到表格里面，不用每次都处理了

建议楼主上传模拟附件吧，因为软件导出的文本，存在编码问题，需要针对具体编码处理的，不然会有乱码情况

tayezuifeng

liulang0808 发表于 2020-2-3 13:12
建议楼主上传模拟附件吧，因为软件导出的文本，存在编码问题，需要针对具体编码处理的，不然会有乱码情况

附件已经上传了。

tayezuifeng

tayezuifeng 发表于 2020-2-3 12:40
感谢，我是小白，运行的时候，提示下标越界，是什么问题呢？

把下面的字符删除的时候，可以得到期待的结果，但是如下部分是软件固定导出生成的文件，怎么在代码里面把这些不需要的内容屏蔽掉呢？
-------
人数:18
累计提交作业总次数:18

一把小刀闯天下

加个条件

brr(i, 1) = t(1): brr(i, 2) = t(2) 替换为：

---------------
If UBound(t) = 2 Then brr(i, 1) = t(1): brr(i, 2) = t(2)