运行上述代码时 工作区是Analysis on等 代码一直在运行没结果

非常抱歉，可能是由于代码中的其他部分造成了无限循环或其他性能问题，导致代码一直在运行而没有结果。我无法确定具体原因，因为我只能看到您提供的部分代码。

以下是一些建议来解决这个问题：

1. 检查代码逻辑：仔细检查您的代码，确保没有无限循环、逻辑错误或其他导致代码无法正常结束的问题。

2. 检查输入数据：确保您提供给代码的输入数据是正确的，并且满足代码所需的条件。

3. 调试代码：使用调试工具（如断点）来逐步执行代码，并观察变量的值和代码的执行路径，以找出问题所在。

4. 简化代码：如果可能的话，尝试简化代码以确定问题的根本原因。逐步删除代码中的部分内容，并测试每个步骤，以确定哪一部分引起了问题。

如果您需要更多帮助，请提供更多关于问题的详细信息和完整的代码，这样我就能更准确地帮助您解决问题。

相关问题

上述代码，在VS运行时提示没有SelectionChange事件

如果在Visual Studio中使用VB.NET编写Excel VSTO扩展程序时，出现“没有SelectionChange事件”的错误提示，可能是因为该事件未被正确绑定。

在VB.NET中，可以使用以下步骤来绑定SelectionChange事件：

1. 双击“Sheet1.vb”文件打开默认的工作表代码文件；
2. 在“Sheet1.vb”文件中，添加以下代码：

Private Sub Sheet1_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
    AddHandler Me.SelectionChange, AddressOf Worksheet_SelectionChange
End Sub

Private Sub Sheet1_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
    RemoveHandler Me.SelectionChange, AddressOf Worksheet_SelectionChange
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Microsoft.Office.Interop.Excel.Range)
    If Target.Locked = True Then
        Globals.Ribbons.Ribbon1.button1.Enabled = False
        '此处的“button1”可以替换为你要禁用的按钮名称
    Else
        Globals.Ribbons.Ribbon1.button1.Enabled = True
    End If
End Sub

3. 将代码中的“button1”替换为你要禁用的按钮名称；
4. 保存并编译项目；
5. 打开Excel文档，启用Excel扩展程序；
6. 在Excel文档中选定一个单元格，并进入编辑模式，如果该单元格被锁定，则对应的功能区按钮将被禁用。如果单元格未被锁定，则按钮将启用。

这样，当用户选定一个单元格并进入编辑模式时，如果该单元格被锁定，则对应的功能区按钮将被禁用。如果单元格未被锁定，则按钮将启用。

测试了上述代码，运行结果为空，且excel中未写入数据，

如果你的 Excel 文件中没有写入数据，那么在读取文件时自然会得到空的结果。请确保你的 Excel 文件中已经写入了数据，然后再运行读取数据的代码。

如果你想要将数据写入 Excel 文件，可以使用 openpyxl 库的相关方法。以下是一个简单的示例代码，展示了如何使用 openpyxl 写入数据到 Excel 文件：

import openpyxl

# 创建一个新的工作簿
workbook = openpyxl.Workbook()

# 选择要写入数据的工作表（默认创建的工作簿中会有一个名为 "Sheet" 的工作表）
sheet = workbook.active

# 写入数据到指定单元格
sheet['A1'] = 'Hello'
sheet['B1'] = 'World'

# 保存工作簿到文件
workbook.save('example.xlsx')

# 关闭工作簿
workbook.close()

在上面的代码中，首先使用 `openpyxl.Workbook()` 创建一个新的工作簿，然后通过 `workbook.active` 选择默认创建的工作表。使用类似 `sheet['A1'] = 'Hello'` 的方式可以将数据写入指定单元格。最后，使用 `workbook.save()` 方法将工作簿保存到文件，并使用 `workbook.close()` 关闭工作簿。

确保在运行读取数据的代码之前，已经成功将数据写入 Excel 文件。