在VB中如何提取EXCEL表中的数据？？

来源：百度知道 编辑：UC知道 时间：2024/05/21 22:14:01
这个问题有很多人问过，可我看了一下，基本上都是要运行EXCEL，打开EXCEL表，但是，我现在想实现不打开EXCEL表格就直接读取。就象引用SQL数据库中的数据一样，不知有什么方法实现没？？我想了很久，可没什么头绪。
因为某些原因，不使用ACCESS和SQL，所以我才考虑到用EXCEL表
有这方面的高手希望多多指教，不胜感激！！
我所指的是不运行EXCEL这个软件，就可以直接读取到EXCEL表里面的数据。

看看有帮助没～

VB操作EXCEL
全面控制 Excel
首先创建 Excel 对象，使用ComObj:
Dim ExcelID as Excel.Application
Set ExcelID as new Excel.Application
1) 显示当前窗口：
ExcelID.Visible := True;
2) 更改 Excel 标题栏：
ExcelID.Caption := \'应用程序调用 Microsoft Excel\';
3) 添加新工作簿：
ExcelID.WorkBooks.Add;
4) 打开已存在的工作簿：
ExcelID.WorkBooks.Open( \'C:\\Excel\\Demo.xls\' );
5) 设置第2个工作表为活动工作表：
ExcelID.WorkSheets[2].Activate;
或 ExcelID.WorkSheets[ \'Sheet2\' ].Activate;
6) 给单元格赋值：
ExcelID.Cells[1,4].Value := \'第一行第四列\';
7) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelID.ActiveSheet.Columns[1].ColumnsWidth := 5;
8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelID.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米
9) 在第8行之前插入分页符：
ExcelID.WorkSheets[1].Rows[8].PageBreak := 1;
参考代码：ActiveSheet.HPageBreaks(1).Location = Range("A2