关闭

excel macro(1)

3212人阅读 评论(0) 收藏 举报

闲暇时间,觉得无聊,突然想到前几天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这一列中的最小值,当然要数字才行.

 
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:24873次
    • 积分:345
    • 等级:
    • 排名:千里之外
    • 原创:5篇
    • 转载:14篇
    • 译文:0篇
    • 评论:1条
    文章分类
    文章存档
    最新评论