每次打开Excel文件都会出现一个空白sheet1文件的解决方法

每次打开Excel文件都会出现一个空白sheet1文件的解决方法

问题

最近打开Excel文件或者只启动Excel都会出现一个空白的未保存的sheet1.xls文件,在网上搜了一波,终于找到原因。最终原因就是因为电脑装了MySQL导致的。。。。恰巧我的电脑也是刚装了mysql5.7才出现的这个问题。

解决方法

打开Excel,在文件 - 选项 - 加载项 - 管理处选择COM加载项,点击转到…,取消勾选MySQL For Excel即可。
另外也可卸载mysql for Excel相关组件,实际开发中并没有用到,可以删除。
PS:本人使用的是Excel2016,不同版本的设置位置大致相同。

Excel中,你可以使用VBA(Visual Basic for Applications)宏来自动化这个过程,把一个文件按照指定的行数拆分成多个小文件。以下是简单的步骤: 1. **创建新的Excel工作簿**:打开一个新的空白Excel工作簿。 2. **启用宏录制**:点击"开发者"选项卡(如果默认隐藏,需先在Excel设置中显示),然后选择"宏" -> "新建宏",命名为例如"SplitFile"。 3. **编写VBA代码**:在新打开的宏编辑器窗口中,输入以下代码: ```vba Sub SplitFile() Dim ws As Worksheet Dim LastRow As Long Dim StartRow As Long Dim FileName As String Dim SavePath As String ' 设置开始行数和每份文件的行数 StartRow = 1 ' 指定第一行作为分割线 RowsPerSheet = 100 ' 或者你喜欢的任意行数 Set ws = ThisWorkbook.Worksheets("Sheet1") ' 修改为你需要操作的工作表名称 LastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row ' 创建保存路径(如果不存在) If Right(SavePath, 1) <> "\" Then SavePath = SavePath & "\" End If ' 分割并保存文件 For i = StartRow To LastRow Step RowsPerSheet FileName = SavePath & "File_" & Format(i, "000") & ".xlsx" ws.Range(ws.Cells(StartRow, 1), ws.Cells(i, ws.Columns.Count)).Copy Destination:=NewWorkbook.Sheets(1) NewWorkbook.SaveAs Filename:=FileName, FileFormat:=xlOpenXMLWorkbook Application.DisplayAlerts = False ' 防止提示信息 Kill FileName ' 删除临时文件 Set NewWorkbook = Workbooks.Open(Filename:=FileName) NewWorkbook.Close SaveChanges:=False Application.DisplayAlerts = True Next i End Sub ``` 这里的`RowsPerSheet`变量是你想要每个新文件包含的行数。记得替换`ws`为你要操作的工作表名称,并设置合适的`SavePath`。 4. **运行宏**:关闭宏编辑器,回到Excel主界面,转到宏组,选择你刚才创建的"SplitFile"宏,点击“运行”即可。 5. **注意**:每次运行宏前确认工作表的数据是否更新到了最新的状态,因为宏会从指定的起始行开始拆分。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值