[VBA]数据结构怎样输出？

armylee

怎样把vba中的数据结构，在运行之后以文本（.txt）的形式输出？


请教一下应该怎样编程。

雪山飞狐_lzh

做个函数呀 Private Type TA
a As Double
b As Integer
End Type
Function OutPutTA(a As TA)
OutPutTA = a.a + "," + a.b
End Function

armylee

output是一个输出函数吗？


我得要求是运行后得到一个.txt文件，里面是TA的数据。

雪山飞狐_lzh

Private Type TA
a As Double
b As Integer
End Type
Function OutPutTA(a As TA)
OutPutTA = a.a & "," & a.b
End Function
Sub TT()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ts As Object
Set ts = fso.OpenTextFile("c:\1.txt", ForAppending, True)
Dim a As TA
a.a = 1 ts.WriteLine OutPutTA(a)
End Sub

armylee

Private Type TA
a As Double
b As Integer
End Type
function OutPutTA(a As TA)
OutPutTA = a.a & "," & a.b
End Function
Sub TT()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
Dim ts As Object
Set ts = fso.OpenTextFile("c:\1.txt", ForAppending, True) ~~~~~~~~~~~~~~~~~~无效的过程或函数调用
Dim a As TA
a.a = 1 ts.WriteLine OutPutTA(a)
End Sub