Type mismatch (error 13) при записи файла в папку

@saleman · Регистрация: 27.01.2016

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

Здравствуйте, уважаемые формучане!
Помогите разобраться, сам в VBA на уровне интуиции
При записи файла в папку, которая указывается выбором из ComboBox, выскакивает type mismatch (error 13) код с ошибкой

Visual Basic
1
        If CreateObject("Scripting.FileSystemObject").FolderExists("F:\Folder\Folder2" & ComboBox1.Value & "" & name_folder(0)) Then

Раньше макрос работал нормально, что могло случиться не представляю

@Hugo121 · 16.02.2017, 21:29

Что в name_folder(0)?

@saleman · 16.02.2017, 22:17 **[ТС]**

Folder папка на диске Fб в ней папка - Folder2, туда должен записываться файл

Добавлено через 1 минуту
к папке Folder2 присваивается имя из ComboBox1

Добавлено через 1 минуту
& name_folder(0) я так понимаю так же приклеивается уже к тому, что присвоилось из ComboBox1

Добавлено через 5 минут
так наверное нагляднее

Visual Basic
1
  If CreateObject("Scripting.FileSystemObject").FolderExists("D:\WHOLESALE\Главная_папка\Подчиненная_папка" & ComboBox1.Value & "" & name_folder(0)) Then ' Ошибка 13

@Hugo121 · 16.02.2017, 22:59

Я вижу что приклеивается, я не вижу что приклеивается!
Так понятнее?

Раз там выше непонятно спросил...

@saleman · 16.02.2017, 23:19 **[ТС]**

Похоже это :-)

Visual Basic
1
 name_folder = Split(TextBox1, "-")

Добавлено через 1 минуту
а в TextBox1 на форме, выводятся числовые данные

@snipe · 17.02.2017, 04:24

а где слеш между ComboBox1.Value и name_folder(0)
или зачем тогда вот это

Visual Basic
1
& "" &

@Hugo121 · 17.02.2017, 09:40

Про слэши я тоже видел, но это не должно влиять на FolderExists() - ну не найдёт такого каталога, ну и всё, ошибки быть не должно.

Добавлено через 6 минут
А слэши может форум съел? Проверю:

Visual Basic
1
& "" &

Точно, ест...

@saleman · 17.02.2017, 11:01 **[ТС]**

Ребята, я не совсем понял, что делать то? Уточняю на всякий случай, так как вычитал, что подобная ошибка может возникать при пересчете текстовых данных в числовые: установка опций создания и присваивание имени папки для сохранения файла и формирование имени сохраняемого файла, выполняется из userform, где в имя файла и папки ComboBox1 - текстовые данные + TextBox1 -числа... Как преодолеть, кто подскажет? В VBA профан полный, а разработчик канул в лету)

@Hugo121 · 17.02.2017, 11:11

Если к числу прибавить текст - будет ошибка.
А если конкатенировать (кто это слово придумал... руки оторвать

) - не будет!

Visual Basic
1
2
3
4
5
Sub tt()
s = 123
x = s & "werwr" 'нет ошибки
x = s + "werwr" 'ошибка!
End Sub

@saleman · 17.02.2017, 11:11 **[ТС]**

при наведении мышкой на name_folder = type mismatch, при выделении и наведении = Empty.

@saleman · 17.02.2017, 11:13 **[ТС]**

не пойму я)) как мне применить что?

@Hugo121 · 17.02.2017, 11:13

Не пропустите ответ выше

Добавлено через 35 секунд
Чтоб увидеть как применить - нужен файл.

@saleman · 17.02.2017, 11:17 **[ТС]**

Тут надо не один файл... там целая система и как выдрать кусок, что бы передать...

@Hugo121 · 17.02.2017, 11:22

Чтоб наладить эту одну строку - нужн всего лишь файл с этим комбобоксом и всё. Даже каталога такого может не быть

Ну и конечно нужна эта строка кода...

@saleman · 17.02.2017, 11:24 **[ТС]**

макросы в формах, если их модули, пойдет?

@Hugo121 · 17.02.2017, 11:30

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

@saleman · 17.02.2017, 13:13 **[ТС]**

я да же не знаю как сделать... там так все взаимосвязанно, всю надстройку выслать не могу, сами понимаете... а если выдрать кусок, так он же нефункционален будет...

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

@Hugo121 · 17.02.2017, 13:50

Я ещё часов 6-7 на работе, поэтому пас... Даже с форума файлы с макросами и в архивах недоступны...

@saleman · 17.02.2017, 14:21 **[ТС]**

да мне и не горит собственно... можно и завтра, если что...

@snipe · 17.02.2017, 15:50

файл нужен....
так будем как слепые котята тыкаться

Новые блоги и статьи Все статьи Все блоги /
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	16.02.2017, 21:29
	Что в name_folder(0)? 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	16.02.2017, 22:59
	Я вижу что приклеивается, я не вижу что приклеивается! Так понятнее? Раз там выше непонятно спросил... 0

@saleman 0 / 0 / 0 Регистрация: 27.01.2016 Сообщений: 15
	17.02.2017, 11:01 [ТС]
	Ребята, я не совсем понял, что делать то? Уточняю на всякий случай, так как вычитал, что подобная ошибка может возникать при пересчете текстовых данных в числовые: установка опций создания и присваивание имени папки для сохранения файла и формирование имени сохраняемого файла, выполняется из userform, где в имя файла и папки ComboBox1 - текстовые данные + TextBox1 -числа... Как преодолеть, кто подскажет? В VBA профан полный, а разработчик канул в лету) 0

@saleman 0 / 0 / 0 Регистрация: 27.01.2016 Сообщений: 15
	17.02.2017, 11:11 [ТС]
	при наведении мышкой на name_folder = type mismatch, при выделении и наведении = Empty. 0

@saleman 0 / 0 / 0 Регистрация: 27.01.2016 Сообщений: 15
	17.02.2017, 11:13 [ТС]
	не пойму я)) как мне применить что? 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	17.02.2017, 11:13
	Не пропустите ответ выше Добавлено через 35 секунд Чтоб увидеть как применить - нужен файл. 0

@saleman 0 / 0 / 0 Регистрация: 27.01.2016 Сообщений: 15
	17.02.2017, 11:17 [ТС]
	Тут надо не один файл... там целая система и как выдрать кусок, что бы передать... 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	17.02.2017, 11:22
	Чтоб наладить эту одну строку - нужн всего лишь файл с этим комбобоксом и всё. Даже каталога такого может не быть Ну и конечно нужна эта строка кода... 0

@saleman 0 / 0 / 0 Регистрация: 27.01.2016 Сообщений: 15
	17.02.2017, 11:24 [ТС]
	макросы в формах, если их модули, пойдет? 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	17.02.2017, 11:30
	Скопируйте в пустой файл модуль этой формы с комбобоксом, вычистите лишнее чтоб не было других ошибок из-за отсутсвия всего остального. Правда я файл всё равно сейчас посмотреть не смогу, но я ведь тут не один живу, кто-нибудь подключится. И файл в архив. 0

@saleman 0 / 0 / 0 Регистрация: 27.01.2016 Сообщений: 15
	17.02.2017, 13:13 [ТС]
	я да же не знаю как сделать... там так все взаимосвязанно, всю надстройку выслать не могу, сами понимаете... а если выдрать кусок, так он же нефункционален будет... Добавлено через 1 минуту может как договоримся отладить по тайм вьюверу? я конечно же оплачу труд, совершенно не вопрос... так возможно? 0

@Hugo121 6997 / 2895 / 555 Регистрация: 19.10.2012 Сообщений: 8,803
	17.02.2017, 13:50
	Я ещё часов 6-7 на работе, поэтому пас... Даже с форума файлы с макросами и в архивах недоступны... 0

@saleman 0 / 0 / 0 Регистрация: 27.01.2016 Сообщений: 15
	17.02.2017, 14:21 [ТС]
	да мне и не горит собственно... можно и завтра, если что... 0

@snipe 4089 / 1469 / 401 Регистрация: 07.08.2013 Сообщений: 3,670
	17.02.2017, 15:50
	файл нужен.... так будем как слепые котята тыкаться 0