Цель – найти ошибку и исправить, чтобы работало в 64-разрядной системе.
Есть макрос, написанный на Excel 2007. Excel + Access.
При переходе на Excel 2010 (или 2007) – на 64 – разрядную макрос начал выдавать ошибки.
В первую очередь – на переключение раскладки клавиатуры с eng rus – в строке
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Public Sub SetLanguage(ByVal s As String)
Select Case VBA.UCase(VBA.Left(s, 1))
Case "R"
LoadKeyboardLayout "00000419", KLF_ACTIVATE
Case "U"
LoadKeyboardLayout "00000422", KLF_ACTIVATE
Case "E"
LoadKeyboardLayout "00000409", KLF_ACTIVATE
Case Else
End Select
End Sub
И во вторых при копировании access – файла . Не могу понять – это нужно поставить права на обычного пользователя для копирования в корневую папку диска C:
SourceFile = "192.168.0.34Accessdb1.mdb"
DestinationFile = "C:db1.mdb"
FileCopy SourceFile, DestinationFile
Excel – файл выдам исполнителю.
Срок – 1 рабочий день. Может быть здесь работы на 20 минут?
Опубликован 30.11.2020 в 16:00 Последнее изменение: 30.11.2020 в 16:01
Заказ находится в архиве