当前位置:首页教育技巧excel技巧excel数据库

excel表格怎么删除指定表格

减小字体 增大字体 2025-01-03 10:20:47


1.如何删除Excel文件中指定的工作表?

private void btn_Select_Click(object sender, EventArgs e) { openFileDialog1.Filter = "Excel文件|*.xls";//设置打开文件筛选器 openFileDialog1.Title = "选择Excel文件";//设置打开对话框标题 openFileDialog1.Multiselect = false;//设置打开对话框中只能单选 if (openFileDialog1.ShowDialog() == DialogResult.OK)//判断是否选择了文件 { txt_Path.Text = openFileDialog1.FileName;//在文本框中显示Excel文件名 CBoxBind();//对下拉列表进行数据绑定 } } private void btn_Delete_Click(object sender, EventArgs e) { Microsoft.Office.Interop.Excel.Application excel = new Microsoft.Office.Interop.Excel.ApplicationClass();//实例化Excel对象 object missing = Missing.Value;//获取缺少的object类型值 //打开指定的Excel文件 Microsoft.Office.Interop.Excel.Workbook workbook = excel.Application.Workbooks.Open(txt_Path.Text, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing, missing); ((Microsoft.Office.Interop.Excel.Worksheet)workbook.Sheets[cbox_SheetName.Text]).Delete();//删除选择的工作表 MessageBox.Show("工作表删除成功!"); excel.Application.DisplayAlerts = false;//不显示提示对话框 workbook.Save();//保存工作表 CBoxBind();//对下拉列表进行数据绑定 System.Diagnostics.Process[] excelProcess = System.Diagnostics.Process.GetProcessesByName("EXCEL");//实例化进程对象 foreach (System.Diagnostics.Process p in excelProcess) p.Kill();//关闭进程 } private void CBoxBind()//对下拉列表进行数据绑定 { cbox_SheetName.Items.Clear();//清空下拉列表项 //连接Excel数据库 OleDbConnection olecon = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + txt_Path.Text + ";Extended Properties=Excel 8.0"); olecon.Open();//打开数据库连接 System.Data.DataTable DTable = olecon.GetSchema("Tables");//实例化表对象 DataTableReader DTReader = new DataTableReader(DTable);//实例化表读取对象 while (DTReader.Read())//循环读取 { cbox_SheetName.Items.Add(DTReader["Table_Name"].ToString().Replace('$',' ').Trim());//将工作表名添加到下拉列表中 } DTable = null;//清空表对象 DTReader = null;//清空表读取对象 olecon.Close();//关闭数据库连接 cbox_SheetName.SelectedIndex = 0;//设置下拉列表默认选项为第一项 }//来自CodeGo.net。

2.如何快速删除指定excel列中的空白单元格

首先,选中需要进行操作的所有单元格,然后按“Ctrl+G”组合键打开“定位”设置框。

点击“定位条件”按钮,打开“定位条件”设置框。

选择“空值”,确定。这时你会发现表格中的空单元格都被选中了,点击右键,选择“删除”。

然后在弹出的“删除”对话框中选择删除方式。

如果你仅仅想删除所有的空单元格,请选择上面的“右侧单元格左移”或“下方单元格上移”;如果你想删除所有的空行,则选择“整行”。点击确定,则表格中所有的空单元格或空行就被删除了。

3.excel怎么实现删除指定名称工作表以外的所有工作表

等下,可帮你解决。

只要将上次的VBA代码改相反删除即可: Private Sub Worksheet_SelectionChange(ByVal Target As Range) '删除“功能表”表中指定未指定的分表 '用鼠标点击“功能表”的单元格A1,即:点击“删除未指定的分表”文字。 Application.DisplayAlerts = False If Range("A1") = "" Then Range("A1") = "删除未指定的分表" x = Target.Row y = Target.Column On Error Resume Next If x = 1 And y = 1 Then endh = Sheets("功能表").[A65536].End(xlUp).Row For ay = 2 To endh yx = 0 t: For yx = 1 To Worksheets.Count fbname = Sheets(yx).Name If Cells(ay, 1) <> fbname And fbname <>; "功能表" Then Sheets(fbname).Select ActiveWindow.SelectedSheets.Delete yx = 0 GoTo t End If Next Next MsgBox "已将未指定工作表全部删除!" End If Sheets("功能表").Select Application.DisplayAlerts = True End Sub

评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分)

【免责声明】本站信息来自网友投稿及网络整理,内容仅供参考,如果有错误请反馈给我们及时更正,对文中内容的真实性和完整性本站不提供任何保证,不承但任何责任。
版权所有:学窍知识网 Copyright © 2011-2025 www.at317.com All Rights Reserved .