EXCEL怎么在固定文件夹中的文本文档中提取数据

wflong300 · 发表于 2018-9-12 11:57

具体的要求在附件中

zjdh · 发表于 2018-9-13 10:52

本帖最后由 zjdh 于 2018-9-13 10:56 编辑

自动录入txt数据.rar (12.9 KB, 下载次数: 15)

wflong300 · 发表于 2018-9-17 20:06

zjdh 发表于 2018-9-13 10:52
使用方法：
打开Excel文件，即自动录入Txt文件数据，并删除已录入数据的文件。
只要Excel软件不关闭（ ...

非常感谢正是我想要的效果，附件中的提到过提取的文本文档不在同一个文件夹内，怎么来给它指定路径如：在电脑共享盘\\192.168.2.102\共享文件
或者在其它盘如：F:\常用工具\hh2

zjdh · 发表于 2018-9-17 23:05

wflong300 发表于 2018-9-17 20:06
非常感谢正是我想要的效果，附件中的提到过提取的文本文档不在同一个文件夹内，怎么来给它指定路径如：在 ...

因为你是要求每隔几十秒就自动录入一次，这只能设置一张地址表，让程序定时按地址表逐个扫描录入删除文件啦。

zjdh · 发表于 2018-9-17 23:12

若是固定的一个地址，可以先选择地址记录后，每次到此地址（目录）中提取。
当然也可以直接修改宏达到。
Sub 导入txt()
Application.ScreenUpdating = False
Ph = "F:\常用工具\hh2" & "\"
DirName = Dir(Ph & "*.txt")
While DirName <> ""
      Open Ph & DirName For Input As #1
      SJ = StrConv(InputB(LOF(1), 1), vbUnicode)
      Close #1
      With Sheets("提取数据")
         W = .Range("A65536").End(3).Row + 1
         .Cells(W, 1) = W - 1
         .Cells(W, 2) = Split(SJ, ";")(0)
         .Cells(W, 3) = Split(SJ, ";")(3)
         .Cells(W, 4) = Split(SJ, ";")(4)
         .Cells(W, 5) = Split(SJ, ";")(5)
         .Cells(W, 6) = Split(SJ, ";")(7)
         .Cells(W, 7) = Mid(SJ, InStr(SJ, ";" & Split(SJ, ";")(7) & ";") + Len(Split(SJ, ";")(7)) + 2, 200)
      End With
      Kill (Ph & DirName)
      DirName = Dir
Wend
Application.ScreenUpdating = True
Application.OnTime Now + TimeValue("00:00:30"), "导入txt" '30秒运行一次
End Sub

wflong300 · 发表于 2018-9-18 11:20

zjdh 发表于 2018-9-17 23:12
若是固定的一个地址，可以先选择地址记录后，每次到此地址（目录）中提取。
当然也可以直接修改宏达到。
...

万分感谢，老师还的再麻烦你一次；1.将提取的位号也同样按分号间隔开2.将数字在工作表“现象”中查找数字对应的“不良”并替换成文字
3.重新上传了一个附件

zjdh · 发表于 2018-9-19 12:52

wflong300 发表于 2018-9-18 11:20
万分感谢，老师还的再麻烦你一次；1.将提取的位号也同样按分号间隔开2.将数字在工作表“现象”中查找数字 ...

数据汇总表.rar (17.73 KB, 下载次数: 4)

wflong300 · 发表于 2018-9-19 14:11

zjdh 发表于 2018-9-19 12:52

真的非常感谢帮我解决了难题

wflong300 · 发表于 2018-9-19 19:59

wflong300 发表于 2018-9-18 11:20
万分感谢，老师还的再麻烦你一次；1.将提取的位号也同样按分号间隔开2.将数字在工作表“现象”中查找数字 ...

为什么我将代码复制到另一个文件中运行时提示以下代码"无效的过程调用或参数"
Ph = ActiveWorkbook.CustomDocumentProperties("DatePh").Value是需要设置什么吗

wflong300 · 发表于 2018-9-19 20:02

zjdh 发表于 2018-9-17 23:12
若是固定的一个地址，可以先选择地址记录后，每次到此地址（目录）中提取。
当然也可以直接修改宏达到。
...

为什么我将代码复制到另一个文件中运行时提示以下代码"无效的过程调用或参数"
Ph = ActiveWorkbook.CustomDocumentProperties("DatePh").Value是需要设置什么吗

		自动登录	找回密码
密码			注册

EXCEL怎么在固定文件夹中的文本文档中提取数据

评分

评分

评分