Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

footboyedit

Guardar XML em Excel

Mensagens Recomendadas

footboyedit

boas, estou a fazer um programa para guardar tags XML em Excel. Na primeira vez resulta só que na segunda pede para substituir ficheiro Excel. Como faço para adicionar no mesmo ficheiro em vez de substituir? Obrigado :)

Dim xlApp As Excel.Application
	Dim xlWorkBook As Excel.Workbook
	Dim xlWorkSheet As Excel.Worksheet
	Dim misValue As Object = System.Reflection.Missing.Value

	Dim ds As New DataSet
	Dim xmlFile As XmlReader
	Dim i, j As Integer

	xlApp = New Excel.ApplicationClass
	xlWorkBook = xlApp.Workbooks.Add(misValue)
	xlWorkSheet = xlWorkBook.Sheets("sheet1")

	xmlFile = XmlReader.Create("C:\qwerty.xml", New XmlReaderSettings())
	ds.ReadXml(xmlFile)

	For i = 0 To ds.Tables(0).Rows.Count - 1
		For j = 0 To ds.Tables(0).Columns.Count - 1
			xlWorkSheet.Cells(i + 1, j + 1) = ds.Tables(1).Rows(i).Item(j)
		Next
	Next

	xlWorkSheet.SaveAs("C:\qwerty.xls")
	xlWorkBook.Close()
	xlApp.Quit()

	releaseObject(xlApp)
	releaseObject(xlWorkBook)
	releaseObject(xlWorkSheet)

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
tiago.f

Oi, em vez de criares um novo workbook:

xlWorkBook = xlApp.Workbooks.Add(misValue)
Tens que abrir o existente:
xlWorkBook  = Workbooks.Open("C:\querty.xls")

Valida tb se existe claro, senão tens mesmo que o criar

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
footboyedit

Oi, em vez de criares um novo workbook:

xlWorkBook = xlApp.Workbooks.Add(misValue)
Tens que abrir o existente:
xlWorkBook  = Workbooks.Open("C:\querty.xls")

Valida tb se existe claro, senão tens mesmo que o criar

obrigado, fiz isso e agora dá erro dizendo que o qwerty.xls é só de leitura

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.