ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Открытие файла .TXT
8 сообщений из 8, страница 1 из 1
Открытие файла .TXT
    #34214258
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
У меня есть код открытия текстового файла
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
ChDir "C:\"
    Workbooks.OpenText Filename:= _
        "C:\PRICE.TXT", Origin:= 1251 , _
        StartRow:= 1 , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:=";", FieldInfo:=Array(Array( 1 ,  2  _
        ), Array( 2 ,  2 ), Array( 3 ,  2 ), Array( 4 ,  2 ), Array( 5 ,  2 ), Array( 6 ,  2 ), Array( 7 ,  2 ), Array( 8 ,  2 ), _
        Array( 9 ,  2 )), TrailingMinusNumbers:=True

Но мне нужно чтобы я сам смог указывать какой файл и где он лежит. Это что-то связано с

Код: plaintext
Application.Dialogs(xlDialogOpen).Show

но как прописать вместо C:\PRICE.TXT тот файл, который я выбрал?
...
Рейтинг: 0 / 0
20.12.2006, 18:21:19
| Ответить | Цитировать | Написать  
Открытие файла .TXT
    #34214294
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
http://www.sql.ru/forum/actualthread.aspx?tid=356147
...
Рейтинг: 0 / 0
20.12.2006, 18:30:35
| Ответить | Цитировать | Написать  
Открытие файла .TXT
    #34214338
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
vbapro http://www.sql.ru/forum/actualthread.aspx?tid=356147

Сделал вот так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim strok As String
fileToOpen = Application _
    .GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
End If
strok = Left(fileToOpen,  3 )
   ChDir "strok"
    Workbooks.OpenText Filename:= _
        "fileToOpen", Origin:= 1251 , _
        StartRow:= 1 , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
        ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
        , Space:=False, Other:=True, OtherChar:=";", FieldInfo:=Array(Array( 1 ,  2  _
        ), Array( 2 ,  2 ), Array( 3 ,  2 ), Array( 4 ,  2 ), Array( 5 ,  2 ), Array( 6 ,  2 ), Array( 7 ,  2 ), Array( 8 ,  2 ), _
        Array( 9 ,  2 )), TrailingMinusNumbers:=True


Но в строке
Код: plaintext
ChDir "strok"
выдает ошибку, говорит что папка не найдена
...
Рейтинг: 0 / 0
20.12.2006, 18:44:19
| Ответить | Цитировать | Написать  
Открытие файла .TXT
    #34214424
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
1) Почитай учебник что такое переменные
2) Не используй chdir без особой необходимости
3) Почитай учебник про абсолютные и относительные пути
...
Рейтинг: 0 / 0
20.12.2006, 19:21:56
| Ответить | Цитировать | Написать  
Открытие файла .TXT
    #34214466
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
White Owl1) Почитай учебник что такое переменные
2) Не используй chdir без особой необходимости
3) Почитай учебник про абсолютные и относительные пути



andMegaM
Но в строке
Код: plaintext
ChDir "strok"
выдает ошибку, говорит что папка не найдена

ошибка настолько явная и простая, что ты её не заметил: strok - это переменная, а не строка. здесь нужно писать просто
Код: plaintext
ChDir strok
...
Рейтинг: 0 / 0
20.12.2006, 19:42:05
| Ответить | Цитировать | Написать  
Открытие файла .TXT
    #34214489
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Всеравно не работает
...
Рейтинг: 0 / 0
20.12.2006, 19:55:56
| Ответить | Цитировать | Написать  
Открытие файла .TXT
    #34214497
andMegaM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
andMegaM
Участник
Извеняюсь Все работает. vbapro огромное спасибо
...
Рейтинг: 0 / 0
20.12.2006, 19:58:41
| Ответить | Цитировать | Написать  
Открытие файла .TXT
    #34214505
vbapro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vbapro
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub aa()
Dim strok As String
Dim fileToOpen As String
    
    fileToOpen = Application.GetOpenFilename("Text Files (*.txt), *.txt")
    
    If fileToOpen <> "False" Then
        Workbooks.OpenText Filename:= _
            fileToOpen, Origin:= 1251 , _
            StartRow:= 1 , DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
            ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
            , Space:=False, Other:=True, OtherChar:=";", FieldInfo:=Array(Array( 1 ,  2  _
            ), Array( 2 ,  2 ), Array( 3 ,  2 ), Array( 4 ,  2 ), Array( 5 ,  2 ), Array( 6 ,  2 ), Array( 7 ,  2 ), Array( 8 ,  2 ), _
            Array( 9 ,  2 )), TrailingMinusNumbers:=True
    End If

End Sub
...
Рейтинг: 0 / 0
20.12.2006, 20:03:52
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Открытие файла .TXT
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=34214258&tid=2183737]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 32ms
get tp. blocked users:
 1ms
others: 235ms
total:  360ms
созд. / загр.: 360ms
x
x
Закрыть


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