Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 |

 

  Вопрос: Attempted to read or write protected Добавлено: 23.11.10 18:02  

Автор вопроса:  S@NCHO | ICQ: 487029423 
помогите,написал програмку на 7 всё прекрасно работает, пытаюсь запустить её на ХР выдает ошибку "Attempted to read or write protected..." на строчке oSheet.PrintOutEx()
в чем дело не могу понять((( видимо что то с несовместимостью библиотек

Ответить

  Ответы Всего ответов: 4  

Номер ответа: 1
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #1 Добавлено: 23.11.10 20:57
видимо. а с чем помочь то?

Ответить

Номер ответа: 2
Автор ответа:
 S@NCHO



ICQ: 487029423 

Вопросов: 1
Ответов: 2
  Профиль | | #2 Добавлено: 23.11.10 21:54
подскажите в чем может быть проблема и как её можно исправить !

Ответить

Номер ответа: 3
Автор ответа:
 AgentFire



ICQ: 192496851 

Вопросов: 75
Ответов: 3178
  Профиль | | #3 Добавлено: 23.11.10 22:28
вероятно в "чтении\записи в защищенную" ?...

Ответить

Номер ответа: 4
Автор ответа:
 S@NCHO



ICQ: 487029423 

Вопросов: 1
Ответов: 2
  Профиль | | #4 Добавлено: 24.11.10 16:43
  1.  
  2.             Dim oXL As Microsoft.Office.Interop.Excel.Application 'приложение
  3.             Dim oWB As Microsoft.Office.Interop.Excel.Workbook 'книга
  4.             Dim oSheet As Microsoft.Office.Interop.Excel.Worksheet 'лист
  5.             Dim oRng As Microsoft.Office.Interop.Excel.Range '
  6.  
  7.             
  8.  
  9.             oXL = CreateObject("Excel.Application")
  10.             oXL.Visible = False
  11.  
  12.             oWB = oXL.Workbooks.Add
  13.             oSheet = oWB.ActiveSheet
  14.  
  15.             oSheet.Cells(1, 2).Value = "Вариант №" & Form1.var.Text
  16.             oSheet.Cells(1, 4).Value = Form1.fio.Text
  17.             oSheet.Cells(1, 6).Value = Form1.grup.Text
  18.             oSheet.Cells(3, 4).Value = "Детерминированная модель оптимального размера заказа"
  19.  
  20.             With oSheet.Range("A5", "j13")
  21.                 .MergeCells = True '  обьединение ячеек
  22.                 .WrapText = True ' перенос слов
  23.                 .Value = "Производственному участку предприятия равномерно требуется в год V деталей определенного типа.Цена каждой детали $С. Детали поставляются партиями одинакового объема по цене $К за партию. Стоимость хранения одной детали на складе составляет 10% от цены детали в сутки. Учитывая, что производственный участок работает 250 дней в году, определить: -оптимальный размер заказа; - точку восстановления заказа; совокупные издержки; -оптимальное количество заказов в год." & Chr(13) & "Отсутствие деталей вызывает простой предприятия, что оценивается в $р в сутки за одну деталь. Вычислить: •оптимальный размер заказа; -оптимальный размер запаса; максимальный дефицит."
  24.             End With
  25.  
  26.             oSheet.Cells(18, 1).Value = "V"
  27.             oSheet.Cells(18, 2).Value = "C"
  28.             oSheet.Cells(18, 3).Value = "K"
  29.             oSheet.Cells(18, 4).Value = "D"
  30.             oSheet.Cells(18, 5).Value = "p"
  31.  
  32.             oSheet.Cells(19, 1).Value = Form1.V
  33.             oSheet.Cells(19, 2).Value = Form1.C
  34.             oSheet.Cells(19, 3).Value = Form1.K
  35.             oSheet.Cells(19, 4).Value = Form1.D
  36.             oSheet.Cells(19, 5).Value = Form1.p
  37.  
  38.             oSheet.Cells(22, 1).Value = "Найдем оптимальный размер заказа:"
  39.             oSheet.Cells(23, 1).Value = "Протяженность периода планирования"
  40.             oSheet.Cells(23, 5).Value = "Т=250"
  41.             oSheet.Cells(24, 1).Value = "издержки хранения за год:"
  42.             oSheet.Cells(25, 1).Value = "S=0.1*C="
  43.             oSheet.Cells(25, 2).Value = Form1.S
  44.             oSheet.Cells(27, 1).Value = "Оптимальный размер заказа"
  45.             oSheet.Cells(29, 3).Value = "Q*"
  46.             oSheet.Cells(29, 4).Value = Form1.Q
  47.             oSheet.Cells(32, 1).Value = "ЧИСЛО ДНЕЙ МЕЖДУ ЗАКАЗАМИ="
  48.             oSheet.Cells(32, 6).Value = Form1.r
  49.             oSheet.Cells(35, 1).Value = "Точка восстановления"
  50.             oSheet.Cells(35, 5).Value = Form1.h
  51.             oSheet.Cells(38, 1).Value = "СОВОКУПНЫЕ ИЗДЕРЖКИ"
  52.             oSheet.Cells(38, 6).Value = Form1.Cc
  53.             oSheet.Cells(41, 1).Value = "ОПТИМАЛЬНОЕ  КОЛИЧЕСТВО ЗАКАЗОВ В ГОД"
  54.             oSheet.Cells(43, 4).Value = Form1.N
  55.             oSheet.Cells(46, 1).Value = "При дефиците продукции"
  56.             oSheet.Cells(49, 4).Value = Form1.QQ
  57.             oSheet.Cells(52, 1).Value = "оптимальный размер запаса"
  58.             oSheet.Cells(54, 4).Value = Form1.QQQ
  59.             oSheet.Cells(57, 1).Value = "Максимальный дифицит:"
  60.             oSheet.Cells(59, 3).Value = Form1.Pm
  61.  
  62.             oSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath & "\temp\Q.JPG", _
  63.              Microsoft.Office.Core.MsoTriState.msoFalse, _
  64.              Microsoft.Office.Core.MsoTriState.msoCTrue, 5, 410, True, True)
  65.  
  66.             oSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath & "\temp\r.JPG", _
  67.              Microsoft.Office.Core.MsoTriState.msoFalse, _
  68.              Microsoft.Office.Core.MsoTriState.msoCTrue, 172, 460, True, True)
  69.  
  70.             oSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath & "\temp\h.JPG", _
  71.              Microsoft.Office.Core.MsoTriState.msoFalse, _
  72.              Microsoft.Office.Core.MsoTriState.msoCTrue, 118, 500, True, True)
  73.  
  74.             oSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath & "\temp\cc.JPG", _
  75.                          Microsoft.Office.Core.MsoTriState.msoFalse, _
  76.                          Microsoft.Office.Core.MsoTriState.msoCTrue, 140, 550, True, True)
  77.  
  78.             oSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath & "\temp\n.JPG", _
  79.                                     Microsoft.Office.Core.MsoTriState.msoFalse, _
  80.                                     Microsoft.Office.Core.MsoTriState.msoCTrue, 5, 625, True, True)
  81.  
  82.             oSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath & "\temp\QQ.JPG", _
  83.                                               Microsoft.Office.Core.MsoTriState.msoFalse, _
  84.                                               Microsoft.Office.Core.MsoTriState.msoCTrue, 5, 705, True, True)
  85.  
  86.             oSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath & "\temp\QQQ.JPG", _
  87.                                                           Microsoft.Office.Core.MsoTriState.msoFalse, _
  88.                                                           Microsoft.Office.Core.MsoTriState.msoCTrue, 5, 795, True, True)
  89.  
  90.  
  91.             oSheet.Shapes.AddPicture(My.Application.Info.DirectoryPath & "\temp\Pm.JPG", _
  92.                                                           Microsoft.Office.Core.MsoTriState.msoFalse, _
  93.                                                           Microsoft.Office.Core.MsoTriState.msoCTrue, 5, 870, True, True)
  94.  
  95.             oSheet.PageSetup.LeftMargin = True
  96.             oSheet.PageSetup.RightMargin = True
  97.             oSheet.PageSetup.BottomMargin = True
  98.             oSheet.PageSetup.TopMargin = True
  99.             oSheet.PageSetup.HeaderMargin = True
  100.             oSheet.PrintOutEx()
  101.         


oSheet.PrintOutEx() - вот она строчка зла

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам