vb6怎么使用EXCEL的表格

Posted 2023-04-23

vb6怎么使用EXCEL的表格
VB6中可插入对象如：插入EXCEL后怎样交互？怎样在单元格内置数？

' 创建excel application对象.
Set excel_app = CreateObject( "Excel.Application ")

' 打开一个excel文件
excel_app.Workbooks.Open FileName:=txtExcelFile.Text

' 判读最新版本.
If Val(excel_app.Application.Version) > = 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

'************打开工作表***************
Set xls = New excel.Application
xls.Visible = True
Set xlbook = xls.Workbooks.Add
....
'***************************写入内容*************************
Dim i As Integer
i = 3 'i控制行
Dim j As Integer 'j控制列
Dim countpage As Integer
countpage = 0 '控制页
Do While Not rst_gcl.EOF
xlsheet.Rows(i).RowHeight = 18 '控制行高
For j = 1 To 10
xlsheet.Cells(i, j) = rst_gcl.Fields(j) '将工程理库中的一条记录的第一个字段写入工作表中
Next
'每18行为一页，如果数据超出一页时进行特殊处理
If i > 18 Then
xls.ActiveWindow.SmallScroll Down:=1 '活动窗口内容向下滚动1行
End If
If i Mod 18 = 0 Then
If countpage = 0 Then
xlsheet.Range(xlsheet.Cells(2, 1), xlsheet.Cells(i, 10)).Borders.LineStyle = xlContinuous '首页加边框
Else
xlsheet.Range(xlsheet.Cells(23 + (countpage - 1) * 18, 1), xlsheet.Cells(i, 10)).Borders.LineStyle = xlContinuous '中间页加边框
End If
i = i + 2 '加一条空行 参考技术A 使用VB6使用Excel输入代码：
创建excel application对象.
Set excel_app = CreateObject( "Excel.Application ")

' 打开一个excel文件
excel_app.Workbooks.Open FileName:=txtExcelFile.Text

' 判读最新版本.
If Val(excel_app.Application.Version) > = 8 Then
Set excel_sheet = excel_app.ActiveSheet
Else
Set excel_sheet = excel_app
End If

'************打开工作表***************
Set xls = New excel.Application
xls.Visible = True
Set xlbook = xls.Workbooks.Add
....
'***************************写入内容*************************
Dim i As Integer
i = 3 'i控制行
Dim j As Integer 'j控制列
Dim countpage As Integer
countpage = 0 '控制页
Do While Not rst_gcl.EOF
xlsheet.Rows(i).RowHeight = 18 '控制行高
For j = 1 To 10
xlsheet.Cells(i, j) = rst_gcl.Fields(j) '将工程理库中的一条记录的第一个字段写入工作表中
Next
'每18行为一页，如果数据超出一页时进行特殊处理
If i > 18 Then
xls.ActiveWindow.SmallScroll Down:=1 '活动窗口内容向下滚动1行
End If
If i Mod 18 = 0 Then
If countpage = 0 Then
xlsheet.Range(xlsheet.Cells(2, 1), xlsheet.Cells(i, 10)).Borders.LineStyle = xlContinuous '首页加边框
Else
xlsheet.Range(xlsheet.Cells(23 + (countpage - 1) * 18, 1), xlsheet.Cells(i, 10)).Borders.LineStyle = xlContinuous '中间页加边框
End If
i = i + 2 '加一条空行

VB 查阅 Excel 文件

本人有 N 个Excel表格(已经在当前目录)，姑且叫 N1.xls 、N2.xls.....。 每个表格固定4个工作表:Sheet1-4。 我想用一个 ADO 控件、一个DataGrid控件，来显示 Excel 文件。用FileListBox 控件选择文件，用两个按钮控件来选择工作表。 折腾了老半天，没成功。 就是要利用 ADO 控件和 DataGrid控件 查看 现有的 Excel 文件(不是新建立 Excel 文件)。 因为有多个 Excel 文件 所以想用FileListBox 控件选择要查阅的文件。 因为每个 Excel 文件中有4个工作表，想用 按钮控件来选择工作表来选择工作表。 如果我的算法不可行，请高手为我想个更好的办法，总之能方便查阅 Excel文件就可以。 请那位高手帮个忙，为我写个程序，上机一通过一定追加分。 先谢了。

参考技术A 思路:
1.取得excel对象,然后控制该对象,读取该对象的所有工作表,并写入listbox,
2.当在用户listbox选取某一工作表时,用ADODC控件连接excel,再把DataGrid绑定ADODC控件,通过DataGrid显示表内的数据
*详细方法如下*
建一个窗体:
增加listbox,dataGrid,adodc
控件各1个
窗体内代码如下
Option
Explicit
Public
path
As
String
'excel文件路径
Private
Sub
Form_Load()
Dim
myexcel
As
New
Excel.Application
Dim
mybook
As
Workbook
Dim
mysheet
As
Worksheet
Dim
su,
j
As
Long
'excel表路径
path
=
"D:\我的文档\3000条新书无资料11_3.xls"
Set
mybook
=
myexcel.Workbooks.Open(path)
'遍历每个工作表,取出所有表名
Dim
a
As
Worksheet
For
Each
a
In
mybook.Sheets
'在此循环里,你可以添加到listbox控件
List1.AddItem
a.Name
'
MsgBox
a.Name
'显示工作表的名称
'
MsgBox
a.Range("a1")
'显示A1单元格
Next
mybook.Close
Set
mysheet
=
Nothing
Set
mybook
=
Nothing
Set
myexcel
=
Nothing
End
Sub
Sub
List1_Click()
'单击listbox的表名时
Dim
Conn
As
New
ADODB.Connection
Dim
rs
As
New
ADODB.Recordset
Dim
Sql
As
String,
strSheetName
As
String
strSheetName
=
List1.Text
Sql
=
"select
*
from
["
&
strSheetName
&
"$]"
'指定EXCEL表
Adodc1.ConnectionString
=
"Provider=Microsoft.Jet.OLEDB.4.0;Persist
Security
Info=False;Data
Source="
&
path
&
";Extended
Properties='Excel
8.0;HDR=Yes'"
'连接EXCEL文件
Adodc1.RecordSource
=
Sql
Set
DataGrid1.DataSource
=
Adodc1
Adodc1.Refresh
End
Sub