如何利用VB写EXCEL文件？

shitalone 2003-09-04 11:34:23

如何利用VB写EXCEL文件。有如下变量
name(1) = "aa"
name(2) = "bb"
name(3) = "cc"
sex(1) = "男"
sex(2) = "女"
sex(3) = "女"

要存成如下格式的EXCEL文件。
aa 男 ....
bb 女 ...
cc 男 ...
该如何写！谢谢！急。

...全文

26 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

WQ771211 2003-09-16

打赏
举报

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

shitalone 2003-09-16

打赏
举报

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

bixueer 2003-09-06

打赏
举报

ex.Visible = Faulse

WQ771211 2003-09-05

打赏
举报

ex.Visible = True这句去掉

shitalone 2003-09-05

打赏
举报

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

shitalone 2003-09-04

打赏
举报

谢谢楼上的。能有详细点的例子吗？

网络老男孩了 2003-09-04

打赏
举报

Excel有VBA編輯器

网络老男孩了 2003-09-04

打赏
举报

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

niuniu777 2003-09-04

打赏
举报

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

niuniu777 2003-09-04

打赏
举报

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)