vbbox.net excel için Textbox veri kaydetme

Question

Kullanıcı girişi verileri (metin kutusu) bir excel dosyasına kaydetme konusunda yardıma ihtiyacım var. Excel dosyası otomatik olarak masaüstünde oluşturulmalıdır. Birden fazla değil excel için bir metin kutusu ekleyebilirim. Mümkünse, btnopen tıklandığında aynı dosyayı açabilmeniz için kod verebilirsiniz, teşekkür ederim! Kodumu şimdi kaydet düğmesi için

.

Private Sub btnSave_Click (Nesne Olarak gönderen EventArgs olarak e) Sana desteklenen bir kütüphane kullanmaya ihtiyacım var btnSave.Click

SaveFileDialog.Filter = "CSV Files (*.csv*)|*.csv" 
    If SaveFileDialog.ShowDialog = Windows.Forms.DialogResult.OK _ 
    Then 
     My.Computer.FileSystem.WriteAllText _ 
     (SaveFileDialog.FileName, txtBMI.Text, True) 
    End If 


    table.Rows.Add(DateTimePicker1.Text, txtBMI.Text, txtHeight.Text, txtWeight.Text) 
    DataGridView1.DataSource = table 

End Sub 

1. http://i.stack.imgur.com/H73M8.jpg
2. http://i.stack.imgur.com/Rjtjw.jpg

Answer 1

kolları Excel dosyası oluşturmak ve bunu yaptığınız gibi file.create ile yapmamak. Microsoft Excel 12.0 Nesne Kitaplığı'nı kullanabilir ve bin klasörüne veya Excel örneğiyle çalışmanın diğer dll'lerine bir refernce ekleyebilirsiniz.

Dim xlApp As Excel.Application = New 
Microsoft.Office.Interop.Excel.Application() 

Uygulamayı buradan görebilirsiniz - http://vb.net-informations.com/excel-2007/vb.net_excel_2007_create_file.htm

Answer 2

Projesi aracılığıyla ilk Microsoft Excel 12.0 Nesne Kitaplığı Ekle> Özellikler> Referanslar> Add> COM> Kütüphaneler> Microsoft Excel 12.0 Nesne Kitaplığı yazın

releaseObject işlevini ekleyin (app excel dosyası bırakmak için):

Private Sub releaseObject(ByVal obj As Object) 
    Try 
     System.Runtime.InteropServices.Marshal.ReleaseComObject(obj) 
     obj = Nothing 
    Catch ex As Exception 
     obj = Nothing 
    Finally 
     GC.Collect() 
    End Try 
End Sub 

,

With shXL.Range("A1", "D1") 
       .Font.Bold = True 
    End With 

    shXL.Cells(1,1) = "Date" 
    shXL.Cells(1,2) = "Height" 
    shXL.Cells(1,3) = "Weight" 
    shXL.Cells(1,4) = "BMI" 
    shXL.Cells(2,1) = DateTimePicker1.Text 
    shXL.Cells(2,2) = txtHeight.Text 
    shXL.Cells(2,3) = txtWeight.Text 
    shXL.Cells(2,4) = txtBMI.Text 

İleri excel dosyasını açmak:

Dim appXL As Excel.Application 
    Dim wbXl As Excel.Workbook 
    Dim shXL As Excel.Worksheet 
    Dim raXL As Excel.Range 
    ' Start Excel and get Application object. 
    appXL = CreateObject("Excel.Application") 
    ' Add a new workbook. 
    wbXl = appXL.Workbooks.Add 
    shXL = wbXl.ActiveSheet 
    shXL.PageSetup.Orientation = Excel.XlPageOrientation.xlLandscape 
    shXL.PageSetup.PaperSize = Excel.XlPaperSize.xlPaperA3 
    appXL.Visible = False 

kalın metinle başlıkları ekleyin: o excel dosyası kontrol etmek kolay olması için

ekledikten sonra gerekli değişkenleri bildirmek.

appXL.Visible = True 
    appXL.UserControl = True 
    shXL.SaveAs("C:\Book1.xml") 
    raXL = Nothing 
    shXL = Nothing 
    wbXl = Nothing 
    appXL = Nothing 
    releaseObject(shXL) 
    releaseObject(wbXl) 
    releaseObject(appXL)