例子1：
目前成都创新互联已为上千的企业提供了网站建设、域名、虚拟空间、绵阳服务器托管、企业网站设计、香格里拉网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。
Dim result As ParallelLoopResult = Parallel.[For](0, 10, Function(i)
Console.WriteLine("{0}, task: {1} , thread: {2}", i, Task.CurrentId, Thread.CurrentThread.ManagedThreadId)
Thread.Sleep(10)
End Function)
Console.WriteLine(result.IsCompleted)
例子2：
Parallel.For(Of String)(0, 20,
Function()
Console.WriteLine("init thread {0}, task {1}", Thread.CurrentThread.ManagedThreadId, Task.CurrentId)
Return String.Format("t: {0}", Thread.CurrentThread.ManagedThreadId)
End Function,
Function(i, pls, str)
Console.WriteLine("body i {0} str1 {1} thread {2} task {3}", i, str, Thread.CurrentThread.ManagedThreadId, Task.CurrentId)
Return String.Format("i {0}", i)
End Function,
Function(str1)
Console.WriteLine("finally {0}", str1)
End Function)
可以考虑使用Cache（缓存）技术，对于不经常变化的数据可以采用静态Cache，对于可能经常被修改的数据可以采用数据库依赖的通知Cache更新技术。
建一个文件,把格式都搞好,然后导出时用 workbooks.add(path)
再填写数据,这样格式现成的了,
还有一个方法,录个宏,格式刷,挡刷的代码试试.
这个就要体现对VB掌握的功底了，
1,运算的循环里面尽量不要读取控件的信息，应该把控件的信息存到变量进行运算， 比如 Str1= text1.text .
2,优化也主要是自己对代码的优化，你再怎么大的数据量也顶多几秒种， 不可能要1分种， 仔细看看慢在哪里把，
