Question

我正在VBA中构建一个应用程序来解析机器生成的文件。作为该项目的一部分，我需要将机器格式转换为整数，因为固定宽度列不能容纳负数。我使用宏录制器来解析文本文件：

Workbooks.OpenText Filename:= _
    *FILE NAME HERE*, Origin:= _
    437, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), _
    Array(6, 2), Array(10, 2), Array(14, 2), Array(19, 2), Array(25, 2), Array(27, 2), Array(34 _
    , 2), Array(39, 2), Array(43, 2), Array(44, 2), Array(52, 2)), TrailingMinusNumbers:= _
    True

但是这会创建一个新工作簿，因为它正在打开一个新文件。问题是我需要在最终列上运行UDF，将固定宽度值转换为整数。例如，假设最后一列是 0000000E 我知道E表示最后一位数字是5，数字是负数。我的UDF会相应地转换它：

Public Function ConvertCodeToInteger(inputString As String) As Long


If inputString <> vbNullString Then
    Select Case Right(inputString, 1)
        Case "E" 'Negative 5
            ConvertCodeToInteger = -1 * (Left(inputString, Len(inputString) - 1) & 5)

        Case Else 'Error Case'
            MsgBox ("An error has occurred.")
            End
    End Select
Else
    ConvertCodeToInteger = vbNullString
End If

End Function

Private Sub TESTConvertCodeToInteger()

Debug.Print ConvertCodeToInteger("000001E")

End Sub

但是由于文件在新工作簿中打开，我无法访问我的UDF。是否有一种简单的方法可以使用VBA使UDF可用于新工作簿？要么通过某种方式直接将功能代码复制到新工作簿的模块中，要么只是访问原始代码？或者有没有办法在当前工作簿中打开文本文件？

这需要便携，因此使用个人工作簿不是一种选择。

Answer 1

录制宏并使用数据导入文本文件 - >来自文本。这将导入您当前的工作簿。

在VBA生成的工作簿中创建UDF

1 个答案: