Отличие VBA от VB 2010

Узнай цену своей работы

Формулировка задачи:

чем отличается VBA от VB 2010? и можно ли на VB2010 писать макросы?

Решение задачи: «Отличие VBA от VB 2010»

textual
Листинг программы
Option Explicit
 
Private Sub Комманда1_Click()
Dim XL As Object, ТекстПроцедуры, xlmodule
 
'создаем Excel объект
Set XL = CreateObject("Excel.Sheet")
Set XL = XL.application.ActiveWorkbook.ActiveSheet
 
ТекстПроцедуры = "Private Sub Workbook_Open()"
ТекстПроцедуры = ТекстПроцедуры & vbCrLf & "MsgBox " & """" & "И кто сказал, что макрос нельзя создать из бейсика?" & """" & ", " & 64 & ", " & """"
ТекстПроцедуры = ТекстПроцедуры & vbCrLf & " End sub"
 
 
Set xlmodule = XL.application.VBE.VBProjects(1).VBComponents(1)
xlmodule.CodeModule.AddFromString ТекстПроцедуры
 
XL.SaveAs App.Path & "\TEST.xls"
 
'удаляем объект из памяти
Set XL = Nothing
MsgBox "Файл TEST.xls создан, макрос на открытие книги создан. Файл сохранен на диске в " & App.Path & "\TEST.xls"
Unload Me
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 3.333 из 5