闲暇时间,觉得无聊,突然想到前几天pm问过我会不会excel的macro,我想应该是这个很有意思的东西,既然是basic脚本,那我以前也毕竟在大一的时候写过一些,今天就开始尝试了起来.
开始的时候无从下手,因为在ms的网站上查到的结果都是创建一个新的excel后进行操作,我想是在原来的workbook上直接操作.看来只能去下msdn 2003了,还好公司的NSP(Network Service Provider)部门服务器上有ms.net 2003,下来就装上来用用.
开始的时候先看看别人写过的脚本,基本上都是把excel里面的内容读出到一个properties文件里,在项目里也就是一些按钮和标题的资源文件,部分代码如下
Private Sub InsertProperties_Click()
Dim strResult As String
Dim iSheetCount, i As Integer
strFilePath = ThisWorkbook.Path & “/ApplicationResources.properties“
Set FS = CreateObject(“Scripting.FileSystemObject“)
Set fileProperties = FS.OpenTextFile(strFilePath, 8, TristateFalse)
‘MsgBox “ApplicationResources.properties => “ & strFilePath
strResult = “ — — — — — — — — — — — — — — — — — -“
fileProperties.WriteLine (strResult)
strResult = “ — — — — — — — — — Resource Message of Common Module “
fileProperties.WriteLine (strResult)
strResult = “ — — — — — — — — — — — — — — — — — — — “
fileProperties.WriteLine (strResult).....
但我想操作这个 workbook还是没有办法,看来还是要自己去search了,找了下msdn 2003,发现直接可以用Worksheets(“Sheet1“)这样的形式来取得一个worksheet的handler,看来是我以前想的太复杂了,vb还是比较直接的,看来应该换个思路来理解这些脚本才行.先用了个简单的,算是开门吧.在sheet1上放个button,然后双击,进入script editor,输入如下内容:
Dim answer As String
Set myRange = Worksheets(“Sheet1“).Range(“A1:A10”)
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
显示的是从A1到A10这一列中的最小值,当然要数字才行.