以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  Fox的EXCEL报表编程语法和VBA语法效率为何相差这么大?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=19717)
--  作者：don
--  发布时间：2012/5/19 6:45:00
--  Fox的EXCEL报表编程语法和VBA语法效率为何相差这么大?
往指定EXCEL文件的一行(15列)赋值,结果发现,方法二的效率高几倍!
想来方法二采用区域及数组赋值是效率高的主要原因吗?

顺带请教:还有其它方法给Excel赋值吗?如SQL


方法一:Fox的EXCEL报表编程语法
Dim t1 As Date = Date.Now
Sn22 = drn22("內容")
sts= "2012@05@18@Rental@Cash@@OLY-1138@F019@@01 Jul 12 to 31 Jul 12@OS-02954@488@ABC@"
Dim Names As New List(Of String)
Names.AddRange(sts.split("@"))
Dim Book As New XLS.Book(T22)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
For i As Integer = 0 To Names.Count - 1
    Sheet(Sn22-1, i).Value = Names(i) 
Next
Sheet(Sn22-1, 12).Value = val(Names(12))
Book.Save(T22) \'保存工作簿
Output.Show("计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒")
\'最快3秒(极少),最慢11秒(常常)


方法二:VBA语法

Dim t1 As Date = Date.Now
sts= "2012@05@18@Rental@Cash@@OLY-1138@F019@@01 Jul 12 to 31 Jul 12@OS-02954@488@ABC@"
Sn22 = drn22("內容")
Ap01 = New MSExcel.Application
Wb01 = Ap01.WorkBooks.Open(T22)
Ws01 = Wb01.WorkSheets(1)
Lsn1 = New List(of String)
If  sts IsNot Nothing Then
    sht = "A" & Sn22 & ":O" & Sn22
    Ary01  = sts.split("@")   \'定义数组
    Rg01 = Ws01.Range(sht)
    Rg01.Value = Ary01 \'写入指定的单元格
    Rg01 = Ws01.Range("M" & Sn22)
    Rg01.Value = Val(Ary01(Ary01.Length-3))
End If

wb01.save
Ap01.Quit
Output.Show("计算结束, 耗时: " & (Date.Now - t1).TotalSeconds & "秒")
\'最快1.2秒,最慢3.5秒


--  作者：sunsermoon
--  发布时间：2012/5/19 9:23:00
--  
牛人！想问下，excel可以像access那样，链接到foxtable中吗？也就是说，excel中的数据改变，foxtable中的数据随之改变？
--  作者：blackzhu
--  发布时间：2012/5/19 9:43:00
--  

其实我在测试时反而觉得VBA慢些呢?
--  作者：狐狸爸爸
--  发布时间：2012/5/21 7:44:00
--  
呵呵，vba和excel是原配，foxtable是小三，当然还是原配比较好啊