从.txt文件获取数据

我正在与MS Excel（2010）VBA问题斗争。 我想使用VBAmacros从文本文件中提取数据。 我一直在使用下面的代码工作，但我正在寻找一个更普遍适用的代码。

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

代码最终将从一台CNC机器读取测量报告，并带有一个触发式探头，以便自动生成该报告。 该数控机床将测量数据以文本文件forms提供。 测量报告具有以下格式：

 G10：299毫米
 G20：45毫米 
 G30：70毫米
 G40：100,02mm
 G50
 G60
 G70
 G80
 G90
 G100
 ........等等。

这个代码的缺点是缺乏稳定性和通用性。 举例来说，测量“G40”看起来会稍微小一些，比如99,97mm已经less了一个数字。

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

如果有人会知道这部分代码更合适的select，那将是很好的。

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

Answer 1

我只是直接回答你的问题的替代scheme。
下面将做到这一点。

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

如果您还有其他问题，请编辑您的问题或留下评论。