VBNet - Форум - Помогите, ошибка!

Вопрос: Помогите, ошибка! Добавлено: 07.05.03 13:31

Автор вопроса: Willa

http://kolomn1.narod.ru/index.html
Как исправить?

Ответить

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

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

Павел

Администратор

ICQ: 326066673

Вопросов: 368
Ответов: 5968

Web-сайт: www.vbnet.ru
Профиль | | #1

Добавлено: 07.05.03 13:36

Это потому что у тебя нету прав на какое-то действие. Запусти в сеансе администратора... А вообще, на какой строке возникает эта ошибка? И вообще, код в студию!

Ответить

Номер ответа: 2
Автор ответа:

Willa

Вопросов: 16
Ответов: 18

Профиль | | #2

Добавлено: 07.05.03 14:43

Выскакивает, если выложить программку в сеть и запустить Если с bin запускать - то все в порядке.

А у администратора она вообще не запускается - сразу валится ))

Код загрузки программки - как раз тогда и выскакивает (только, думаю, что вряд ли он поможет

ExelApp = New Excel.Application()

ExelApp.Visible = False

Dim FileToCheck As String = "D:\Program Files\mark\mark.tel"

If Not File.Exists(FileToCheck) Then

ExelApp.Workbooks.Add(XlWBATemplate.xlWBATWorksheet)

myWB.Worksheets.Add(, myWB.Worksheets(1))

MkDir("D:\Program Files\mark")

myWB.SaveAs("D:\Program Files\mark\mark.tel")

End If

myWB = ExelApp.Workbooks.Open("D:\Program Files\mark\mark.tel")

myWS = myWB.Worksheets(1)

Dim t As String

Dim i As Integer

t = myWS.Range("a1").Value

i = 1

Do While t <> Nothing

lst_spisok.Items.Add(myWS.Range("A" & i).Value)

mass.Add(myWS.Range("B" & i).Value)

i = i + 1

t = myWS.Range("a" & i).Value

Loop

myWB.Close()

ExelApp.Quit()

Ответить

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

Павел

Администратор

ICQ: 326066673

Вопросов: 368
Ответов: 5968

Web-сайт: www.vbnet.ru
Профиль | | #3

Добавлено: 08.05.03 04:57

Ну дык чего ж ты хотел? Если ты с сервака запускаешь, то скорее всего, прав у тебя мало...

Я думаю, что ошибка из-за того, что ты пытаешься сохранить файл в директорию, которая тебе недоступна или создание директории, т.е. вот эти строчки:

MkDir("D:\Program Files\mark")

myWB.SaveAs("D:\Program Files\mark\mark.tel")

А в данном случае Excel запускается у клиента или на серваке?

Ответить

Номер ответа: 4
Автор ответа:

Willa

Вопросов: 16
Ответов: 18

Профиль | | #4

Добавлено: 08.05.03 09:18

Да тут дело не в сервере, наверное... С любого другого компутера прога тоже не запускается - просто валится и ничегоне пишет

Ответить

Номер ответа: 5
Автор ответа:

Willa

Вопросов: 16
Ответов: 18

Профиль | | #5

Добавлено: 08.05.03 09:30

Ну вот, вывалилась новая ошика:

http://kolomn1.narod.ru/photoalbum.html

Может, про это чего скажешь?

Ответить

Номер ответа: 6
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #6

Добавлено: 09.05.03 22:08

Сама ответишь

Ответить

Страница: 1 |