Question

vb将textbox导出excel中

:我用的是vb6 textbox中有如下格式的内容
班 名 号 分数 详细
1 a 1 10 A
1 b 2 15 D
以空格为excel的换列标志，使班 名 号等与下面的各组符号对齐，然后导出

Answer 1

要出差了，回来研究一下，不难的。

追问

回来了吗？

追答

Private Sub Command1_Click()
Dim ObjFileSystem As Object
Dim objExcelText As Object
Set ObjFileSystem = CreateObject("Scripting.FileSystemObject")
Set objExcelText = ObjFileSystem.CreateTextFile(App.Path & "\a.xls", True) '输出到excel
Dim aa() As String '声明一个数组变量
Dim MyString As String '声明一个字符串
Dim bb As String
Open App.Path & "\123.txt" For Input As #1 '打开文件
Do While Not EOF(1) '执行循环直到文件的最后一行
Line Input #1, MyString '读第一行,就是列名称
aa = Split(MyString) '按空格分开并放到数组里面
objExcelText.WriteLine (Join(aa, vbTab))
Loop
Close #1
Erase aa
Set ObjFileSystem = Nothing
Set objExcelText = Nothing
End Sub