excel宏：导入同路径下同名txt文件并分析

最新推荐文章于 2024-03-26 14:41:22 发布

tshilu

最新推荐文章于 2024-03-26 14:41:22 发布

阅读量1.3k

点赞数 1

分类专栏： excel 文章标签： excel 宏 vbs

本文链接：https://blog.csdn.net/tshilu/article/details/42244471

版权

本文介绍如何使用Excel宏自动化地读取同路径下的同名TXT文件，进行数据处理，包括时间列拆分、遍历数据行、删除特定行、计算时间差等操作，适用于数据整理与分析场景。

摘要由CSDN通过智能技术生成

这是我在处理高速状态下手机与基站间的signal变化的记录时用到的宏，signal文件太多，就写了这个宏

主要功能包括：

读取同名txt数据文件

拆分时间列

遍历有数据的行

删除指定行（删除时要倒序遍历，因为excel删除后会自动提升后面的行）

计算第一条记录的时间与基准时间的秒数

删除低速时间的记录（需要输入时间范围）

计算相临记录的时间差

“R[-1]C[-1]” 表示当前单元格向左1，向上1的那个格，需要让excel计算时，用它来表示excel公式中的指定单元格等

Sub 导入与Excel同名的addition()
'
' 导入addition 宏
' 导入addition或signal文件c+s+A
'
' 快捷键: Ctrl+Shift+A
'

Set objDlg = CreateObject("Scripting.FileSystemObject")
loadtxtname = Mid(ActiveWorkbook.Name, 1, Len(ActiveWorkbook.Name) - 5)

tpath = Mid(ActiveWorkbook.FullName, 1, Len(ActiveWorkbook.FullName) - 5)
loadtxtpath = tpath & ".txt"
'ActiveWorkbook.FullName
'CreateObject("Scripting.FileSystemObject").GetFile(ActiveWorkbook.FullName).ParentFolder.Path
'ActiveWorkbook.Pa