excel - 当我在 Windows 资源管理器中选择文件时打开 VBA 编辑器
问题描述
我编写了代码来更改多个受保护工作簿中单元格的内容,以查找要从工作表中的表格插入的值。
我遇到的问题是,当我在\Files\
文件夹中选择一个文件时,它会打开 VBA 编辑器,显示我正在使用的代码。即使 Excel 已关闭并在重新启动后,该窗口也会打开。
这不是一个真正的错误。这很烦人,因为我在文件资源管理器中使用预览模式来仔细检查代码是否有效。
文件存储在c:\Folder\
.
文件名列表位于 A 列中,从第 2 行开始,相应的值将在 B 列中更新。
粘贴位置是工作表“参考”的单元格 F2
Sub UpdateFiles()
Dim rownum As Long
rownum = 2
Dim last_row As Long
last_row = Cells(Rows.Count, 1).End(xlUp).Row
Dim filename As String
Dim newvalue As Long
For nextRow = 2 To last_row
filename = Range("A" & rownum).Value
newvalue = ActiveWorkbook.Sheets("Sheet1").Range("B" & rownum).Value
Workbooks.Open "C:\Folder\" & filename
ActiveWorkbook.Unprotect ("password")
ActiveWorkbook.Sheets("References").Range("F2") = newvalue
ActiveWorkbook.Protect ("password")
ActiveWorkbook.Save
ActiveWorkbook.Close
rownum = rownum + 1
Next nextRow
End Sub
解决方案
推荐阅读
- actions-on-google - 是否需要为 Google Assistant Action 特征 NetworkControl 实现 networkSpeedTestInProgress 错误?
- xslt - 父组的 XSLT 分组键
- r - 如何制作一个允许在光栅图像上绘制多个多边形的闪亮应用程序?
- swift - SwiftUI:如何在 swiftui 视图中重构嵌套条件
- cassandra - Cassandra 使用 Java 驱动程序 4.6 获取表数
- mysql - Sorting and numbering by time in procedure in mysql
- google-apps-script - 侧边栏项目上用于在电子表格中包含一行的按钮不起作用
- github - git: 'remote-hittps' 不是 git 命令。见'git --help'
- json - 从 API 获取数据时,文本是阿拉伯语 它在颤动中看起来像这样
- javascript - 如何在角度图表中添加过滤器