ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Макрос сохраняет файл в виде *.txt.xls. Как сиправить?
7 сообщений из 7, страница 1 из 1
Макрос сохраняет файл в виде *.txt.xls. Как сиправить?
    #33605077
Tин
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Ты так и пишешь
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vkodor
Участник
ну и наплодил(а) же ты топиков
Сохранить макросом в Exel последовательно много открытых txt
...
Рейтинг: 0 / 0
16.03.2006, 13:46:10
| Ответить | Цитировать | Написать  
Макрос сохраняет файл в виде *.txt.xls. Как сиправить?
    #33605356
Фотография talgat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
talgat
Участник
Попробуй так
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
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=61&tid=2184172]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 49ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 200ms
total:  323ms
созд. / загр.: 323ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]