Excel не хочет открывать файл

@HARDCORE_FAN · Регистрация: 03.04.2011

Студворк — интернет-сервис помощи студентам

Вкратце суть проблемы:

Visual Basic
1
2
3
4
5
6
7
8
9
Sheets.Add
    Sheets("Лист1").Select
    Sheets("Лист1").Name = "Множественный выбор"
 
Directory = "D:\Результаты\"
 
f = Dir(Directory & "*.mht", 7)
Do While f <> ""
    Workbooks.Open Filename:=("" & f)

В папке результаты находятся файлы формата *.mht (веб документы) с заполненными экселевскими листами. Только вот беда в том, что доходя до строки Workbooks.Open Filename:=("" & f) выдает ошибку, говоря что открыть не может либо потому что их там нет, либо перемещены. Сам по себе ексель их открывает а программно не хочет. Может кто знает как это можно исправить!

P.S. Задумка в том, чтобы считывать определенные диапозоны ячеек с этих листов и копировать на новый (листов там может быть от 10 до 100, в ручную уж очень долго и нудно)

@Busine2009 · 14.04.2011, 16:42

HARDCORE_FAN,
а почему в 7 строке вашего кода 7?
Я в справке смотрел - там нет такого аргумента.

@HARDCORE_FAN · 14.04.2011, 16:46 **[ТС]**

Эта строка взята с книги, что там означает эта 7 понятия не имею. Вот цитата:
"Чтобы получить список, например, файлов Excel, используйте следующий оператор:
f = D i r ( D i r e c t o r y & " * . x l s " , 7)"

@Busine2009 · 14.04.2011, 16:50

HARDCORE_FAN,
Dir - возвращает только название файла. Я думаю, что надо указывать полный путь файла.

@HARDCORE_FAN · 14.04.2011, 17:01 **[ТС]**

Спасибо,ошибка ясна! Исправил: Workbooks.Open Filename:=("" & Directory & f)
Все открывает,все копирует!

@Busine2009 · 14.04.2011, 17:05

Сообщение от HARDCORE_FAN

"" &

это вроде не нужно.

Советую вам переделать 7 на то, что в справке есть.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	14.04.2011, 16:42
	HARDCORE_FAN, а почему в 7 строке вашего кода 7? Я в справке смотрел - там нет такого аргумента. 0

@HARDCORE_FAN 1 / 1 / 0 Регистрация: 03.04.2011 Сообщений: 14
	14.04.2011, 16:46 [ТС]
	Эта строка взята с книги, что там означает эта 7 понятия не имею. Вот цитата: "Чтобы получить список, например, файлов Excel, используйте следующий оператор: f = D i r ( D i r e c t o r y & " * . x l s " , 7)" 0

@Busine2009 2309 / 1541 / 115 Регистрация: 13.06.2009 Сообщений: 5,575
	14.04.2011, 16:50
	HARDCORE_FAN, Dir - возвращает только название файла. Я думаю, что надо указывать полный путь файла. 1

@HARDCORE_FAN 1 / 1 / 0 Регистрация: 03.04.2011 Сообщений: 14
	14.04.2011, 17:01 [ТС]
	Спасибо,ошибка ясна! Исправил: Workbooks.Open Filename:=("" & Directory & f) Все открывает,все копирует! 0