用于将特定数据文件数据转换/导入到XbyY excel表单的VBA代码

数据文件包含16行，每行16个字符。 要将此数据放入16x16 excel表格中

下面的示例代码（来自这里的一篇文章），但没有使用“|”字符，因此不知道需要更改什么来完成任务

下面是数据文件内容的示例。 这个（句点）指单元格列中出现的空白

.2A.....5C.9..6G

6..G.5471A82.D..

.8...B2...E7...A

....6AE..4GF3.87

1E7.C8..G.46FBA9

.D.....4.E.3.CG.

.F.C.2A571B.683E

A.5..9...2.C7.D.

..3.A..9.8.4.EBD

..E6.G1D.....3..

C.....7..D1..A4.

DA.....63.7EC...

3...F.9....85G..

........EB..DF98

EB.A5..2...1....

F.9.B.8..75GA.2.

感谢您的帮助……

我只想试试：

Option Explicit

Sub Read_and_Save_XbyY()
    Dim path As String
    Dim fileName As String
    Dim excelName As String
    Dim parts() As String
    Dim wbData As Workbook
    Dim wsData As Worksheet

    path = "D:\temp\X_by_Y\"
    fileName = "MyData.txt"

    ' Prepare filenames
    parts = Split(fileName, ".")
    excelName = parts(LBound(parts)) + ".xlsx"

    ' Open inputfile
    Workbooks.OpenText (path + fileName)
    Set wbData = Workbooks(fileName)
    Set wsData = wbData.Worksheets(1)

    ' Split into 16 columns
        wsData.[A1:A16].TextToColumns _
            Destination:=[A1], _
            DataType:=xlFixedWidth, _
            FieldInfo:=Array(Array(0, 2), Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), _
                          Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), _
                          Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), _
                          Array(14, 2), Array(15, 2))

    ' Save xlsx file
    wbData.SaveAs fileName:=path + excelName, FileFormat:=xlOpenXMLWorkbook

    ' Close data workbook
    wbData.Close

End Sub

---

请将您的代码复制粘贴到问题中，并准确描述问题所在。对于初学者，明确的问题中有问号。请把你的问题明确具体。