Можно ли активировать файл с именем переменной - PullRequest
0 голосов
/ 12 января 2020

Я пытаюсь открыть файл, который может каждый день иметь другое имя, но всегда будет содержать «1234». После этого скопируйте и вставьте различные строки данных и т. Д. c. У меня сейчас проблема в том, что я использовал макрос для записи, но я не могу использовать windows .activate для переключения на правильные файлы для копирования и вставки

sPath = "C:\Users\kings\OneDrive\Desktop\operation\"
sWildcard = "*123*.*"
sFile = Dir(sPath & sWildcard)
If sFile <> "" Then
  sWorkbook = sPath & sFile
  Workbooks.Open sWorkbook
Else
  MsgBox "File Not Found"
  ' Exit Sub '// optionaly exit the subroutine so that it does not try to continue //
End If
Windows(sWorkbook).Activate

Getting "Ошибка времени выполнения 9 подписей вне диапазона "в Windows (sWorkbook).

1 Ответ

0 голосов
/ 12 января 2020

Если вы все еще хотите активировать книгу, я бы предложил вместо нее использовать объект книги

sPath = "C:\Users\kings\OneDrive\Desktop\operation\"
sWildcard = "*123*.*"
sfile = Dir(sPath & sWildcard)

Dim wkb As Workbook
If sfile <> "" Then
    sWorkbook = sPath & sfile
    Set wkb = Workbooks.Open(sWorkbook)
    wkb.Activate
Else
    MsgBox "File Not Found"
    ' Exit Sub '// optionaly exit the subroutine so that it does not try to continue //
End If

Как избежать использования Select в Excel VBA

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...