vb 与 excel 数据交互
来源:百度知道 编辑:UC知道 时间:2024/05/13 03:15:57
实现 VB与EXCEL数据交互读写;
1:将VB变量中的数据写到EXCEL文件的单元格中
2:将EXCEL文件的单元格中的数据写到VB变量中
编出相应程序!
QQ:247656
如有会做的!请联系我!本人在送QB 8个!
有谁能给个源文件呢
1:将VB变量中的数据写到EXCEL文件的单元格中
2:将EXCEL文件的单元格中的数据写到VB变量中
编出相应程序!
QQ:247656
如有会做的!请联系我!本人在送QB 8个!
有谁能给个源文件呢
首先在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 Inte