| Вопрос: Работа с файлами | Добавлено: 19.03.07 12:48 |
Автор вопроса:  Муся
|
|
Здравствуйте, у меня вот такая проблемка.
Есть тектовые файлы приблизительно такой структуры: имя Вася фамилия Васильев адрес Никакая ул.-1 телефон 1111 Нужно чтоб информация из этих файлов подгружалась в таблицу(имя,фамилия,адрес,телефон) путем указания в диалоговом окне пути к файлу из которого нужно добавить инфу. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  bi-lya Вопросов: 1 Ответов: 125 |
Профиль | Цитата | #1 | Добавлено: 19.03.07 13:36 |
Смотрите "Найденное в Excel и вписать в bat-файл?" в этом форуме от 17.1.07, это обратная задача вашей 
|
||
|
Номер ответа: 2 Автор ответа:  Alex ICQ: no Вопросов: 3 Ответов: 13 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 20.03.07 15:23 |
|
Это из моей програмки на VBA для вставки данных в документ Word из текстового файла
Public Sub Ss_Tab22() Dim ftxt As FileSystemObject 'Файловый Системный объект Dim f1 As File 'объект Файл Dim v As TextStream 'объект Текстовый поток Dim vper As Variant Dim pathtab As String Dim op As FileDialog '*** откроется диалоговое окно ***** Set op = Application.FileDialog(msoFileDialogFilePicker) '------- вызов окна для выбора текстового файла ------------ With op .Title = "Выбор файла" 'наименование окна .Filters.Add "Текстовый файл", "*.txt", 1 'отбор типов выбираемых файлов .FilterIndex = 1 .InitialView = msoFileDialogViewList If .Show = -1 Then 'если нажата кнопка "да", то For Each vper In .SelectedItems 'из имеющихся файлов pathtab = vper 'получаем путь выбранного файла Next Else End If End With Set op = Nothing '--------------------------------------------------------------------------- Set ftxt = New FileSystemObject Set f1 = ftxt.GetFile(pathtab) '("c:\Мои документы\Прил7.txt" - подставляем путь из диалога
Set v = f1.OpenAsTextStream(ForReading) ' открытие файла для чтения ... ... ... end Sub Для открытия файла можно использовать и другую функцию (мне удобнее читать файл как TextStream) |
||
Страница: 1 |