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
VB和EXCEL VBA 先学哪个好?
搞的似乎学习EXCEL意大。不像大学计算础知识都应EXCEL,如果你没学过就算了,我倒觉得你应该学一下数据库方面的东西,可以从最简单的access入手。至于VB或VBA建议你学一下VB,毕竟VB是VBA的基础,学好VB不仅很容易学VBA,而且可以学到很多的编程理念和方法,这样对你以后使用相关计算机软件及其二次开发有易(比如AutoCA开发就可以使用VBA)
VB中如何与EXCEL关联,请教代码
用FlexGrid类似控件输出查询excel结果,修改数保存到excel,同时重新读取excel数据到控件,我个人比较熟悉这样的操作方式,一般不直接引用excel对象。
读取excel的代码:
Dim objExcelFile As Excel.Application
Dim objImportSheet As Excel.Worksheet
Dim objWorkBook As Excel.Workbook
Set objExcelFile = New Excel.Application '´´创建新的excel应用程序
objExcelFile.DisplayAlerts = False 'Excel不可见
Set objWorkBook = objExcelFile.Workbooks.Open(App.Path