Top.Mail.Ru
Ответы

VB 6. Сохранение экселевского файла

Дополнен

xlwbook.SaveAs ("C:\papka" + Text15.Text + Text16.Text + Text17.Text + ".xls")

Не сохраняет в нужную директорию (имена директорий содержатся в текстбоксах) , что не правильно?

Дополнен

содержимое текстбоксов
1
2
3
Если б знал как правильно слеши воткнуть уже бы запилил.

По дате
По рейтингу
Аватар пользователя
Новичок
12лет

Сделай так:
xlwbook.SaveAs ("C:\papka\" & Text15.Text " & "\" & Text16.Text & "\" & Text17.Text & ".xls")

Однако Axel, успел написать быстрее и подробнее.. .

:))))

Аватар пользователя
Ученик
12лет

xlwbook.SaveAs ("C:\papka" + Text15.Text + Text16.Text + Text17.Text + ".xls")
Если в текстбоксах значения "1", "2" и "3", соответственно сохранение пойдёт в файл C:\papka123.xls - сейчас у тебя, вероятно, в корне диска лежит файл.
Если в текстовых полях имена папок, надо было добавлять слэши. Также, для конкатенации строковых значений лучше использовать амперсанд:
xlwbook.SaveAs ("C:\papka\" & Text15.Text & "\" & Text16.Text & "\" & Text17.Text + ".xls")

Если есть какие-то сомнения в корректности выполняемых операций, проверяй входные параметры, которые передаются:

Dim xlPath
xlPath = "C:\papka\" & Text15.Text & "\" & Text16.Text & "\" & Text17.Text + ".xls"
MsgBox xlPath
xlwbook.SaveAs (xlPath)

В этом случае будет всплывающее окно с текстом "C:\papka\1\2\3.xls", соответственно, туда файл и будет потом сохранён.
Только учти, что при отсутствии папок "1" и "2" могут быть проблемы, функция сохранения может не иметь встроенного средства создания структуры папок.

Аватар пользователя
Гений
12лет

А слешей хватает? Написал бы ты еще и содержимое текстбоксов - больше было бы толку...