vb表格源码（vb语言基本代码Excel编程）
本文目录一览：
VB 操作EXCEL 源码
'工程-引用-Microsoft Excel Object library(勾选此项)
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'写文件
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add '新建EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets(1)
For i = 1 To 10 '10行
For j = 1 To 10 '10列
xlSheet.Cells(i, j) = i * j
Next j
Next i
xlSheet.SaveAs "d:\test.xls" '按指定文件名存盘
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub
'读文件
Private Sub Command2_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Application.Workbooks.Open("d:\test.xls")
Set xlSheet = xlBook.Worksheets(1)
Dim s As String
For i = 1 To 10 '读取10行
For j = 1 To 10 '读取10列
s = s xlSheet.Cells(i, j) Space(5)
Next j
s = s vbNewLine '另起一行
Next i
Print s
xlApp.Quit '结束EXCEL对象
Set xlApp = Nothing '释放xlApp对象
End Sub
两个命令按钮，先写文件，再读出来输出到窗体，最简单的读写操作。
vb6.0怎么把excel的数据导入到access中？能给个源码么 谢谢
在一个表单中添加一个
命令按钮
command1，添加代码如下：
Private
Sub
Command1_Click()
Dim
cn
As
Connection
Dim
rs
As
Recordset
Dim
sql
As
String
Dim
n
As
Long,
m
As
Long
Set
cn
New
Connection
cn.Open
"Provider=Microsoft.Jet.OLEDB.4.0;"
"Data
Source="
App.Path
"\test.mdb;"
sql
"SELECT
From
[Sheet1$]
IN
Chr(34)
App.Path
"\test.xls"
Chr(34)
Chr(32)
Chr(34)
"EXCEL
8.0;"
Chr(34)
Debug.Print
sql
Set
rs
cn.Execute(sql)
While
Not
rs.EOF
sql
"insert
into
tb(id,num,dt)
values
rs.Fields(0)
Val(rs.Fields(1))
rs.Fields(2)
cn.Execute
sql,
n
m
m
n
rs.MoveNext
Wend
Set
rs
Nothing
Set
cn
Nothing
MsgBox
"成功写入数据："
m
End
Sub
要求：
1、当前文件夹下有数据库test.mdb，里面有一个表的名字叫tb，它的字段id,num,dt，第一个是字符型的，第二个是数值型的，第三个是日期型的。
2、
EXCEL表格
里面的
表头
及数据类型最好要与tb里面的字段对应。
VB读取 2007Excel 详细如下的源码
'输出到excel objExcelText.WriteLine (strTab) objExcelText.Close Set 1、用VB按行读取TXT文档的内容，判断以逗号区分，分离出（例“21：12：12,HEWpId
vb直接读取excel数据源码（不打开excel，也不用ado，直接分析文件获得）
这个没法办。
EXCEL文件格式是OLEvb表格源码，内部不但有数据vb表格源码，而且有代码（宏）、图片、文字、数据等等，微软对OLE格式文档内部存储格式是不公开的（保密的）。
可以按普通文件方式打开execl文件，但问题是不知道内部数据存储格式，从文件中读出来的内容根本无法解释。
VB读取2007Excel的源码
Sub xxx() Workbooks.Open Application.GetOpenFilename("Excel文件(*.xlsx),*.xlsx") ... ActiveWorkbook.Close 1 End Sub ...部分自己增加代码。
麻烦采纳vb表格源码，谢谢!
