Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/excel/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel VBA写入多维数据文件_Excel_Vba_Multidimensional Array - Fatal编程技术网

Excel VBA写入多维数据文件

Excel VBA写入多维数据文件,excel,vba,multidimensional-array,Excel,Vba,Multidimensional Array,我有三维数据,我想写进VBA文件。数据将具有时间轴、空间轴和幅值轴。因此,震级数据的形式是A(空间,时间)。有人知道如何用vba代码将其“写入”到文本文件中吗?我不知道如何用两个索引循环“Write#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)

我有三维数据,我想写进VBA文件。数据将具有时间轴、空间轴和幅值轴。因此,震级数据的形式是A(空间,时间)。有人知道如何用vba代码将其“写入”到文本文件中吗?我不知道如何用两个索引循环“Write#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)

我会使用
脚本运行时
库。您可以创建一个简单的以制表符分隔的文件。如果需要,可以直接在VBE编辑器中引用
脚本
库:
工具->参考->Microsoft脚本运行时

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

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
有关对库的后期绑定参考,请参阅:

您现在有什么代码?为什么不把它写成一个时间、空间、值的列表?数据也是这样显示在excel中的吗?