<em>Excel</em>中<em>VB</em>编程中有关宏的自动运

Randomize Timer 用这个 它会以当前时间作为随机数种子，之后再产生的随zd机数就确实是真真正正的随机的了。

Rnd 每次执行都会合上一次Rnd的结果有关，也就是说是用上一个版Rnd的结果演算过来的，所以
如果不进行初始化，那么一串 rnd 执行多少次 都一样。

只要使用了 Randomize timer之后 就相当于从一权个时间点初始化了Rnd一下，那一串rnd 就不会再每次都一样了 ，因为 timer 函数 每次的时间都不一样

在【工程】窗口里双击“ThisWorkbook”，再写代码！
还有一点注意：请将【工具】【宏】【安全性】“安全级”设置为“低”，保存后再打开试一试！！！
'要在VB中操作Excel，需要引用Excel对象模型
'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library
'其中，XX.X取决于你安装的Office的版本号
Private Sub Command6_Click()
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
'启动Excel
Set excel_App = CreateObject("Excel.Application") '引用程序对象实例
excel_App.Visible = False '设置Excel为不可见
'打开文件
Set excel_Book = excel_App.Workbooks.Open("G:\1.XLS") '工作簿实例
Set excel_sheet = excel_Book.Worksheets("Sheet2") '数据表实例
excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!"
excel_sheet.Range("A1").Value = 100 '设置单元格A1的值为100
excel_sheet.Range("A2").Value = 9 '设置单元格A2的值为9
excel_sheet.Range("A3").Value = excel_sheet.Range("A1").Value + excel_sheet.Range("A2").Value '计算e799bee5baa6e997aee7ad94e59b9ee7ad94333
'''''''''''''''''''''''''''''''''''
'读取数据到变量
x = excel_sheet.Range("A2").Value ' 把单元格"A2"里的数据读取出来

'关闭Excel文件,注意下面步骤很重要,不能少!!!

Set excel_sheet = Nothing
excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing

在关闭时，加一个参数：SaveChanges:=False
例如：
objApp.Workbooks(1).Close SaveChanges:=False