Я написал макрос на vba, который открывает текстовый файл с помощью блокнота, выбирает весь текст и копирует его в Excel. Мне приходится обрабатывать таким образом около 100 файлов в день, и я хочу избавиться от мигающих изображений, которые я наблюдаю. Код работает, но проблема в том, что команда
Application.Screenupdating = False
Не работает с приложением блокнот. Я могу использовать только нормальный фокус, иначе код не работает. Как я могу выполнить приведенный ниже код, не замечая, что файл блокнота открыт и обработан?
Мой код:
Sub GetTextFile()
Application.ScreenUpdating = False
Dim MyPath As String
Dim MyFile As String
MyPath = "C:\Users\bgyona02\Desktop\OLAttachments\"
MyFile = Dir(MyPath & "*.txt", vbNormal)
Do While Len(MyFile) > 0
MyFile = Dir
Loop
Debug.Print GetTextFileContent(" C:\Users\bgyona02\Desktop\OLAttachments\" & MyFile)
'MyFile = Shell("C:\WINDOWS\notepad.exe` C:\Users\bgyona02\Desktop\OLAttachments\" & MyFile, vbNormalFocus)
'SendKeys "^a", True '^A selects everything already in the pdf file.
'SendKeys "^c", True
'SendKeys "%fx", True
End Sub
Я не мог найти никакого рабочего решения по этому поводу.