ВОПРОС ОБНОВЛЕНИЯ, чтобы включить ссылку, которую я нашел здесь ***:
Кнопка макроса на настраиваемой вкладке ленты пытается открыть старый файл Excel
Я написал здесь кое-что вчера вечером, что это связано с ( Excel сообщает мне, что он не может получить доступ к файлу, я не хочу, чтобы он имел доступ ) У меня есть Sub, который превращает часть рабочего листа в таблицу и затем сортирует эту таблицу по столбцу, готовясь ко второй процедуре, которая скопирует области этого листа на другой лист.
Я получал сообщение об ошибке: «Мы не можем подключиться к ' https://...my.sharepoint../BETAV9_8_ItemAccountingTEMPLATEetcetc. Убедитесь, что вы используете правильный веб-адрес. "
Теперь код открывает совершенно другую версию этого файла, то есть BETAV9_9, которую, я думаю, он нашел, в отличие от раньше, когда он не мог найти BETAV9_8. Дело в том, что я понятия не имею, что заставляет его открыть другой файл. Вот что я делаю:
Sub makeItemChecklistTable()
Dim selectRange As String
Dim lowerBound As Integer
Dim ws As Worksheet
Dim src As Range
Dim tbl As ListObject
Dim sortRange As Range
lowerBound = numberofCERTSRecords() + 1 'This function counts the number of records on another sheet, which is 147
selectRange = "B1:I" & CStr(lowerBound)
Set ws = ActiveWorkbook.Sheets("ItemChecklist")
Set src = ws.Range(selectRange)
ws.ListObjects.Add(SourceType:=xlSrcRange, Source:=src, _
xlListObjectHasHeaders:=xlYes, tablestyleName:="TableStyleLight1").Name = "keywordChecklist"
'Item Checklist table is called keywordChecklist. Before exporting to PTF, sort keywordChecklist by Status in Ascending order
Set tbl = ws.ListObjects("keywordChecklist")
Set sortRange = ws.Range("keywordChecklist[ED_Question_ID]")
With tbl.Sort
.SortFields.Clear
.SortFields.Add Key:=sortRange, Order:=xlAscending
.Apply
End With
End Sub
В прошлой ночной публикации я упоминал, что использовал руководство MS для поиска ссылок на внешний файл Excel (https://support.microsoft.com/en-us/office/find-links-external-references-in-a-workbook-fcbf4576-3aab-4029-ba25-54313a532ff1?ui=en-us&rs=en-us&ad=us), но в по крайней мере, во всех местах, где я смотрел, я ничего не могу найти. И если бы была ссылка на старый файл, почему предыдущая версия пыталась открыть BETAv9_8, а теперь текущая книга успешно открывает BETAv9_9?
Когда я прошел через эту процедуру, она необъяснимо подскочила (2000 раз) в другую процедуру, используемую для изменения 2000 строк на отдельном листе (она принимает строку и возвращает ту же строку за вычетом нескольких символов). Этот рабочий лист ссылается на текущий рабочий лист через функцию ВПР, но к моменту запуска этой процедуры все эти ВПР уже были просмотрены на текущей странице, то есть они уже отображаются в столбце H. Я сортирую по столбцу E (ED_Question_ID).
*** ОБНОВЛЕНИЕ Я действительно вижу, что у меня есть кнопки, назначенные макросам на моей настраиваемой панели инструментов, которые относятся к более старым версиям того же файла. Я могу исправить это с помощью функции экспорта пользовательского интерфейса, описанной на этой странице ( кнопка макроса на настраиваемой вкладке ленты пытается открыть старый файл Excel ), но 1. Я не вызывал этот макрос с помощью кнопки; Я запускал процедуру непосредственно из окна кода vba, и 2. Как я уже сказал, я сохранял эти файлы последовательно, повышая число бета-версии каждый раз, когда я вношу серьезные изменения. Придется ли мне экспортировать и переименовывать все ярлыки кнопок / панелей инструментов каждый раз, когда я сохраняю файл под новым именем? Это кажется абсурдным способом настроить ситуацию со стороны Microsoft.