Сохранить изменения из DataGridView в Excel - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Есть datagrid,туда выводится файл excel, как сделать так чтобы при изменении значения клетки в datagrid изменения сохранялись в тот же файл?
Код формы с датагрид:
Листинг программы 
  1.  Public dt As New DataTable
  2.     Public tab(30, 1) As Decimal
  3.     Public aaa As Integer
  4.     Private Sub ИсходныеДанные_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  5.         aaa = 7
  6.         Dim bbb1 = Главная.bbb
  7.         Dim j As Integer = 0
  8.         Dim a1, b1 As Decimal
  9.         Dim EA As Object    'EA - Excel Application (Excel-Приложение)
  10.         EA = CreateObject("Excel.Application")
  11.         Dim sPath As String = Application.StartupPath 'Открыть Excel
  12.         Dim sFile As String = sPath + "\t.xlsx"    'Полный путь к файлу
  13.         Dim r = dt.NewRow()
  14.         '_________________________
  15.         EA.SheetsInNewWorkbook = 1
  16.         EA.Workbooks.Add(sFile)
  17.         'EA.Visible = True
  18.         '_____________________Добавление данных в DataGrid
  19.         dt.Columns.Add("Показатели")
  20.         dt.Columns.Add("Усл. обозначения")
  21.         dt.Columns.Add("Единицы измерения")
  22.         dt.Columns.Add("Базовый вариант")
  23.         dt.Columns.Add("Проектируемый вариант")
  24.  
  25.         r("Показатели") = EA.Range("A3").Value
  26.         r("Усл. обозначения") = EA.Range("B3").Value
  27.         r("Единицы измерения") = EA.Range("C3").Value
  28.         r("Базовый вариант") = EA.Range("D3").Value
  29.         r("Проектируемый вариант") = EA.Range("E3").Value
  30.         dt.Rows.Add(r)
  31.  
  32.         r = dt.NewRow()
  33.         j = j + 1
  34.         r("Показатели") = EA.Range("A4").Value
  35.         r("Усл. обозначения") = EA.Range("B4").Value
  36.         r("Единицы измерения") = EA.Range("C4").Value
  37.         r("Базовый вариант") = EA.Range("D4").Value
  38.         r("Проектируемый вариант") = EA.Range("E4").Value
  39.         dt.Rows.Add(r)
  40.  
  41.         r = dt.NewRow()
  42.         j = j + 1
  43.         r("Показатели") = EA.Range("A5").Value
  44.         r("Усл. обозначения") = EA.Range("B5").Value
  45.         r("Единицы измерения") = EA.Range("C5").Value
  46.         r("Базовый вариант") = EA.Range("D5").Value
  47.         r("Проектируемый вариант") = EA.Range("E5").Value
  48.         dt.Rows.Add(r)
  49.  
  50.         r = dt.NewRow()
  51.         j = j + 1
  52.         r("Показатели") = EA.Range("A6").Value
  53.         r("Усл. обозначения") = EA.Range("B6").Value
  54.         r("Единицы измерения") = EA.Range("C6").Value
  55.         r("Базовый вариант") = EA.Range("D6").Value
  56.         r("Проектируемый вариант") = EA.Range("E6").Value
  57.         dt.Rows.Add(r)
  58.  
  59.         r = dt.NewRow()
  60.         j = j + 1
  61.         r("Показатели") = EA.Range("A7").Value
  62.         r("Усл. обозначения") = EA.Range("B7").Value
  63.         r("Единицы измерения") = EA.Range("C7").Value
  64.         r("Базовый вариант") = EA.Range("D7").Value
  65.         r("Проектируемый вариант") = EA.Range("E7").Value
  66.         dt.Rows.Add(r)
  67.  
  68.         r = dt.NewRow()
  69.         j = j + 1
  70.         r("Показатели") = EA.Range("A8").Value
  71.         r("Усл. обозначения") = EA.Range("B8").Value
  72.         r("Единицы измерения") = EA.Range("C8").Value
  73.         r("Базовый вариант") = EA.Range("D8").Value
  74.         r("Проектируемый вариант") = EA.Range("E8").Value
  75.         dt.Rows.Add(r)
  76.  
  77.         r = dt.NewRow()
  78.         j = j + 1
  79.         r("Показатели") = EA.Range("A9").Value
  80.         r("Усл. обозначения") = EA.Range("B9").Value
  81.         r("Единицы измерения") = EA.Range("C9").Value
  82.         r("Базовый вариант") = EA.Range("D9").Value
  83.         r("Проектируемый вариант") = EA.Range("E9").Value
  84.         dt.Rows.Add(r)
  85.  
  86.         r = dt.NewRow()
  87.         j = j + 1
  88.         r("Показатели") = EA.Range("A10").Value
  89.         r("Усл. обозначения") = EA.Range("B10").Value
  90.         r("Единицы измерения") = EA.Range("C10").Value
  91.         r("Базовый вариант") = EA.Range("D10").Value
  92.         r("Проектируемый вариант") = EA.Range("E10").Value
  93.         dt.Rows.Add(r)
  94.  
  95.         r = dt.NewRow()
  96.         j = j + 1
  97.         r("Показатели") = EA.Range("A11").Value
  98.         r("Усл. обозначения") = EA.Range("B11").Value
  99.         r("Единицы измерения") = EA.Range("C11").Value
  100.         r("Базовый вариант") = EA.Range("D11").Value
  101.         r("Проектируемый вариант") = EA.Range("E11").Value
  102.         dt.Rows.Add(r)
  103.  
  104.         r = dt.NewRow()
  105.         j = j + 1
  106.         r("Показатели") = EA.Range("A12").Value
  107.         r("Усл. обозначения") = EA.Range("B12").Value
  108.         r("Единицы измерения") = EA.Range("C12").Value
  109.         r("Базовый вариант") = EA.Range("D12").Value
  110.         r("Проектируемый вариант") = EA.Range("E12").Value
  111.         dt.Rows.Add(r)
  112.  
  113.         r = dt.NewRow()
  114.         j = j + 1
  115.         r("Показатели") = EA.Range("A13").Value
  116.         r("Усл. обозначения") = EA.Range("B13").Value
  117.         r("Единицы измерения") = EA.Range("C13").Value
  118.         r("Базовый вариант") = EA.Range("D13").Value
  119.         r("Проектируемый вариант") = EA.Range("E13").Value
  120.         dt.Rows.Add(r)
  121.  
  122.         r = dt.NewRow()
  123.         j = j + 1
  124.         r("Показатели") = EA.Range("A14").Value
  125.         r("Усл. обозначения") = EA.Range("B14").Value
  126.         r("Единицы измерения") = EA.Range("C14").Value
  127.         r("Базовый вариант") = EA.Range("D14").Value
  128.         r("Проектируемый вариант") = EA.Range("E14").Value
  129.         dt.Rows.Add(r)
  130.  
  131.         r = dt.NewRow()
  132.         j = j + 1
  133.         r("Показатели") = EA.Range("A15").Value
  134.         r("Усл. обозначения") = EA.Range("B15").Value
  135.         r("Единицы измерения") = EA.Range("C15").Value
  136.         r("Базовый вариант") = EA.Range("D15").Value
  137.         r("Проектируемый вариант") = EA.Range("E15").Value
  138.         dt.Rows.Add(r)
  139.  
  140.         r = dt.NewRow()
  141.         j = j + 1
  142.         r("Показатели") = EA.Range("A16").Value
  143.         r("Усл. обозначения") = EA.Range("B16").Value
  144.         r("Единицы измерения") = EA.Range("C16").Value
  145.         r("Базовый вариант") = EA.Range("D16").Value
  146.         r("Проектируемый вариант") = EA.Range("E16").Value
  147.         dt.Rows.Add(r)
  148.  
  149.         r = dt.NewRow()
  150.         j = j + 1
  151.         r("Показатели") = EA.Range("A17").Value
  152.         r("Усл. обозначения") = EA.Range("B17").Value
  153.         r("Единицы измерения") = EA.Range("C17").Value
  154.         r("Базовый вариант") = EA.Range("D17").Value
  155.         r("Проектируемый вариант") = EA.Range("E17").Value
  156.         dt.Rows.Add(r)
  157.  
  158.         r = dt.NewRow()
  159.         j = j + 1
  160.         r("Показатели") = EA.Range("A18").Value
  161.         r("Усл. обозначения") = EA.Range("B18").Value
  162.         r("Единицы измерения") = EA.Range("C18").Value
  163.         r("Базовый вариант") = EA.Range("D18").Value
  164.         r("Проектируемый вариант") = EA.Range("E18").Value
  165.         dt.Rows.Add(r)
  166.  
  167.         r = dt.NewRow()
  168.         j = j + 1
  169.         r("Показатели") = EA.Range("A19").Value
  170.         r("Усл. обозначения") = EA.Range("B19").Value
  171.         r("Единицы измерения") = EA.Range("C19").Value
  172.         r("Базовый вариант") = EA.Range("D19").Value
  173.         r("Проектируемый вариант") = EA.Range("E19").Value
  174.         dt.Rows.Add(r)
  175.  
  176.         r = dt.NewRow()
  177.         j = j + 1
  178.         r("Показатели") = EA.Range("A20").Value
  179.         r("Усл. обозначения") = EA.Range("B20").Value
  180.         r("Единицы измерения") = EA.Range("C20").Value
  181.         r("Базовый вариант") = EA.Range("D20").Value
  182.         r("Проектируемый вариант") = EA.Range("E20").Value
  183.         dt.Rows.Add(r)
  184.  
  185.         r = dt.NewRow()
  186.         j = j + 1
  187.         r("Показатели") = EA.Range("A21").Value
  188.         r("Усл. обозначения") = EA.Range("B21").Value
  189.         r("Единицы измерения") = EA.Range("C21").Value
  190.         r("Базовый вариант") = EA.Range("D21").Value
  191.         r("Проектируемый вариант") = EA.Range("E21").Value
  192.         dt.Rows.Add(r)
  193.  
  194.         r = dt.NewRow()
  195.         j = j + 1
  196.         r("Показатели") = EA.Range("A22").Value
  197.         r("Усл. обозначения") = EA.Range("B22").Value
  198.         r("Единицы измерения") = EA.Range("C22").Value
  199.         r("Базовый вариант") = EA.Range("D22").Value
  200.         r("Проектируемый вариант") = EA.Range("E22").Value
  201.         dt.Rows.Add(r)
  202.  
  203.         r = dt.NewRow()
  204.         j = j + 1
  205.         r("Показатели") = EA.Range("A23").Value
  206.         r("Усл. обозначения") = EA.Range("B23").Value
  207.         r("Единицы измерения") = EA.Range("C23").Value
  208.         r("Базовый вариант") = EA.Range("D23").Value
  209.         r("Проектируемый вариант") = EA.Range("E23").Value
  210.         dt.Rows.Add(r)
  211.  
  212.         r = dt.NewRow()
  213.         j = j + 1
  214.         r("Показатели") = EA.Range("A24").Value
  215.         r("Усл. обозначения") = EA.Range("B24").Value
  216.         r("Единицы измерения") = EA.Range("C24").Value
  217.         r("Базовый вариант") = EA.Range("D24").Value
  218.         r("Проектируемый вариант") = EA.Range("E24").Value
  219.         dt.Rows.Add(r)
  220.  
  221.         r = dt.NewRow()
  222.         j = j + 1
  223.         r("Показатели") = EA.Range("A25").Value
  224.         r("Усл. обозначения") = EA.Range("B25").Value
  225.         r("Единицы измерения") = EA.Range("C25").Value
  226.         r("Базовый вариант") = EA.Range("D25").Value
  227.         r("Проектируемый вариант") = EA.Range("E25").Value
  228.         dt.Rows.Add(r)
  229.  
  230.         r = dt.NewRow()
  231.         j = j + 1
  232.         r("Показатели") = EA.Range("A26").Value
  233.         r("Усл. обозначения") = EA.Range("B26").Value
  234.         r("Единицы измерения") = EA.Range("C26").Value
  235.         r("Базовый вариант") = EA.Range("D26").Value
  236.         r("Проектируемый вариант") = EA.Range("E26").Value
  237.         dt.Rows.Add(r)
  238.  
  239.         r = dt.NewRow()
  240.         j = j + 1
  241.         r("Показатели") = EA.Range("A27").Value
  242.         r("Усл. обозначения") = EA.Range("B27").Value
  243.         r("Единицы измерения") = EA.Range("C27").Value
  244.         r("Базовый вариант") = EA.Range("D27").Value
  245.         r("Проектируемый вариант") = EA.Range("E27").Value
  246.         dt.Rows.Add(r)
  247.  
  248.         r = dt.NewRow()
  249.         j = j + 1
  250.         r("Показатели") = EA.Range("A28").Value
  251.         r("Усл. обозначения") = EA.Range("B28").Value
  252.         r("Единицы измерения") = EA.Range("C28").Value
  253.         r("Базовый вариант") = EA.Range("D28").Value
  254.         r("Проектируемый вариант") = EA.Range("E28").Value
  255.         dt.Rows.Add(r)
  256.  
  257.         r = dt.NewRow()
  258.         j = j + 1
  259.         r("Показатели") = EA.Range("A29").Value
  260.         r("Усл. обозначения") = EA.Range("B29").Value
  261.         r("Единицы измерения") = EA.Range("C29").Value
  262.         r("Базовый вариант") = EA.Range("D29").Value
  263.         r("Проектируемый вариант") = EA.Range("E29").Value
  264.         dt.Rows.Add(r)
  265.  
  266.         r = dt.NewRow()
  267.         j = j + 1
  268.         r("Показатели") = "Количество выходных дней и праздничных в плановом периоде"
  269.         r("Усл. обозначения") = EA.Range("B30").Value
  270.         r("Единицы измерения") = EA.Range("C30").Value
  271.         r("Базовый вариант") = EA.Range("D30").Value
  272.         r("Проектируемый вариант") = EA.Range("E30").Value
  273.         dt.Rows.Add(r)
  274.  
  275.         r = dt.NewRow()
  276.         j = j + 1
  277.         r("Показатели") = EA.Range("A31").Value
  278.         r("Усл. обозначения") = EA.Range("B31").Value
  279.         r("Единицы измерения") = EA.Range("C31").Value
  280.         r("Базовый вариант") = EA.Range("D31").Value
  281.         r("Проектируемый вариант") = EA.Range("E31").Value
  282.         dt.Rows.Add(r)
  283.  
  284.         DataGridView1.DataSource = dt
  285.  
  286.         For i As Integer = 0 To 28
  287.             a1 = CDec(dt.Rows.Item(i).Item(3))
  288.             b1 = CDec(dt.Rows.Item(i).Item(4))
  289.             tab(i, 0) = a1
  290.             tab(i, 1) = b1
  291.  
  292.             'tab(i, 0) = CDec(dt.Rows.Item(i).Item(3))
  293.             'tab(i, 1) = CDec(dt.Rows.Item(i).Item(4))
  294.         Next i
  295.  
  296.         Главная.t = CDec(tab(0, 1))
  297.         Главная.zppr = CDec(tab(1, 1))
  298.         Главная.N = CDec(tab(3, 1))
  299.         Главная.a = CDec(tab(8, 1))
  300.         Главная.b = CDec(tab(24, 1))
  301.         Главная.k = CDec(tab(13, 1))
  302.         Главная.Bp2 = CDec(tab(12, 1))
  303.         Главная.Chr1 = CDec(tab(16, 1))
  304.         Главная.Chr2 = CDec(tab(17, 1))
  305.         Главная.Kb = CDec(tab(25, 1))
  306.         Главная.B1 = CDec(tab(10, 1))
  307.         Главная.Ch1 = CDec(tab(18, 1))
  308.         Главная.Dk = CDec(tab(26, 1))
  309.         Главная.Dvp = CDec(tab(27, 1))
  310.         Главная.P = CDec(tab(28, 1))
  311.         Главная.O1 = CDec(tab(4, 0))
  312.         Главная.D1 = CDec(tab(5, 0))
  313.         Главная.ChResh1 = CDec(tab(7, 0))
  314.         Главная.O2 = CDec(tab(4, 1))
  315.         Главная.D2 = CDec(tab(5, 1))
  316.         Главная.ChResh2 = CDec(tab(7, 1))
  317.         Главная.k = CDec(tab(6, 0))
  318. End Sub

Решение задачи: «Сохранить изменения из DataGridView в Excel»

textual
Листинг программы 
  1. Private EA As Object
  2. Private Sub Button6_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
  3.     EA = CreateObject("Excel.Application")
  4.     Dim sFile As String = Path.Combine(Application.StartupPath, "t.xls")
  5.     EA.Workbooks.open(sFile)
  6.     Dim sh As Object = EA.activesheet
  7.     DataGridView1.ColumnCount = 5
  8.     For i = 3 To 31
  9.         DataGridView1.Rows.Add(sh.cells(i, 1).value, sh.cells(i, 2).value) , sh.cells(i, 3).value, sh.cells(i, 4).value, sh.cells(i, 5).value)
  10.     Next
  11. End Sub

ИИ поможет Вам:

  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.636 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут