Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Анализ в ...

RE: Анализ в Excel

15.06.2007 21:02:11

All

4316 сообщения

RE: Анализ в Excel

Во-первых, например, у меня работает сочетание %{е}{я}{а} (рус)
или %{t}{z}{f} (англ), таким образом, еще раз то, что было написано ранее :)

Это был вопрос о вставке в поле значения предыдущей записи.
Вот выдержки

'функция возвращает состояние текущей раскладки клавиатуры
Private Declare Function GetKeyboardLayoutName Lib "user32" Alias
"GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

'функция устанавливает нужную раскладку
Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As
Long, ByVal flags As Long) As Long

'пример использования
Private Sub PastePrev()
Dim strTemp As String
strTemp = String(9, 0)
GetKeyboardLayoutName (strTemp)
If InStr(strTemp, "409") = 0 Then
ActivateKeyboardLayout 1, 0 'если раскладка не английская, то меняем на
следующую
SendKeys "^'", True
' именно код клавиши - "^" непозволяет напрямую использовать
сочетание клавиш при вызове
'SendKeys при русской раскладке
ActivateKeyboardLayout 1, 0 'и восстнавливаем состояние раскладки
'(естественно, это коректно, если на машине установлены две раскладки - RUS
и EN)
Else
SendKeys "^'", True
End If
End Sub

'********************
А вот этот способ работет выполняет нужные Вам действия независимо от раскладки

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_MENU = &H12
Private Const VK_T = &H54
Private Const VK_Z = &H5A
Private Const VK_F = &H46

Private Sub Кнопка4_Click()
'SendKeys "%+"
'SendKeys "%{е}{я}{а}"
'DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "T1", "MyFile.xls"
keybd_event VK_MENU, 0, 0, 0
keybd_event VK_T, 0, 0, 0
keybd_event VK_T, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_Z, 0, 0, 0
keybd_event VK_Z, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_F, 0, 0, 0
keybd_event VK_F, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub

'********************************

P.S. Клиенты автоматизации
Автор: Николай от 0:00:00 Источник ...

Страница 2 из 2

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Анализ в ...

Поиск

Список форумов

Начало | Forums