powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / тип файла в "Save as ..." (для excel) ???
4 сообщений из 4, страница 1 из 1
тип файла в "Save as ..." (для excel) ???
    #32421480
d2e8k
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет!
Пытаюсь для Excel'я сделать макрос (на VB) для преобразования из dbf-файла в txt. Т.е. открываешь dbf-файл, вызываешь макрос и с его помощью сохраняешь ("Save as ..."), указывая название файла, и файл при этом сохраняется как "Текстовый (с разделителями табуляции)". Но я не знаю какой тип файла (FileFormat) указывать (а вернее, все перебрал - ни один не подходит).

Do
fName = Application.GetSaveAsFilename
Loop Until fName <> False
ActiveWorkbook.SaveAs FileName:=fName, _
FileFormat:=xlCSVMSDOS, CreateBackup:=False

Кто может подсказать как это сделать?
...
Рейтинг: 0 / 0
тип файла в "Save as ..." (для excel) ???
    #32422207
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
тип файла в "Save as ..." (для excel) ???
    #32423665
22
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
22
Гость
А чем не подходит? Скажем "FileFormat=xlTextMSDOS"?
Другой путь есть -- надо считать dbf файл в массив, а потом этот массив с помощью функции "Output" записать в текстовый файл. Или использовать для этих целей ADO.
...
Рейтинг: 0 / 0
тип файла в "Save as ..." (для excel) ???
    #32423919
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если сесть, почитать "здесь и вокруг" и подумать, как другие люди решают аналогичные (не очень сложные) задачи, то напрашивается решение:
Записать макрос макрорекордером и проанализировать созданный код.
Получим код:
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Макрос1()
    ChDir  "C:\BASE" 
    Workbooks.Open Filename:= "C:\BASE\sfa_dbf.DBF" 
    ActiveWorkbook.SaveAs Filename:= "C:\BASE\sfa_dbf.txt" , _
        FileFormat:=xlTextMSDOS, CreateBackup:=False
End Sub

Sapienti sat!
...
Рейтинг: 0 / 0
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / тип файла в "Save as ..." (для excel) ???
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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