2009年1月8日
VB和C#是大家在.net平台上编程的主要语言,它们在最新的VS2008都有如些相同和不同的新功能点呢??
如果大家对VS2010里提供的C#4.0和VB10感兴趣的话可以去MS网站上去下载介绍文档
C# 4.0 future: http://code.msdn.microsoft.com/csharpfuture
VB10 future: http://code.msdn.microsoft.com/vbfuture
希望对大家的学习有帮助!! 欢迎交流!
2008年12月31日
New features in Visual Basic 10VB10里会有哪些新功能呢?
今天在codeplex 网站看到了一个介绍VB10新功能的文档.（http://code.msdn.microsoft.com/vbfuture）
下来研究了一下.VB10和VB9比起来没有太多的亮点,只是对实用性方面作了一些改进.
像 Auto-implemented properties, Multiline lambada功能早该在VB9就实现的。
关注VB，希望以后的版本里能有更多更好的功能出来。 呵呵！！
最近一直有在收集测试相关的资料。因为最近从老板那得知可能在下一个项目里自己作PM。所以自己也有意在这方面多学一些。
最近自己在头脑风暴里就是想如何能作好管理。作了这么多年技术，当然不能放弃，要想想如何能好好利用这一特长！！ :)
今天就分享一段视频：
http://vstsrocks.net/files/26/code_analysis/default.aspx
希望对大家有用！！欢迎交流！
2008年12月12日
其实很简单，就是利用WorkBook的WebPagePreview函数
Sub test()
ThisWorkbook.WebPagePreview
End Sub
2008年12月1日
2008年11月27日
今天想写一个WebSite程序，在其中加入了一个WebPartManager控件，想玩一下。
结果怎么也跑不起来。
总是说：
A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: SQL Network Interfaces, error: 26 - Error Locating Server/Instance Specified)
搞得我莫名其妙的。Google了好久才知道了原因， 都是WebPartManager里的Personalization属性搞的鬼。缺省它是被设置成TRUE的。启动时候会去找一个数据库实例。
我机器上没有这个数据库实例，所以会失败。
具体的还可以参考 这里。
看来对Web编程还是不熟啊！！ 努力！！
2008年11月25日
如何能用VBA创建一个Report对象呢？
Sub testreport()
Dim rp As Access.Report
Set rp = CreateReport
With rp
.Caption = "test report"
End With
End Sub
其中的CreateReport函数就是Access集成的建Report的函数。
Enjoy!
在上节已经讲述了把多个Excel文件导入到Access 2007里来，现在是把把生成的这些表里的数据合并到一个表里去，假设这表的名字叫aa.
导入的表名有两个1和2
下面是代码示例：
Dim query As QueryDef
Set query = CurrentDb.QueryDefs(0)
query.SQL = "INSERT INTO aa SELECT * FROM 1;"
query.Execute
query.SQL = "INSERT INTO aa SELECT * FROM 2;"
query.Execute
怎么样，还是挺简单的吧！！！
Enjoy!
今天一个同事问我怎么样可以快速合并多个Excel的Workbook文件。 她把那些文件放在了一个目录下，每个Excel表格里没有太复杂的数据，
或是说想要合并的Sheet页没有太复杂的数据格式（我指的是数据透视图，数据透视表，smartArt图形等）。让我帮她想想办法。
我的解决方案如下：
（1）遍历该目录，得到要合并的各个Excel文件路径。（这个在前一章节里讲解过了，不清楚的请参看这里)
（2）批量导入成Access对并的一张表。（这个是本节要讲述的,之后还会讲解VB.NET版本）
（3）在Access里合并成一张表
（4）方向导出到一个Excel表格里。（这个在Access的Ribbon Toolbar里直接操作就可以，我就不多废话了）
好的，言归正传，开始这节的内容。
要实现在Access里导入一个Excel表格可以如何作呢？大致步骤如下：
（1）新建一个Access 2007文档，打开选中“External Data”的Tab
(2)点选Excel，一步步就可以导入一个Excel WorkBook的Sheet表了。
但是要是遇到有许许多多这样的Excel文件需要导入时，这个也是挺麻烦的。
很自然得你会想到，能不能用Access的VBA宏来实现这样的功能呢？ 答案当然：Yes.
=================================
这需要用到Access里的DoCmd对象。DoCmd里有一个TransferSpreadsheet函数就能完成这个功能。
我把示例代码贴出来：
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, sheetname, filename,True
如果你的Excel表格里的第一行是Title，最后一个参数就使用True,缺省是False.
Access帮你把什么事都作了，省去了你去建立Connection的步骤，不然还要用ADO操作，太麻烦了，对初学者太深奥咯！
怎么样，很简单吧，但我得说，很小但很强大。 哈哈！！
Enjoy!
今天想讲解如何用ＶＢＡ宏得到一个目录下以某个后缀名结尾的文件。
这要用到一个叫Dir的函数：
第一个参数就是所要遍历的目录路径，第二个参数是可选的，就是不是必要的。它是罗列了一些查找的属性
Syntax
Dir[(pathname [, attributes] )]
还是举个例子说说吧，现在我想得到C:\test\demo目录下的所有Excel 文件该如何作呢？
Code
Sub SearchFolder(mypath As String, szExtension As String)
' Add a slash at the end of the path if needed.
If Right(mypath, 1) <> "\" Then
mypath = mypath & "\"
End If
' If there are no Excel files in the folder, exit.
FilesInPath = Dir(mypath & szExtension)
If FilesInPath = "" Then
MsgBox "No files found"
Exit Sub
End If
' Fill the myFiles array with the list of Excel files
' in the search folder.
FNum = 0
Do While FilesInPath <> ""
FNum = FNum + 1
ReDim Preserve MyFiles(1 To FNum)
MyFiles(FNum) = FilesInPath
FilesInPath = Dir()
Loop
End Sub