输入信息存档

hhasee

如何做到在弹出的对话筐中输入信息后会自动存到文档文件里，EXCEL就更好了！请大侠指教啊！

hhasee

没人回答？自己先顶个先！

jhun

$NR = InputBox("请输入", "请输入内容", "", "", 20, 130)
FileWriteLine('123.XLS',$NR)

skyfree

详细查阅UDF里关于EXCEL管理的相关文章，这些UDF很强。

或者用一种简便的方法，即在普通文本文档中书写：字符A+TAB键+字符B，保存为.xls，所得结果为相邻单元格内的字符A和字符B，TAB为Chr(9)

_Main()

Func _Main()
        Local $Excel = @ScriptDir & "\Test.xls"
        Local $r = _MakeExcel($Excel)
        If $r=0 Then
                MsgBox(0+16,"错误","Excel文档创建失败")
        EndIf
        Exit
EndFunc   ;==>_Main

Func _MakeExcel($Excel)
        Local $Array[5][2] = [[1, 'a'],[2, 'b'],[3, 'c'],[4, 'd'],[5, 'e']]
        Local $i, $j
        Local $ExcelHdl = FileOpen($Excel, 2)
        If $ExcelHdl = -1 Then Return 0
        For $i = 0 To UBound($Array, 1) - 1
                Local $s = ""
                For $j = 0 To UBound($Array, 2) - 1
                        $s = $s & $Array[$i][$j] & Chr(9)
                Next
                $s = StringTrimRight($s, 1)
                FileWriteLine($ExcelHdl, $s)
        Next
        FileClose($ExcelHdl)
        Return 1
EndFunc   ;==>_MakeExcel

hhasee

不管怎么说先试一下先，谢谢了！能加个说明不？好让我们学习一下。