сохранение данных в текстовом поле для Excel в vb.net

Мне нужна помощь в сохранении введенных пользователем данных (текстовое поле) в файл excel. Файл excel должен быть создан на рабочем столе автоматически. Я могу добавить одно текстовое поле для Excel, но не несколько. Если возможно, вы можете дать код на возможность открыть тот же файл, когда щелкнут btnopen, спасибо!

мой код прямо сейчас для кнопки сохранения.

Private Sub btnSave_Click (отправитель As Object, e As EventArgs) Обрабатывает 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

Я думаю, вам нужно использовать поддерживаемую библиотеку для создания файла Excel, а не делать это с file.create, как и вы. Вы можете использовать библиотеку объектов Microsoft Excel 12.0 и добавить ссылку на папку bin или другую dll для работы с экземпляром Excel.

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

Вы можете увидеть его здесь – http://vb.net-informations.com/excel-2007/vb.net_excel_2007_create_file.htm

Добавьте сначала библиотеку объектов Microsoft Excel 12.0 через

Проект> Свойства> Ссылки> Добавить> COM> Библиотеки типов> Библиотека объектов Microsoft Excel 12.0

Добавьте функцию releaseObject (чтобы выпустить файл excel в приложении):

 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 

После добавления объявите необходимые переменные, чтобы управлять файлом excel проще:

  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 

Добавьте заголовки жирным шрифтом:

  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 

Затем откройте файл excel.

  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) 
  • Текстовое поле VBA на числовое значение
  • Автоматическое создание текстовых полей на основе количества строк
  • Форматирование текстовых полей в форме пользователя
  • Создание текстового поля для запуска формулы VBA
  • Excel VBA; UserForm, запуск одного фрагмента кода для разных значений TextBox
  • Excel VBA - Shapes Текстовое поле OnChange событие
  • Присоединение текстового поля к точке или строке на диаграмме в Excel / VBA
  • Удалить строку из текстового поля, форм и т. Д., Которые могут быть сгруппированы
  • Excel Noob Скопировать ячейку Excel в текстовое поле HTML
  • Текст текстового поля исчезает при вводе текста Excel VBA - часть 2
  • Очистка текстового поля при нажатии кнопки VBA
  • Давайте будем гением компьютера.