一个简单的关于Open操作问题!

bb64844866

向Excel文件里写数据时,见如下代码:
Open "C:\aa.xls" for output as #1 '本例为操作C盘根目录下的aa.xls文档
For x=1 to 5
   Write #1, x
Next
Close #1
为什么在这5次循环后,数据都写到了Excel文件aa.xls的第一列?如何将数据写入其它列?
高手指点!

村上舞!舞!舞

因为你没有指定要把数据写出入哪个单元格啊!!以单元格的行+列来描述要写的单元格....并且实现方式恐怕没这么简单.关于对Excel文件做数据驱动的例子本版中太多了.你搜索一下吧,如果有什么不懂可再问

bb64844866

Open "C:\aa.xls" for output as #1 '本例为操作C盘根目录下的aa.xls文档
For x=1 to 5
   Write #1, x
Next
Close #1
搜了下帖子,没有找到答案。..大多都是读数据的问题...
如果在上面的例子里加上几句可以实现向其它列写入数据吗?请指点!

村上舞!舞!舞

Set excel = GetObject(,"excel.application")
    if(excel Is Nothing) then
        Set excel = CreateObject("excel.application")
        if(excel Is Nothing) then
            MsgBox "Couldn't find Excel!"
            Exit Sub
        End if
    End if
    Set book = excel.Workbooks.Open("c:\Your Book1.xls")
    Set worksheet = book.Worksheet("Sheet1")   
    For count=1 To 2
    s_name = worksheet.Cells(1,count).value
    s_pass = worksheet.Cells(2,count).value
    Next
用这些代码就可以实现写数据到Excel中了.把读数据的那几句比如s_name = worksheet.Cells(1,count).value  改成 worksheet.Cells(1,count).value=" 要写的数据值"

bb64844866

我会继续研究加工脚本,感谢回复!

[ 本帖最后由 bb64844866 于 2008-6-3 10:08 编辑 ]