从.txt文件中获取数据

Question

我正在努力解决MS Excel（2010）VBA问题。我想使用VBA宏从文本文件中提取数据。我一直在使用下面的代码，但我正在寻找一个更普遍适用的代码。

ActiveCell.Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Mid(text, G10 + 4, 3)

代码最终将从CNC机床上读取测量报告，并使用编程的触摸探针自动生成。该CNC机床以文本文件形式提供测量数据。测量报告具有以下格式：

G10:299mm
G20:45mm 
G30:70mm
G40:100,02mm
G50
G60
G70
G80
G90
G100
........etc.

此代码的缺点/缺点是不稳定和通用。 例如，当测量“G40”看起来稍微小一点时，说99,97mm已经少了一个数字。

如果可能的话，我希望代码足够灵活，可以在不同（长度）的度量报告上运行。 （如果读取度量的代码合适，可以通过运行循环轻松实现）。

如果有人知道这部分代码的更合适的替代方案，那就太好了。

ActiveCell.Select
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = Mid(text, G10 + 4, 3)

Answer 1

我只是直接回答您的问题以寻找替代方案 下面就是这样做的。

ActiveCell.Value = Split(text, ":")(1) 'returns 100,02mm
ActiveCell.Value = Replace(Split(text, ":")(1), "mm", "") 'returns 100,02

如果您有其他疑虑，请编辑您的问题或发表评论。