Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Загрузка файла пачки оплат банка в Excel - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка файла пачки оплат банка в Excel (Макросы/Sub)
Загрузка файла пачки оплат банка в Excel
TorvaldGot Дата: Четверг, 01.10.2015, 14:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте!!! Столкнулся с задачей: Имеется текстовый файл пачки оплат(файл прилагаю) - его необходимо загрузить в программно ексель. Т.е. в листе ексель размещается кнопка, по нажатию на которую открывается диалоговое окно, где пользователь сам выбирает нужный ему текстовый файл оплат - нажимает выбрать, далее файл загружается на тот лист где находится кнопка вот так(результат прилагаю). Не откажите пожалуйста в помощи, или направьте на путь истинный! Заранее огромное спасибо!
К сообщению приложен файл: 7677594.txt (0.5 Kb) · 9454619.xlsx (9.5 Kb)
 
Ответить
СообщениеЗдравствуйте!!! Столкнулся с задачей: Имеется текстовый файл пачки оплат(файл прилагаю) - его необходимо загрузить в программно ексель. Т.е. в листе ексель размещается кнопка, по нажатию на которую открывается диалоговое окно, где пользователь сам выбирает нужный ему текстовый файл оплат - нажимает выбрать, далее файл загружается на тот лист где находится кнопка вот так(результат прилагаю). Не откажите пожалуйста в помощи, или направьте на путь истинный! Заранее огромное спасибо!
Автор - TorvaldGot
Дата добавления - 01.10.2015 в 14:52
KSV Дата: Четверг, 01.10.2015, 18:14 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 770
Репутация: 255 ±
Замечаний: 0% ±

Excel 2013
Здравствуйте!
Так? [vba]
Код
Private Sub OpenFile()
     Dim f$
     f = Application.GetOpenFilename("Файлы пачек,*.txt", 0, "Выберите файл пачки")
     If f = "False" Then Exit Sub
     Workbooks.OpenText f, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 2)), Local:=True
     With ActiveSheet
         .Range("B1", .Cells.SpecialCells(xlCellTypeLastCell)).Columns.AutoFit
     End With
End Sub
[/vba]
К сообщению приложен файл: 9454619.xlsm (14.6 Kb)

KSV.VBA@gmail.com
Яндекс.Деньги: 410011921213333
 
Ответить
СообщениеЗдравствуйте!
Так? [vba]
Код
Private Sub OpenFile()
     Dim f$
     f = Application.GetOpenFilename("Файлы пачек,*.txt", 0, "Выберите файл пачки")
     If f = "False" Then Exit Sub
     Workbooks.OpenText f, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 2)), Local:=True
     With ActiveSheet
         .Range("B1", .Cells.SpecialCells(xlCellTypeLastCell)).Columns.AutoFit
     End With
End Sub
[/vba]
Автор - KSV
Дата добавления - 01.10.2015 в 18:14
TorvaldGot Дата: Пятница, 02.10.2015, 08:33 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Спасибо! Да так. Только еще один вопрос: а как реализовать чтобы скрпит при выборе файла вставлял сам файл на тот же лист где находится кнопка?
 
Ответить
СообщениеСпасибо! Да так. Только еще один вопрос: а как реализовать чтобы скрпит при выборе файла вставлял сам файл на тот же лист где находится кнопка?
Автор - TorvaldGot
Дата добавления - 02.10.2015 в 08:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Загрузка файла пачки оплат банка в Excel (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!