Question

vb 与 excel 数据交互

实现 VB与EXCEL数据交互读写；
1：将VB变量中的数据写到EXCEL文件的单元格中
2：将EXCEL文件的单元格中的数据写到VB变量中

编出相应程序！
QQ：247656
如有会做的！请联系我！本人在送QB 8个！
有谁能给个源文件呢

Answer 1

首先在VB中引用microsoft excel object library

假设c盘根目录下有个1.xls的文件

Private Sub Form_Load()

Dim xlApp As Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.WorkSheet

Set xlApp = CreateObject("Excel.Application")

Set xlBook = xlApp.Workbooks.Open("C:\1.xls")

Set xlSheet = xlBook.Worksheets(1)'引用第1张工作表

Debug.Print xlSheet.Range("A1")'在立即窗口中显示第1张工作表中A1的内容,如果你想赋值给某个变量就在这里赋值，=xlSheet.Range("A1")就是你想要的东西

xlApp.Application.Quit

Set xlApp = Nothing

Unload Me
'表忘释放引用

End Sub

至于用变量给单元格赋值也很容易

声明一个变量

打个比方，给单元格A1赋值

xlSheet.Range("A1")=你声明的变量即可

记得把这条语句放在

Debug.Print xlSheet.Range("A1")这条语句的位置。

还有不明白的问我：
wzz3@netease.com

Answer 2

Option Explicit
Dim x(1 To 4, 1 To 5) As Integer

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object

Set ex = CreateObject("Excel.Application")
Set exwbook = Nothing
Set exsheet = Nothing
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
ex.Range("c4:g7").Value = x

ex.Range("c3").Value = "表 格"
ex.Range("d3").Value = " 春 天 "
ex.Range("e3").Value = " 夏 天 "
ex.Range("f3").Value = " 秋 天 "
ex.Range("g3").Value = " 冬 天 "

'保存输入到a1.xls
exwbook.SaveAs "c:\abc.xls"
'退出excel
ex.Quit
End Sub

这个是第1个问题
改变相应的range（）值就可以了