如何利用VB写EXCEL文件？

Question

如何利用VB写EXCEL文件。有如下变量
name(1) = "aa"
name(2) = "bb"
name(3) = "cc"
sex(1) = "男"
sex(2) = "女"
sex(3) = "女"要存成如下格式的EXCEL文件。
aa 男 ....
bb 女 ...
cc 男 ...
该如何写！谢谢！急。

Answer 1

先在VB中引用MSExcel控件
你用Excel的宏生成你想要的結果,把代碼貼到VB里,
dim excel_sheet as excel.worksheet
具體代碼忘記了,反正過程是這樣.

Answer 2

Dim ex      As Object
    Dim exwbook As Object
    Dim exsheet As Object
    Dim A(255)     As String     '确定数组政标    Set ex = CreateObject("Excel.Application")
      ex.Visible = True
    Set exwbook = Nothing
    Set exsheet = Nothing
    Set exwbook = ex.Workbooks.Open(App.Path & "\3-1.xls")
    Set exsheet = exwbook.Worksheets("sheet1")
     
 
    ex.Range("A1") = "asdfasdfasfasfsafsafas" & vbCrLf
    
    ex.Range("A1") = Left(ex.Range("A1"), Len(ex.Range("A1")) - 2)

Answer 3

Ex.Range("单元格")  ="数据来源"!
用Excel中的VBA还要修改一下，有时不可完全照搬。

Answer 4

多谢！已经基本搞定。用的就是楼上的方法，不过每次EXCEL窗口都要自己跑出来，能不能让他默默的在后台做贡献，不要跑到前台来。

Answer 5

ex.Visible = True这句去掉

Answer 6

谢楼上两位。
我要在关闭之前将EXCEL的修改保存，再关闭该EXCEL文件，该如何写。

Answer 7

万能方法：用“录制宏”，看看excel自己生成的代码