如何用VB读写EXCEL中数据

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

最好详细点，兄弟笨笨的呢

解析:

Private Sub Form_Load()

Text1Text = AppPath & "\123xls"

Text2Text = AppPath & "\123mdb"

Text3Text = "sheet1"

Text4Text = "sheet1"

Data1DatabaseName = AppPath & "\123mdb"

End Sub

Private Sub Command1_Click()

Dim db As Database

Dim sheet As String, excelpath As String, AccessPath As String, AccessTable As String

AccessPath = Text2Text '数据库路径

excelpath = Text1Text '电子表格路经

AccessTable = Text4Text '数据库内表格

sheet = Text3Text '电子表格内工作表

Set db = OpenDatabase(excelpath, True, False, "Excel 50") '打开电子表格文件

SQL = ("Select into [;database=" & AccessPath & "]" & AccessTable & " FROM [" & sheet & "$]")

dbExecute (SQL) '将电子表格导入数据库

Data1RecordSource = "sheet1"

Data1Refresh

DBGrid1Refresh '显示电子表格导入到数据库的数据

End Sub

上面的是把EXCEL读取到数据库中,你做点修改就行了一个Data控件

Dim oExcel As Object

Dim oBook As Object

Dim oSheet As Object

Set oExcel = CreateObject("Excelapplication")

Set oBook = oExcelworkbooksAdd

Set oSheet = oBookworksheets(1)

oSheetName = "新的工作表的名称"

以上就是关于如何用VB读写EXCEL中数据全部的内容，包括:如何用VB读写EXCEL中数据、vb 如何获取当前的工作表的名称、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！