0 / 0 / 0
Регистрация: 10.11.2016
Сообщений: 201

Проблема с открытием файла excel

28.05.2020, 12:45. Показов 1876. Ответов 12

Студворк — интернет-сервис помощи студентам
Здравствуйте не получается открыть файл excel
Visual Basic
1
oExcel = GetObject("2ндфл.xls")
ошибку выдает в этой строке,
https://docs.microsoft.com/ru-... s.opentext
также пытался через workbook такая же ошибка файл сам находится в debug проекта
Вложения
Тип файла: rar ндфл.rar (113.1 Кб, 4 просмотров)
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
28.05.2020, 12:45
Ответы с готовыми решениями:

Проблема с открытием файла
Доброго времени! Есть код(агент) в котором получаю содержимое файла (NotesStream). Если этот агент вызываю другим агентом или по CORBA,...

проблема с открытием файла
Доброго времени суток! Есть документы. Все бы ничего, но... есть документы, которые не открываются, выдавая ошибку, что на форме...

Проблема с открытием mp3 файла
Здравствуйте товарищи программисты. Возникла маленькая проблемка. Имеется код для открытия и получения ID3 тегов mp3 файла: int Handle =...

12
 Аватар для ViterAlex
8950 / 4862 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
28.05.2020, 13:22
ну так имена не совпадают. В коде у тебя 2ндфл.xls, а файл называется 2ндфл.xlsx
0
2272 / 1589 / 399
Регистрация: 26.06.2017
Сообщений: 4,711
Записей в блоге: 1
28.05.2020, 13:22
Shamchik, читаем, пробуем сами.
0
0 / 0 / 0
Регистрация: 10.11.2016
Сообщений: 201
28.05.2020, 13:37  [ТС]
ViterAlex, насчет имени спасибо ,до этого проглядел,жалуется что не видит
0
 Аватар для ViterAlex
8950 / 4862 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
28.05.2020, 13:49
Shamchik, а, ну да. Это ж комовская обёртка, она не умеет разворачивать относительный путь.
VB.NET
1
2
Dim p As String = Path.Combine(Application.StartupPath, "2ндфл.xlsx")
oExcel = GetObject(p)
Но там у тебя дальше проблемы будут.
1
4708 / 3661 / 857
Регистрация: 02.02.2013
Сообщений: 3,518
Записей в блоге: 2
28.05.2020, 14:30
Цитата Сообщение от Shamchik Посмотреть сообщение
oExcel = GetObject("2ндфл.xls")
а что так уже можно?
Попытка реализовать позднее связывание (при уже загруженном Excel).
oExcel = GetObject("Excel.Application")
0
 Аватар для ViterAlex
8950 / 4862 / 1886
Регистрация: 11.02.2013
Сообщений: 10,246
28.05.2020, 14:54
Цитата Сообщение от ovva Посмотреть сообщение
а что так уже можно?
Да вроде всегда можно было. Shell сама найдёт CLSID и запустит приложение.
0
0 / 0 / 0
Регистрация: 10.11.2016
Сообщений: 201
28.05.2020, 19:57  [ТС]
Запись текста из TextBox в книгу Excel смотрел пример из этой темы,но все равно не могу отправить данные в ячейку ошибка происходит
http://www.vbnet.ru/forum/show.aspx?id=202672
и отсюда
0
4708 / 3661 / 857
Регистрация: 02.02.2013
Сообщений: 3,518
Записей в блоге: 2
28.05.2020, 22:13
Цитата Сообщение от Shamchik Посмотреть сообщение
не могу отправить данные в ячейку
Можно так
VB.NET
1
2
3
4
5
6
7
8
9
10
Try
    Dim Exc As Object = CreateObject("Excel.Application")
    Dim wb As Object = Exc.workbooks.open("C:\08\test1.xls")
    Exc.visible = True
    wb.activesheet.range("A1").value = 125 'так
    wb.activesheet.cells(2, 1).value = "test" 'или так
    Exc.ActiveWorkbook.SaveAs(NewFileName)
Catch ex As Exception
    MsgBox(ex.Message)
End Try
Вообще-то это не лучший вариант общения с Excel.
По поводу выгрузки Excel см. https://www.cyberforum.ru/post14381037.html
0
0 / 0 / 0
Регистрация: 10.11.2016
Сообщений: 201
29.05.2020, 14:18  [ТС]
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
 Try
            Dim oExcel As Object = CreateObject("Excel.Application")
            'Dim oSheet As Object = oExcel.workbooks.open("2ндфл.xlsx")
            Dim p As String = Path.Combine(Application.StartupPath, "2ндфл.xlsx")
 
            Dim oSheet As Object = oExcel.GetObject(p)
 
            oExcel.visible = True
            oSheet.activesheetRange("R48C1").Value = CDbl(TextBox1.Text)
            oSheet.activesheetRange("R48C10").Value = CDbl(TextBox2.Text)
            oSheet.activesheetRange("R48C28").Value = CDbl(TextBox3.Text)
            oSheet.activesheetRange("R48C37").Value = CDbl(TextBox4.Text)
            oSheet.activesheetRange("R48C56").Value = CDbl(TextBox5.Text)
            oSheet.activesheetRange("R48C65").Value = CDbl(TextBox6.Text)
            oSheet.activesheetRange("R48C85").Value = CDbl(TextBox7.Text)
            oSheet.activesheetRange("R48C94").Value = CDbl(TextBox8.Text)
 
            oSheet.activesheetRange("R50C70").Value = CDbl(TextBox9.Text)
            oSheet.activesheetRange("R50C82").Value = CDbl(TextBox10.Text)
            oSheet.activesheetRange("R50C87").Value = CDbl(TextBox11.Text)
            oSheet.activesheetRange("R50C92").Value = CDbl(TextBox12.Text)
            oSheet.activesheetRange("R50C109").Value = CDbl(TextBox13.Text)
 
 
            oSheet.activesheet.Range("R51C70").Value = CDbl(TextBox14.Text)
            oSheet.activesheet.Range("R51C82").Value = CDbl(TextBox15.Text)
            oSheet.activesheet.Range("R51C87").Value = CDbl(TextBox16.Text)
            oSheet.activesheet.Range("R51C92").Value = CDbl(TextBox17.Text)
            oSheet.activesheet.Range("R51C109").Value = CDbl(TextBox18.Text)
 
            oSheet.activesheet.Range("R55C32").Value = CDbl(TextBox19.Text)
            oSheet.activesheet.Range("R56C32").Value = CDbl(TextBox20.Text)
            oSheet.activesheet.Range("R57C32").Value = CDbl(TextBox21.Text)
            oSheet.activesheet.Range("R58C32").Value = CDbl(TextBox22.Text)
            oSheet.activesheet.Range("R55C92").Value = CDbl(TextBox23.Text)
            oSheet.activesheet.Range("R56C92").Value = CDbl(TextBox24.Text)
            oSheet.activesheet.Range("R57C92").Value = CDbl(TextBox25.Text)
            oSheet.activesheet.Range("R58C92").Value = CDbl(TextBox26.Text)
 
            oSheet.activesheet.Range("R60C67").Value = CDbl(TextBox27.Text)
            oSheet.activesheet.Range("R60C82").Value = CDbl(TextBox28.Text)
            oSheet.activesheet.Range("R60C87").Value = CDbl(TextBox29.Text)
            oSheet.activesheet.Range("R60C92").Value = CDbl(TextBox30.Text)
            oSheet.activesheet.Range("R60C109").Value = CDbl(TextBox31.Text)
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
у меня проблема,что считывать не могу в ячейку с текстбокса,попробовал сначала метод Ovva который предложил,но начинает жаловаться,что не найден файл,а если с getobject совместить,то не найден общий член getobhect,я понимаю что могу совмещать не совмещаемое из-за этого ошибки,из-за не знания и не опытности

Добавлено через 7 минут
Необработанное исключение типа "System.Runtime.InteropServices.COMExcep tion" в Microsoft.VisualBasic.dll

Дополнительные сведения: Исключение из HRESULT: 0x800A03EC
а обычное исключение срабатывает на передачи в ячейку
0
4708 / 3661 / 857
Регистрация: 02.02.2013
Сообщений: 3,518
Записей в блоге: 2
29.05.2020, 14:27
В строку 3 кода подставьте полный путь, определенный у вас в переменной "p"
Цитата Сообщение от Shamchik Посмотреть сообщение
понимаю что могу совмещать не совмещаемое
и не надо ничего совмещать
0
0 / 0 / 0
Регистрация: 10.11.2016
Сообщений: 201
29.05.2020, 14:46  [ТС]
ovva, он в дебаг как бы находиться,чтобы каждый раз не менять ,из-за этого и прописал так

Добавлено через 8 минут
msgbox выдал ошибку что передать не может текст HRESULT: 0x800A03EC,а файл запустил или
VB.NET
1
gc.collection
убрала ненужное

Добавлено через 4 минуты
а как правильно передавать из текстбокса ,вба
Visual Basic
1
textbox.value
так считывает для ячейки,а как в .net я не нашел по интернету и гугл дядя не подсказывает
0
4708 / 3661 / 857
Регистрация: 02.02.2013
Сообщений: 3,518
Записей в блоге: 2
29.05.2020, 15:15
Лучший ответ Сообщение было отмечено Shamchik как решение

Решение

Ничего не понял. Вот код загрузите его без изменений.
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Try
        Dim Exc As Object = CreateObject("Excel.Application")
        Dim wb As Object = Exc.workbooks.open(IO.Path.Combine(Application.StartupPath, "2ндфл.xlsx"))
        Exc.visible = True
        wb.activesheet.cells(48, 1).value = CDbl(TextBox1.Text)
        wb.activesheet.cells(48, 10).value = CDbl(TextBox2.Text)
        '...
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub
И еще, возможно у вас в памяти висят брошенные экземпляры Excel. Удалите их (например через "Диспетчер задач").
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
29.05.2020, 15:15
Помогаю со студенческими работами здесь

Проблема с открытием python файла
При запуске python файла через командную строку открывает приложение с кодом.

Проблема:с открытием файла в VB проге
Нужно чтобы при двойном клике на имени файла в проводнике запускалась моя прога и открывала этот файл.С открытием файла из самой проги...

Проблема с открытием текстового файла. Excel97 VBA
Приветсвую Вас! Не сталкивался ли кто с подобной проблемой: есть текстовый CSV файл с разделителями ';' в котором присутствуют дробные...

Проблема с открытием bat файла через код на С++
Доброго времени суток, есть код очень простенький суть его в том что в компиляторе VS 2017 он запускается и с помощью него должна...

Проблема с открытием файла для вывода текста в него.
ofstream offile; void royal_flush (); void straight_flush(); int main () { //махинации royal_flush (); }


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

Новые блоги и статьи
И решил я переделать этот ноут в машину для распределенных вычислений
Programma_Boinc 09.11.2025
И решил я переделать этот ноут в машину для распределенных вычислений Всем привет. А вот мой компьютер, переделанный из ноутбука. Был у меня ноут асус 2011 года. Со временем корпус превратился. . .
Мысли в слух
kumehtar 07.11.2025
Заметил среди людей, что по-настоящему верная дружба бывает между теми, с кем нечего делить.
Новая зверюга
volvo 07.11.2025
Подарок на Хеллоуин, и теперь у нас кроме Tuxedo Cat есть еще и щенок далматинца: Хочу еще Симбу взять, очень нравится. . .
Инференс ML моделей в Java: TensorFlow, DL4J и DJL
Javaican 05.11.2025
Python захватил мир машинного обучения - это факт. Но когда дело доходит до продакшена, ситуация не так однозначна. Помню проект в крупном банке три года назад: команда data science натренировала. . .
Mapped types (отображённые типы) в TypeScript
Reangularity 03.11.2025
Mapped types работают как конвейер - берут существующую структуру и производят новую по заданным правилам. Меняют модификаторы свойств, трансформируют значения, фильтруют ключи. Один раз описал. . .
Адаптивная случайность в Unity: динамические вероятности для улучшения игрового дизайна
GameUnited 02.11.2025
Мой знакомый геймдизайнер потерял двадцать процентов активной аудитории за неделю. А виновником оказался обычный генератор псевдослучайных чисел. Казалось бы - добавил в карточную игру случайное. . .
Протоколы в Python
py-thonny 31.10.2025
Традиционная утиная типизация работает просто: попробовал вызвать метод, получилось - отлично, не получилось - упал с ошибкой в рантайме. Протоколы добавляют сюда проверку на этапе статического. . .
C++26: Read-copy-update (RCU)
bytestream 30.10.2025
Прошло почти двадцать лет с тех пор, как производители процессоров отказались от гонки мегагерц и перешли на многоядерность. И знаете что? Мы до сих пор спотыкаемся о те же грабли. Каждый раз, когда. . .
Изображения webp на старых x32 ОС Windows XP и Windows 7
Argus19 30.10.2025
Изображения webp на старых x32 ОС Windows XP и Windows 7 Чтобы решить задачу, использовал интернет: поисковики Google и Yandex, а также подсказки Deep Seek. Как оказалось, чтобы создать. . .
Passkey в ASP.NET Core identity
stackOverflow 29.10.2025
Пароли мертвы. Нет, серьезно - я повторяю это уже лет пять, но теперь впервые за это время чувствую, что это не просто красивые слова. В . NET 10 команда Microsoft внедрила поддержку Passkey прямо в. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru