hhasee 发表于 2009-4-22 13:18:27

输入信息存档

本帖最后由 hhasee 于 2009-5-25 08:03 编辑

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

hhasee 发表于 2009-4-24 08:49:19

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

jhun 发表于 2009-4-24 11:15:15

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

skyfree 发表于 2009-4-24 16:21:46

详细查阅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 = [,,,,]
        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 发表于 2009-4-24 16:42:36

本帖最后由 hhasee 于 2009-4-24 16:44 编辑

不管怎么说先试一下先，谢谢了！能加个说明不？好让我们学习一下。
页: [1]
查看完整版本: 输入信息存档