16,554
社区成员
发帖
与我相关
我的任务
分享获取excel工作表(如sheet1$)名称
一個Excel中不只一個工作表
可以是多個，有可能是用戶自己已改名了的
這時想要把它里面的數據導到datagridview中
請教怎么取得
可以是多個，有可能是用戶自己已改名了的
這時想要把它里面的數據導到datagridview中
請教怎么取得
...全文
请发表友善的回复…
发表回复
nkitten88 2007-01-23
- 打赏
- 举报
string ConnectionString = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\\Book1.xls;Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""";
System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(ConnectionString);
try
{
conn.Open();
DataTable dt = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, new object[] { null, null, null, "Table" });
foreach (DataRow dr in dt.Rows)
{
this.listBox1.Items.Add(dr["TABLE_NAME"].ToString());
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
finally
{
if (conn.State == ConnectionState.Open)
{
conn.Close();
}
}
你可以新建一个excel放到D盘测试一下，可以得到你想要的结果
System.Data.OleDb.OleDbConnection conn = new System.Data.OleDb.OleDbConnection(ConnectionString);
try
{
conn.Open();
DataTable dt = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, new object[] { null, null, null, "Table" });
foreach (DataRow dr in dt.Rows)
{
this.listBox1.Items.Add(dr["TABLE_NAME"].ToString());
}
}
catch (Exception ex)
{
MessageBox.Show(ex.Message);
}
finally
{
if (conn.State == ConnectionState.Open)
{
conn.Close();
}
}
你可以新建一个excel放到D盘测试一下，可以得到你想要的结果
ou108 2007-01-23
- 打赏
- 举报
找了好多貼子
沒找到
只好提問了
沒找到
只好提問了
ou108 2007-01-23
- 打赏
- 举报
謝謝各位支持
搞定
搞定
snowfox007 2007-01-23
- 打赏
- 举报
dim dt as DataTable
Dim conn As OleDb.OleDbConnection
dt = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "Table"})
Dim conn As OleDb.OleDbConnection
dt = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, New Object() {Nothing, Nothing, Nothing, "Table"})
ou108 2007-01-23
- 打赏
- 举报
請教DataTable dt = conn.GetOleDbSchemaTable(System.Data.OleDb.OleDbSchemaGuid.Tables, new object[] { null, null, null, "Table" });
這句如何轉換為vb.net
這句如何轉換為vb.net
ou108 2007-01-23
- 打赏
- 举报
暈
來了個C#的
先試試
來了個C#的
先試試
farrio 2007-01-23
- 打赏
- 举报
也可以自己用VBA来取。
dim app as object=createobject("Microsoft.Excel")
dim wb as object=app.activebook
dim sh as object
for each sh in wb.sheets
console.writeline(sh.name)
next
dim app as object=createobject("Microsoft.Excel")
dim wb as object=app.activebook
dim sh as object
for each sh in wb.sheets
console.writeline(sh.name)
next
