• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

André Parreira

Guardar dados no Excel

1 mensagem neste tópico

Boas

Eu queira fazer no vb.net passar dados de la introduzidos pelo utilizador  para uma folha de excel.

Ate aqui ja esta resolvido.

Agora eu queria poder criar uma nova folha de excel ou continuar uma ja feita, tb ja resolvi esta parte.

Aqui esta o codigo onde posso fazer um novo(grava apenas o DIR), mas la o utilizador escolhe onde quer guardar e o nome.

 Dim Path As New SaveFileDialog
        Path.FileName = "ExportDadosColgate"
        Path.Filter = "Excel 2007 (*.xlsx) |*.xlsx| Excel 2003 (*.xls) |*.xls"

        If Path.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            ' -----> TO DO : Criar Ficheiro Excel Qd Salvo Pela SaveFileDialog
            TextBox1.Text = Path.FileName
            criado = TextBox1.Text
        End If

Agora quero ir para outro form e la começar a introduzir mas nao consigo. vou meter o codigo que tenho para introduzir dados.

Imports System.Threading.Thread
Imports Excel
Imports Microsoft.Office.Interop.Excel
Imports System.Globalization

Public Class Form1
    Dim controlo As Integer = 3
    Dim controlo2 As Integer = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        If controlo2 = 0 Then




            
            excel = CreateObject("Excel.Application")

            If System.IO.File.Exists(fonte) Then

                Dim excelBook As Excel.Workbook = excel.Workbooks.Open(fonte)

            Else
                Dim excelBook As Excel.Workbook = CreateObject(criado)
            End If



            excel.Caption = "Dados Pessoais"

            excel.Range("A1").Value = "Nome"
            excel.Range("B1").Value = "Idade"
            excel.Range("C1").Value = "Morada"
            excel.Range("D1").Value = "Nacionalidade"
            controlo2 = 1
        End If
        controlo += 1

        excel.Range("A" & controlo).Value = TextBoxNome.Text
        excel.Range("B" & controlo).Value = TextBoxIdade.Text
        excel.Range("C" & controlo).Value = TextBoxmorada.Text
        excel.Range("D" & controlo).Value = TextBoxnacionalidade.Text


        'Next

        TextBoxNome.Text = ""
        TextBoxnacionalidade.Text = ""
        TextBoxIdade.Text = ""
        TextBoxmorada.Text = ""




    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click



        excel.Visible = True



    End Sub
End Class

Quero que com o DIR  numa variavel , ela saiba onde ja tem que gravar, e começe a incrementar.

Se souberem de alguns exemplos ou links tb agradecia sff.

Obrigado

André Parreira

EDIT: Titulo alterado

0

Partilhar esta mensagem


Link 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