Я создала на форме 3 texbox-a (textbox1 и textbox2 я использую для ввода начального и конечного значения периода; texbox3 я думаю надо использовать для ввода n (1.....n) станций), один msflexgrid для создания таблицы.

Моя задача создать входную таблицу, с выше указанными параметрами, для ввода данных, затем сделать расчеты для каждой станции в отдельности и дать сумму и отправить все это в другую таблицу (msflexgrid) и полученную таблицу экспортировать в Excel.

А использовать базу не имеет смысла поскольку важен конечный результат excel-ой таблицы, а входная таблица должна быть пустой.

Наверное правильнее будет отправить Вам листинг того что я уже сделала и там будет все ясно:


Private Sub Command1_Click()
MsgBox "Введите данные"

With FlexGrid1
'добавляем новую колонку
.Cols = .Cols + 1
'переместить в нужную позицию
.ColPosition(.Cols - 1) = .col
End With
Call setheaders 'переписать заголовки
End Sub

Private Sub setheaders()
'формирование заголовков
Dim i As Integer

With FlexGrid1
For i = 0 To (Text2.Text - Text1.Text)
.col = i + 1
.row = 0
.Text = (Text1.Text + i) & "г"
Next i
End With
End Sub

Private Sub FlexGrid1_keypress(keyascii As Integer)
Select Case keyascii
Case vbKeyReturn
With FlexGrid1
If .col + 1 <= .col - 1 Then
.col = .col + 1
ElseIf .row + 1 <= .Rows - 1 Then
.row = .row + 1: .col = 0
Else
.row = 1: .col = 0
End If
End With

Case vbKeyBack
'удаляет предыдущий символ при нажатии клавиши Backspase
With FlexGrid1
If Trim(.Text) <> "" Then .Text = Mid(.Text, 1, Len(.Text) - 1)
End With
Case Is < 32
'не разрешает печатать непечатные символы
Case Else 'разрешает печатать все
With FlexGrid1
.Text = .Text & Chr(keyascii)
End With
End Select
End Sub

Private Sub FlexGrid1_keyup(keycode As Integer, shift As Integer)
Select Case keycode
Case vbKeyC And shift = 2 'ctrl+c
'копируем символы
Clipboard.Clear
Clipboard.SetText FlexGrid1.Text
keycode = 0
Case vbKeyC And shift = 2 'ctrl+v
'вставляем символы
FlexGrid1.Text = Clipboard.GetText
keycode = 0
Case vbKeyX And shift = 2 'сtrl+x
'вырезаем символы
Clipboard.Clear
Clipboard.SetText FlexGrid1.Text
FlexGrid1.Text = ""
keycode = 0
Case vbKeyDelete
'удаляем символы
FlexGrid1.Text = ""
End Select
End Sub

Private Sub Form_Load()
'задаем количество колонок и строк
FlexGrid1.Cols = 100
FlexGrid1.Rows = 1
FlexGrid1.row = 0
FlexGrid1.col = 1
FlexGrid1.AddItem "Нетопливная составляющая эксп.расх. для выработки эл.энергии"
FlexGrid1.AddItem "Непроизводственные расходы для выработки эл.энергии"
FlexGrid1.AddItem "Налоги и платежи, формирующиеся от реализации эл.энергии"
FlexGrid1.AddItem "Прибыль от реализации эл.энергии"

'задаем ширину и высоту (0,0)

FlexGrid1.ColWidth(0) = 5500
FlexGrid1.RowHeight(0) = 400
End Sub

как скажите:(