If Response = уЬУ es Then
GoTo NewOpen 'Переход на Открытие нужного файла
Else
Exit Sub
End If
End If
Else 'Отказались работать с открытой книгой
Exit Sub
End If
End If
EndSub
'3)_____________________________
_
Sub GetDataO 'Ввод данных из файла с исходными данными
Dim Sheet As Worksheet
Dim п, пп, ппп As Integer 'рабочийиндекс
Dim InvestJow, Dob_row As Integer 'строки с иходными данными
'число листов (ДАО) в книге данных
N_DAO = Workbooks(DataBook).Worksheets.Count
ReDim DAO(N_DAO) 'массив структур ДАО определили
Row= 1
n=О
For Each Sheet In Workbooks(DataBook).Worksheets
n=n+I
'ввод имен ДАО
DAO(n).NameDAO = Sheet.Name
Invest_row = Workbooks(DataBook).Worksheets(DAO(I).NameDAO).CelIs(28, 2).Value
ОоЬ Jow = Workbooks(DataBook).Worksheets(DAO(1 ).NameDAO).Cel1s(29, 2). Value
'Для следующего листа все со второго столбца опять
Column=2
mn=О
'Вычисление размерности по числу месторождений
Dо While_
Workbooks(DataBook).Worksheets(Sheet.Name).Cel1s(Row, Column).VaIue <> "" IfWorkbooks(DataBook).Worksheets(Sheet.Name).CelIs(Row, Column).Value <> _ Workbooks(DataBook).Worksheets(Sheet.Name).CelIs(Row, Column + 1 ).Value_ Тhеп
mn=mn+l
End If
Column = Соlиmn + 1
Loop
'Определение размерности по числу месторождений
ReDim DAO(n).Mestor(nn)
ДОАо(n).коlМеslог = nn
'Ввод имен месторождений и числа вариантов ивестир. и добычи
Column=2
nn=О
nnn =0
Do While_
Workbooks(DataBook).Worksheets(Sheet.Name).CelIs(Row, Column).Value <> ""
IfWorkbooks(OataBook).Worksheets(Sheet.Name).CelIs(Row, Column - 1).Value <> _
Workbooks(OataBook). W orksheets(Sheet.Name ).CelIs(Row, Column). Value _
Тhеn
nn=nn + 1
DAO(n).Mestor(nn). Name = Workbooks(DataBook). Worksheets(Sheet.Name ).CelIs(Row, Column). Value
DАО(п).Меstог(пп).коlVагt = 1
EndIf
'Определение числа вариантов для месторождения
If Workbooks(DataBook).Worksheets(Sheet.Name).Cells(Row, Column).Value = _ Workbooks(DataBook).Worksheets(Sheet.Name).Cells(Row, Соlиmn + l).Value_
Тhen
DАО(п).Меstог(пп).коlVагt = DАО(п).Меstor(пп).коlVаrt + 1
EndIf
Соlumn = Соlumn + 1
Loop
'Ввод вариантов инвестирования и добычи
Соlumn=2
nn= 1
nnn = 1
ReDim DAO(n ).Mestor( nn). Inv(DAO(n ).Mestor(nn ).Ко1Vart)
ReDim DAO(n ).Mestor(nn ).Dob(DAO(n ).Mestor(nn ).Ко1V art)
Do Whi!e_
Workbooks(DataBook).Worksheets(Sheet.Name).Cells(Row, Со!иmn).Value <> ""
DAO(n).Mestor(nn).Inv(nnn) = _
Workbooks(DataBook).Worksheets(Sheet.Name).Cells(Invest_row,Соlumn).Value DAO(n).Mestor(nn).Dob(nnn) = _
W orkbooks(DataBook). W orksheets(Sheet.Name). Cells(Dob Jow, Со! иmn ).Value
'Определение числа вариантов для месторождения
'!!!! Доработать строки - года для параметрического ввода
If Workbooks(DataBook). Worksheets(Sheet.Name ).Cells(Row, Соlиmn).Value = _ Workbooks(DataBook).Worksheets(Sheet.Name).Cells(Row, Соlиmn + l).Value_
Тhen
nn = nnn + 1
Else
nnn= 1
End If
If Workbooks(DataBook). Worksheets(Sheet.Name ).Cells(Row, Со!иmn).Value <> _ Workbooks(DataBook).Worksheets(Sheet.Name).Cells(Row, Со!иmn + 1).Value
Тhen
IfWorkbooks(DataBook).Worksheets(Sheet.Name).Cells(Row, Со!иmn + 1).Уа!ие <> "" _ Тhen
nn = nn + 1
ReDim DAO(n ).Mestor(nn). Inv(DAO(n ).Mestor(nn ).КоlУ art)
ReDim DAO(n ).Mestor(nn).Dob(DAO(n ).Mestor(nn). КоlУ art)
End If
End If
Соlumn = Column + 1
Loop
NextSheet
'Считывание параметров расчета
'Sredstva = Workbooks(DataBook).Worksheets(DAO(1 ).NameDAO).Cells(25, 2).Value
'Delta = Workbooks(DataBook).Worksheets(DA0(1).NameDAO).Cells(26, 2).Value
End Sub
[1] «Природный газ» Язев В.
[2] «Природный газ» Язев В.
[3]www. Gazforum.ru
[4] Журнал «Газоаый бизнес» январь-февраль 2006г.
[5] «Независимые производители и перспективы развития газовой отрасли России» В. Н. Баранов
[6] « Независимые производители и перспективы развития отрасли России» В. Н. Баранов
[7] « Независимые производители и перспективы развития газовой отрасли России» В.Н. Баранов
[8] « Независимые производители и перспективы развития газовой отрасли России» В. Н. Баранов
[9] Сборник докладов «Развитие российского рынка газа: ценообразование и перспективы биржевой торговли»
[10] Сборник докладов «Развитие российского рынка газа: ценообразование и перспективы биржевой торговли»
[11] Сборник докладов «Развитие российского рынка газа: ценообразование и перспективы биржевой торговли»
[12] Сборник докладов «Развитие российского рынка газа: ценообразование и перспективы биржевой торговли»
2 « Независимые производители и перспективы развития газовой отрасли России» В.Н. Баранов
[13] Сборник докдадов «Развитие российского рынка газа: ценообразование и перспективы биржевой торговли»
[14] Авдокушин Е.Ф. «Международные экономические отношения» Учебник-М,1998г.
[15] Киреев А. « Международная экономика - движение товаров и факторов производства» Часть первая, 2000
[16] Ермолов О.В., Мтловидов К.Н., Чугунов Л.С., Ремизов В.В. «Стратегия развития нефтегазовых компаний» 1998 г.