Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Открытие файла .TXT / 8 сообщений из 8, страница 1 из 1
20.12.2006, 18:21:19
    #34214258
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файла .TXT
У меня есть код открытия текстового файла
Код: 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:30:35
    #34214294
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файла .TXT
http://www.sql.ru/forum/actualthread.aspx?tid=356147
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2006, 18:44:19
    #34214338
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файла .TXT
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, 19:21:56
    #34214424
White Owl
White Owl
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файла .TXT
1) Почитай учебник что такое переменные
2) Не используй chdir без особой необходимости
3) Почитай учебник про абсолютные и относительные пути
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2006, 19:42:05
    #34214466
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файла .TXT
White Owl1) Почитай учебник что такое переменные
2) Не используй chdir без особой необходимости
3) Почитай учебник про абсолютные и относительные пути



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

ошибка настолько явная и простая, что ты её не заметил: strok - это переменная, а не строка. здесь нужно писать просто
Код: plaintext
ChDir strok
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2006, 19:55:56
    #34214489
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файла .TXT
Всеравно не работает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2006, 19:58:41
    #34214497
andMegaM
andMegaM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файла .TXT
Извеняюсь Все работает. vbapro огромное спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.12.2006, 20:03:52
    #34214505
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Открытие файла .TXT
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Открытие файла .TXT / 8 сообщений из 8, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 325ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2183737]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 48ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 26ms
get tp. blocked users:
 1ms
others: 221ms
total:  325ms
x
x
Закрыть


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