VB2010中如何读取电子表格中的数据。

有两种方式：

一是把excel在外部打开

二是把excel按数据库方式打开

你要哪种？哪种方法我都可以写出来。

你最好给我一个电子的样子，那才能有针对性地写出代码。

张志晨

补充：

1、引用Microsoft Excel类型库

“工程”-“引用”-选择“Microsoft Excel 80 Object Library”-“确定”

2、声明显式数据类型，创建新实例并获取Excel的控制句柄

Dim ExcelObject As ExcelApplication

Set ExcelObject = CreateObject( "ExcelApplication ")

3、调用并显示Excel

ExcelobjectVisible = True

4、打开文件，

ExcelObject Open pathName

然后用循环进行判断，那就简单了。因为不知道你到底要判断什么，所以无法写出具体的代码来。

Public xlApp As ExcelApplication

Public xlbook As ExcelWorkbook

Public xlSheet As ExcelWorksheet

Public Function OpenExcel(xlPath As String)

Set xlApp = CreateObject("excelapplication")

Set xlbook = xlAppWorkbooksOpen(xlPath)

Set xlSheet1 = xlbookWorksheets(1)

Set xlSheet2 = xlbookWorksheets(2)

xlAppVisible = fasle

Dim i As Integer

i = 1

'下面的判断是假设的，你要改成你实际需要的

Do While xlSheet1Cells(i, 1)Value =xlSheet2Cells(i, 1)Value

Form1List1AddItem xlSheetCells(i, 1)Value

i = i + 1

Loop

quitExcel

End Function

Public Function quitExcel()

xlAppQuit

Set xlApp = Nothing

Set xlbook = Nothing

End Function

经过access测试，ok

String url = "jdbc:odbc:test";//最后一个为数据库名

Statement sm = null;

String command = null;

ResultSet rs = null;

String tableName = null;

String cName = null;

String result = null;

String []pram = new String[1];

List <String> tables = new ArrayList<String>();

pram[0] = "table";

BufferedReader input = new BufferedReader(new InputStreamReader(

Systemin));

try {

try {

ClassforName("sunjdbcodbcJdbcOdbcDriver"); // 加载驱动

} catch (ClassNotFoundException e) {

Systemoutprintln("Can not load Jdbc-Odbc Bridge Driver");

Systemerrprint("ClassNotFoundException:");

Systemerrprintln(egetMessage());

}

Connection con = DriverManagergetConnection(url, "admin", "admin"); // 连接到数据库

DatabaseMetaData dm = congetMetaData();

rs = dmgetTables(null, null, null, pram);//查找所有的表

while(rsnext()){

tablesadd(rsgetString(3));

}

rsclose();

for(String tb : tables){

rs = dmgetColumns(null, null, tb, null);//查找当前表的字段

Systemoutprintln("\nthe table is: " + tb);

ResultSetMetaData rsmd = rsgetMetaData();

int len, type;

len = rsmdgetColumnCount();

// Systemoutprintln(len);

for(int i = 1; i <= len; i ++){

type = rsmdgetColumnType(i);

//这里是获取了一个字段类型的int型，需要转化成string的话要做一个swtich，就不转了，你自己看javasqlTypes这个类去

Systemoutprint("\t" + rsmdgetColumnName(i) + ": " + rsmdgetColumnType(i));

}

}

rsclose();

conclose();

// }

} catch (SQLException ex) {

Systemoutprintln("SQLException:");

while (ex != null) {

Systemoutprintln("Message:" + exgetMessage());

ex = exgetNextException();

}

} catch (Exception e) {

Systemoutprintln("IOException");

}

1先选出表格当中相同型号的产品销售数量:执行--数据--筛选--自动筛选在自动生成的下拉三角中选择你想要的型号就可以了

2做自动求和:在顶端插入一行空行(选中第一行,插入--行),将产品销售数量那一列上面的那个单元格选中,执行插入---函数,对话框中选择类别中选择"全部",下面中选择subtotal(可以按s键帮助定位便于查找),确定在产生的对话框中的function_num中输入9,在下面的小格中输入你产品销售数量那一列的全部所占区域(单击后面的小按钮,可以直接在excel中刷),单击确定即可

这时你可以看到当你筛选项不一样时,所求出的值是随着变的

以上就是关于VB2010中如何读取电子表格中的数据。全部的内容，包括:VB2010中如何读取电子表格中的数据。、java中如何得到数据库中表的字段类型、excel中如何提取相同类别的数据等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！