第1个回答 2011-07-21
1、在EXCEL中引用当前工作表名
如果你的工作薄已经保存,下面公式可以得到单元格所在工作表名:
=RIGHT(CELL("filename"),LEN(CELL("filename"))-FIND("]",CELL("filename")))
2、计算一个工作薄中有多少个工作表
方法一:
点"工具"->"宏"->"VB编辑器"->"插入"->"模块",输入如下内容:
Sub sheetcount()
Dim num As Integer
num = ThisWorkbook.Sheets.Count
Sheets(1).Select
Cells(1, 1) = num
End Sub
运行该宏,在第一个(排在最左边的)工作表的A1单元格中的数字就是sheet的个数。
方法二:
按Ctrl+F3(或者点"插入"->"名称"->"定义"),打开"定义名称"对话框
定义一个X
"引用位置"输入:
=get.workbook(4)
点"确定"。
然后你在任意单元格输入=X
出来的结果就是sheet的个数。
3、在一个工作薄中快速整理出一个目录工作表即可在目录工作表上直接链接上其中一个:
1、用宏3.0取出各工作表的名称,方法:
Ctrl+F3出现自定义名称对话框,取名为X,在“引用位置”框中输入:
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
确定
2、用HYPERLINK函数批量插入连接,方法:
在目录工作表(一般为第一个sheet)的A2单元格输入公式:
=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))
将公式向下填充,直到出错为止,目录就生成了。
第2个回答 推荐于2016-03-12
openFileDialog1.ShowDialog();
oledbconn1.ConnectionString = "provider=Microsoft.Jet.OLEDB.4.0;data source="+openFileDialog1.FileName+";Extended Properties=Excel 8.0;Persist Security Info=False";
oledbconn1.Open();
DataTable dt = oledbconn1.GetOleDbSchemaTable(OleDbSchemaGuid.Tables,new objec] {null, null, null, "TABLE"});
foreach (DataRow dr in dt.Rows)
{
comboBox1.Items.Add((String)dr["TABLE_NAME"]);
}本回答被提问者和网友采纳
第3个回答 2011-07-20
string connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + fileUrl + ";Extended Properties='Excel 8.0;IMEX=1;HDR=" + ynHDR + "'";
System.Data.OleDb.OleDbConnection Conn2 = new System.Data.OleDb.OleDbConnection(connStr);
Conn2.Open();
String sqlGetColumnName = "SELECT * FROM [" + sheet + "]";
System.Data.OleDb.OleDbDataAdapter odasheet = new System.Data.OleDb.OleDbDataAdapter(sqlGetColumnName, Conn2);
DataSet dsSheet = new DataSet();
odasheet.Fill(dsSheet, dataSection);
Conn2.Dispose();
Conn2.Close();
return dsSheet;