Postada em 29/11/2012 14:02 hs
gente boa ajuda-me tnho um projecto em q na qual pretendo criar um botao pra chamar excel estar dar muito erro o codigo é o seguinte:
Dim Excel As Object
Excel = CreateObject("Excel.Application")
With Excel
.Workbooks.Open(filename:="C:ProgramsMicrosoft Office.xls")
.Visible = True
.Sheets("Plan1").Select()
.Range("A1").Select()
.MsgBox.activecell.Value()
.activecell.Value = 20
End With
|
