华莱士谈笑风生 完整版:vb 与 excel 数据交互

首先在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

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（）值就可以了