COMO INSERIR LINHA EXCEL NO VB?
Pessoal,
Sei trabalhar com o VB manipulando o Excel por código.
Mas,não me lembro como fica a linha de código no VB,que permite
adicionar uma linha no Exel. Alguém sabe???
Sei trabalhar com o VB manipulando o Excel por código.
Mas,não me lembro como fica a linha de código no VB,que permite
adicionar uma linha no Exel. Alguém sabe???
Se não me engano,
primeiro você tem que selecionar a planilha com o Activate, depois veja se este código resolve
Rows([Ô]Número da linha[Ô]).Select
Selection.Insert Shift:=xlDown
Espero que ajude.
primeiro você tem que selecionar a planilha com o Activate, depois veja se este código resolve
Rows([Ô]Número da linha[Ô]).Select
Selection.Insert Shift:=xlDown
Espero que ajude.
Infelizmente não funcionou.
Algum colega sabe????
Algum colega sabe????
O seu é VB6 ou superior??
Qual o código que você já tem? Pode postar??
é que eu desenvolvi alguns relatórios no excel e fazia assim.
Aguardo notÃcias.
Qual o código que você já tem? Pode postar??
é que eu desenvolvi alguns relatórios no excel e fazia assim.
Aguardo notÃcias.
Reproduzir no VB6 e funcionou. Referenciou a biblioteca do excel??
Dim EXCELAPP As Excel.Application
Dim EXCELPASTA As New Excel.Workbook
Dim EXCELPLAN As New Excel.Worksheet
Set EXCELAPP = New Excel.Application
Set EXCELPASTA = EXCELAPP.Workbooks.Add
Set EXCELPLAN = EXCELPASTA.Sheets(1)
EXCELAPP.Visible = True
With EXCELPLAN
Rows(2).Select
With Selection
.Insert Shift:=xlDown
End With
End With
Espero que ajude. Se não, especifique melhor o problema.
Dim EXCELAPP As Excel.Application
Dim EXCELPASTA As New Excel.Workbook
Dim EXCELPLAN As New Excel.Worksheet
Set EXCELAPP = New Excel.Application
Set EXCELPASTA = EXCELAPP.Workbooks.Add
Set EXCELPLAN = EXCELPASTA.Sheets(1)
EXCELAPP.Visible = True
With EXCELPLAN
Rows(2).Select
With Selection
.Insert Shift:=xlDown
End With
End With
Espero que ajude. Se não, especifique melhor o problema.
Tópico encerrado , respostas não são mais permitidas