Question

我想在VBA中写入文件的三维数据。数据将具有时间轴，空间轴和幅度轴。因此，幅度数据将采用A（空间，时间）的形式。有谁知道如何在vba代码中“写”到文本文件中？我不知道如何用两个索引循环“写＃1”。谢谢你的帮助！

这是我期待的输出：

         space1  space2  space3
time1    A(1,1)  A(1,2)  A(1,3)
time2    A(2,1)  A(2,2)  A(2,3)
time3    A(3,1)  A(3,2)  A(3,3)

Answer 1

我会使用Scripting Runtime库。你可以做一个简单的制表符分隔文件。如果需要，可以直接在VBE编辑器中引用Scripting库：工具 - ＆gt;参考 - ＆gt; Microsoft Scripting Runtime

以下是一些您可以使用的未经测试的代码：

Dim fso As FileSystemObject
Dim oFile As TextStream
Dim iTime As Integer, iSpace As Integer

Set oFile = fso.CreateTextFile(stringPath)

For iTime = 1 To UBound(A)
    For iSpace = 1 To UBound(A, 2)
        oFile.WriteLine (iTime & vbTab & iSpace & vbTab & A(iTime, iSpace))
    Next iSpace
Next iTime

oFile.Close
Set oFile = Nothing

对于库的后期绑定引用，请参阅： How to create and write to a txt file using VBA

Excel VBA写入多维数据的文件

1 个答案: