Question

VB里怎么把数据存到EXCLE里啊

想把50个数据一组的RND随机数组存到EXCEL里，10个一行，代码该怎么写啊，目标是想产生一组就存进去，直到手动终止

Answer 1

'首先通过VB的菜单[工程] -- [引用]，勾选：Microsoft Excel XX.0 Object Library
'其中11.0是OFFICE2003，14.0是OFFICE2010
我给你一个例子，你复制下面的代码就能用：自己研究一下：

Private Sub Command1_Click()
Dim xlsApp As Excel.Application '声明Excel对象变量
Dim xlsBook As Excel.Workbook '声明工作簿对象变量
Dim xlsSheet As Excel.Worksheet '声明工作表对象变量

'******************** 创建EXCEL对象实例、打开EXCEL文件，并创建工作簿实例的 方法一 ********************
Set xlsApp = CreateObject("Excel.Application") '创建EXCEL对象实例
Set xlsBook = xlsApp.Workbooks.Open("C:\实验1.xls") '设置工作簿对象并打开已经存在的工作簿EXCEL文件
'**********************************************************************************************************

'******************** 创建EXCEL对象实例、打开EXCEL文件，并创建工作簿实例的 方法二 ********************
'Set xlsApp = Excel.Application '创建EXCEL对象实例
' xlsApp.Workbooks.Open ("C:\实验1.xls") '使用EXCEL对象的Open方法打开已经存在的工作簿EXCEL文件
'Set xlsBook = xlsApp.Workbooks("实验1.xls") '设置工作簿对象为"实验1.xls"
'**********************************************************************************************************

xlsApp.Visible = False '设置EXCEL对象不可见（或True为可见）
Set xlsSheet = xlsBook.Worksheets("Sheet1") '设置工作表对象为打开的工作簿中的表“Sheet1”

'引用单元格方法1
xlsSheet.Cells(1, 1) = 999 '给“Sheet1”表的第1行第1格即“A1”单元格赋值999
xlsSheet.Cells(2, 1) = "你好！" '给“Sheet1”表的第1行第1格即“A2”单元格赋值"你好！"
xlsSheet.Cells(3, 2) = "EXCEL" '给“Sheet1”表的第1行第1格即“B3”单元格赋值"EXCEL"

'引用单元格方法2
Dim Str As String
Dim d As Date
Str = "欢迎使用EXCEL VBA"
d = #8/28/2012#
xlsSheet.Range("C1").Value = Str '用变量给“Sheet1”表的“C1”单元格赋值
xlsSheet.Range("C2").Value = d '用变量给“Sheet1”表的“C2”单元格赋值 日期类型

'读取单元格数据
Dim x As Integer
Dim s As String
Dim d1 As Date
x = xlsSheet.Cells(1, 1).Value
s = xlsSheet.Range("C1").Value
d1 = xlsSheet.Range("C2").Value
MsgBox x, , "VBA 实例"
MsgBox s, , "VBA 实例"
MsgBox d1, , "VBA 实例"

'单元格之间直接完成赋值
xlsSheet.Range("A5").Value = xlsSheet.Range("A1").Value
xlsSheet.Range("A10").Value = xlsSheet.Range("A1").Value + 200000

'开始设置行高
'选中第MyRow行
Dim MyRow As Long
Dim MyCol As String
MyRow = 5
MyCol = "E"
xlsSheet.Rows(CStr(MyRow) & ":" & CStr(MyRow)).Select
Selection.RowHeight = 2 * 28.45
xlsSheet.Columns(MyCol & ":" & MyCol).Select
Selection.ColumnWidth = 6 * 83.8 / 1.9

xlsBook.Close (True) '关闭工作簿并保存所做的修改 (False)则放弃修改，xlsBook.Close将会提问
xlsApp.Quit '关闭EXCEL对象
Set xlsApp = Nothing '释放xlApp对象

End Sub

Answer 2

参考。

运行程序后会在程序目录下生成一个工作簿。