Макрос сохраняет файл в виде *.txt.xls. Как сиправить? / Microsoft Office

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос сохраняет файл в виде *.txt.xls. Как сиправить?

7 сообщений из 7, страница 1 из 1

Макрос сохраняет файл в виде *.txt.xls. Как сиправить?

#33605077

Tин

Гость

Здравствуйте Всем!
Вот такой код:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Dim Myfile
Dim myPath As String
Myfile = Dir("C:\Самотлор\Карточки организаций\*.txt")
        Do While Myfile <> ""
        myPath = "C:\Самотлор\Карточки организаций\" & Myfile
            Workbooks.OpenText Filename:=myPath, _
                Origin:= 1251 , StartRow:= 1 , DataType:=xlDelimited, TextQualifier:= _
.........

ActiveWorkbook.SaveAs Filename:=myPath & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

В результате получаются файлы вида *.txt.xls :(

В чем ошибка? Помогите, плиз, разобраться!

Спасибо заранее.

...

Рейтинг:

0 / 0

16.03.2006, 13:06:52

| Ответить | Цитировать | Написать

Макрос сохраняет файл в виде *.txt.xls. Как сиправить?

#33605224

talgat

Участник

Откуда: Tallinn Estonia

Сообщения: 571

Рейтинг: 0 / 0

Ты так и пишешь
Myfile = Dir("C:\Самотлор\Карточки организаций\*.txt")
.....
myPath = "C:\Самотлор\Карточки организаций\" & Myfile
.....
ActiveWorkbook.SaveAs Filename:=myPath & ".xls",

...

Рейтинг:

0 / 0

16.03.2006, 13:38:03

| Ответить | Цитировать | Написать

Макрос сохраняет файл в виде *.txt.xls. Как сиправить?

#33605233

Тин

Гость

А как написАть, чтоб открывались только txt,
а сохранялись с такими же именами, но в xls?

...

Рейтинг:

0 / 0

16.03.2006, 13:40:30

| Ответить | Цитировать | Написать

Макрос сохраняет файл в виде *.txt.xls. Как сиправить?

#33605264

vkodor

Участник

Откуда: Moscow

Сообщения: 1 809

Рейтинг: 0 / 0

ну и наплодил(а) же ты топиков
Сохранить макросом в Exel последовательно много открытых txt

...

Рейтинг:

0 / 0

16.03.2006, 13:46:10

| Ответить | Цитировать | Написать

Макрос сохраняет файл в виде *.txt.xls. Как сиправить?

#33605356

talgat

Участник

Откуда: Tallinn Estonia

Сообщения: 571

Рейтинг: 0 / 0

Попробуй так
Dim Myfile
Dim myPath As String
Myfile = Dir("C:\Самотлор\Карточки организаций\")
Do While Myfile <> ""
myPath = "C:\Самотлор\Карточки организаций\" & Myfile & "*.txt"
Workbooks.OpenText Filename:=myPath, _
Origin:=1251, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
.........

ActiveWorkbook.SaveAs Filename:=myPath & ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

...

Рейтинг:

0 / 0

16.03.2006, 14:05:14

| Ответить | Цитировать | Написать

Макрос сохраняет файл в виде *.txt.xls. Как сиправить?

#33605421

Тин

Гость

Спасибо БОЛЬШУЩЕЕ!!!!

Счас попробую в работе!

...

Рейтинг:

0 / 0

16.03.2006, 14:16:14

| Ответить | Цитировать | Написать

Макрос сохраняет файл в виде *.txt.xls. Как сиправить?

#34039970

SirFisher

Гость

В качестве примера:

Dim SaveAsName As String
Dim strDocName As String
Dim intPos As Integer

' Убираем расширение и берем имя файла
strDocName = ActiveWorkbook.Name
intPos = InStrRev(strDocName, ".")
strDocName = Left(strDocName, intPos - 1)
strDocName = strDocName & ".txt"

'присваиваем имя вместе с путем к файлу
SaveAsName = ActiveWorkbook.Path & Application.PathSeparator & strDocName

...

Рейтинг:

0 / 0

08.10.2006, 08:05:50

| Ответить | Цитировать | Написать

7 сообщений из 7, страница 1 из 1

Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос сохраняет файл в виде *.txt.xls. Как сиправить?

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=61&msg=33605421&tid=2184172]:	0ms
get settings:	4ms
get forum list:	11ms
check forum access:	2ms
check topic access:	2ms
track hit:	32ms
get topic data:	5ms
get forum data:	1ms
get page messages:	25ms
get tp. blocked users:	1ms
others:	192ms

total:	275ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы