Как в программу VB вставить код записанный из VBA Excel?
Формулировка задачи:
Всем доброе время суток. Я начинаю изучать программирование на Visual Basic, и столкнулся с таким вопросом, каким образом код макроса, записанный в Microsoft Excel можно вставить в программу. Задача следующая: программа запускает файл (*.xls), через каждые две минуты повторяет ряд действий с возможностью остановки таймера. При закрытии программы книга Excel сохраняется и закрывается. Также хочется, чтоб программа работала только на моем рабочем компьютере, для чего необходимо произвести проверку системы. Код и саму программу прилагаю. Всем буду благодарен за помощь.
Excel.rar
Решение задачи: «Как в программу VB вставить код записанный из VBA Excel?»
textual
Листинг программы
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31 Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long Private Sub Form_Load() Dim dwLen As Long Dim strString As String 'создаем буфер dwLen = MAX_COMPUTERNAME_LENGTH + 1 strString = String(dwLen, "X") 'получаем имя компьютера GetComputerName strString, dwLen 'get only the actual data strString = Left(strString, dwLen) 'показываем имя компьютера MsgBox strString End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д