Модераторы: gambit, Partizan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> не получается открыть файл xls 
:(
    Опции темы
dobbro
Дата 24.8.2011, 13:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 12.1.2008

Репутация: нет
Всего: нет
Добрый день. Вот фрагменты кода
Код

Imports Microsoft.Office.Interop
...
Dim xl As Excel.Application
...
xl.Workbooks.Open("D:\Experiment_1.xls")

строка xl.Workbooks.Open("D:\Experiment_1.xls") дает ошибку, говорит, что путь не указан. Как мне книгу эту открыть?
PM MAIL   Вверх
Ky7m
Дата 25.8.2011, 01:55 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 8.4.2008

Репутация: нет
Всего: 2
Попробуйте вот так 
Код

xl.Workbooks.Open(@"D:\Experiment_1.xls"); // or xl.Workbooks.Open("D:\\Experiment_1.xls")
PM MAIL ICQ   Вверх
dobbro
Дата 25.8.2011, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 12.1.2008

Репутация: нет
Всего: нет
Не помогает
PM MAIL   Вверх
Ky7m
Дата 25.8.2011, 11:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 8.4.2008

Репутация: нет
Всего: 2
Нужно подробное описание ошибки.
Другие варианты с путями пробовали, например, положить рядом с исполняемым файлом, а в программе просто написать имя книги.
PM MAIL ICQ   Вверх
dobbro
Дата 25.8.2011, 13:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 12.1.2008

Репутация: нет
Всего: нет
Код

Imports Microsoft.Office.Interop
Imports System
Imports System.Data

Public Class Form1
    Dim artikul_number, name_of_tovar, collect_name, pol, price, sostav As Byte
    Dim xl As Excel.Application
    Dim fFile As Short
    Dim path As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        path = "D:\Price_1.xls"
        fFile = FreeFile()
        artikul_number = TextBox1.Text
        name_of_tovar = TextBox2.Text
        collect_name = TextBox3.Text
        pol = TextBox4.Text
        price = TextBox5.Text
        sostav = TextBox6.Text
        Dim artikul_last, artikul_current, artikul_next, color_last, color_current, color_next, size_last, size_current, size_next, Size, Color, tStr As String
        Dim i, j, k As Integer
        Dim str_length As Byte
        Dim aTemp()
        Dim Flag_of_record, Flag_Dubl_of_size, Flag_1_proxoda As Boolean
        xl.Application.Workbooks.Open(fFile, path)


Добавлено через 40 секунд
в каталог с прогой файл тоже пробовал выкладывать. не помогает.

Добавлено через 14 минут и 19 секунд
на 24 (последней тут) строке лает ошибку: "В экземпляре объекта не задана ссылка на объект".
PM MAIL   Вверх
Ky7m
Дата 25.8.2011, 21:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 89
Регистрация: 8.4.2008

Репутация: нет
Всего: 2
Так дело в том, что нигде не происходит инициализация объекта xl.
Правда я не силен в VB.NET, но вылетает у Вас не из-за того, что путь не правильный, а потому что не задана ссылка на класс, поэтому объект надо проинииализировать. 
PM MAIL ICQ   Вверх
dobbro
Дата 29.8.2011, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 24
Регистрация: 12.1.2008

Репутация: нет
Всего: нет
Цитата

Dim xl As Excel.Application

а этого не достаточно?
PM MAIL   Вверх
jonie
Дата 29.8.2011, 13:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 5613
Регистрация: 21.8.2005
Где: Владимир

Репутация: 5
Всего: 118
Цитата(dobbro @ 29.8.2011,  09:22)
Цитата

Dim xl As Excel.Application

а этого не достаточно?

как я знаю VB не достаточно. Надо далее писать
Код

 Set xl = New Excel.Application

И вообще: сначала давайте изучите VB.NET или пишите в соотвествующий раздел - тут про WinForms нислова нет.


--------------------
Что-то не поняли? -> Напейтесь до зеленых человечков... эта сверхцивилизация Вам поможет...
PM MAIL Jabber   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Прежде чем создать тему, посмотрите сюда:
mr.DUDA
THandle
Используйте теги [code=csharp][/code] для подсветки кода. Используйтe чекбокс "транслит" если у Вас нет русских шрифтов.
Что делать если Вам помогли, но отблагодарить помощника плюсом в репутацию Вы не можете(не хватает сообщений)? Пишите сюда, или отправляйте репорт. Поставим :)
Так же не забывайте отмечать свой вопрос решенным, если он таковым является :)

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, mr.DUDA, THandle.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Разработка Windows Forms | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0974 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.