|
|
|
|
 |
Título da Dica: Executar uma macro no excel atraves do Vb:
|
 |
|
|
|
Postada em 10/12/2003 por geronimo
Digite este código no evento Form_Load no VB:
Private Sub Form_Load()
Dim intDays As Integer
intDays = InputBox(“Informe o número de dias:”) ‘Informação do usuário
‘Inicia Excel
Set xlApp = CreateObject(“Excel.Application”)
Set xlBook = xlApp.Workbooks.Open(“C:\Teste.xls”) ‘Mude o diretório se for necessário
Set xlsheet = xlBook.Worksheets(“Sheet1”)
xlsheet.Visible = False ‘Mude para True se você quiser
‘Insere o valor informado na célula A1
xlsheet.Range(“A1”).Value = intDays
xlApp.Run macro:=”’Module1’!Time”
Set xlApp = Nothing
Unload Form1
End Sub
Antes de executar o código VB, você deve criar um workbook chamado “Teste.xls” no Excel 95 contendo ‘Sheet1’ e ‘Module1’. O módulo deve conter a seguinte macro:
Sub Time()
Dim intDays As Integer
intDays = Sheets(“Sheet1”).Range(“A1”).Value
MsgBox prompt:=”Em “ & intDays & “ dias, a data será “ & intDays + Date
End Sub
Saia do Excel e execute o programa VB. O Excel não estará visível neste exemplo. Se você quizer torná-lo visível, mude a linha:
xlsheet.Visible = False
para:
xlsheet.Visible = True
|
|
|
|
|
