Inserimento Riga nella Posizione 1

martedì 16 ottobre 2012 - 12.42
Tag Elenco Tags  VB.NET

giucorn Profilo | Junior Member

Ciao a tutti, avrei la necessita di inserire nella prima riga una nuava di etichette.

Effettuo il seguente codice:
Dim path As String = Excel ' Path dove si trova il tuo file

Dim xlApp As Excel.Application ' Riferimento all'applicazione Excel
Dim xlBook As Excel.Workbook ' Riferimento al Workbook
Dim xlSheet As Excel.Worksheet ' Riferimento al Worksheet

Try

' Crei un'oggetto Applicazione Excel, assegnandola alla variabile che la identifica:
xlApp = CreateObject("Excel.Application")

' Ai riferimenti del workbook il il File Excel che vuoi aprire
xlBook = xlApp.Workbooks.Open(path)

xlBook = xlApp.Workbooks.Open(path) ' Apro il file

' Definisci il foglio di lavoro
xlSheet = xlBook.Worksheets(1)

xlSheet.Activate() ' Attiva il foglio di lavoro

' Completo il foglio excel

xlSheet.Cells(1, 1).Value = "A"
xlSheet.Cells(1, 2).Value = "B"
xlSheet.Cells(1, 3).Value = "C"

' ... ....

Catch ex As Exception
MessageBox.Show(ex.Message)

Finally
' Poi al momento di chiudere:
xlBook.Close(True) ' Chiudi il foglio di lavoro salvando (true) o non salvando (False)
xlApp.Quit() ' Chiudi l'applicazione excel

' Annienta le variabili utilizzate.
xlSheet = Nothing
xlBook = Nothing
xlApp = Nothing
End Try

Va tutto bene, l'unica cosa che non so fare ed inserire una riga nuova, infatti in questo caso sovrascrivo la riga1 esistente.

Grazie in anticipo per l'aiuto

Ciao

DomA Profilo | Expert

Guarda qui trovi il codice in vb.net, C# e JAVA

http://www.devdirect.com/all/asposecellsfornet_SOLN_00010031.aspx


-----------------------------------------------------------------------------------------------------
Ricorda che, accettare la risposta è un modo di ringraziare chi ci ha aiutato ed evidenziare che il problema è stato risolto.

http://www.infomidia.it

Domenico

giucorn Profilo | Junior Member

Ho inserito il seguente codice:

xlSheet.Cells.Insertrows(2, 10)

Dovrebbe far inserire la alla posizione 2 10 righe, ma mi da come errore
"Impossibile trovare il membro pubblico Insertrows nel tipo Range

Non sono un esperto del forum non sapevo come fare, adesso l'ho capito, in ritardo ma l'ho capito :-)

DomA Profilo | Expert

qundi hai risolto?

-----------------------------------------------------------------


Ricorda che, accettare la risposta è un modo di ringraziare chi ci ha aiutato ed evidenziare che il problema è stato risolto.

http://www.infomidia.it

Domenico

giucorn Profilo | Junior Member

No non ho risolto, mi da come errore:
"Impossibile trovare il membro pubblico Insertrows nel tipo Range


Aiuto................

DomA Profilo | Expert

Scusami solo adesso ho notato che quello richiede una libreria a pagamento.
Con una ricerca ho trovato questo codice (da testare):

per prima cosa importa il namespace

Imports Excel.xlDirection


Dim xlWorkSheet As Excel.Worksheet xlWorkSheet .Rows("5").select() xlWorkSheet .Range("5:5").Rows.Insert(xlDown)


-------------------------------------------------------------------------------------------------



Ricorda che, accettare la risposta è un modo di ringraziare chi ci ha aiutato ed evidenziare che il problema è stato risolto.

http://www.infomidia.it

Domenico

giucorn Profilo | Junior Member

Ho inserito il codice come mi hai detto però alla riga:

xlWorkSheet.Range("5:5").Rows.Insert(xldown)

mi da errore nome "xldown non dichiarato, come lo devo dichiarare?

giucorn Profilo | Junior Member

inserendo la funzione

xlWorkSheet .Range("5:5").Rows.Insert()

Funziona lo stesso.

Grazie tante...
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5