Здравствуйте!!! Столкнулся с задачей: Имеется текстовый файл пачки оплат(файл прилагаю) - его необходимо загрузить в программно ексель. Т.е. в листе ексель размещается кнопка, по нажатию на которую открывается диалоговое окно, где пользователь сам выбирает нужный ему текстовый файл оплат - нажимает выбрать, далее файл загружается на тот лист где находится кнопка вот так(результат прилагаю). Не откажите пожалуйста в помощи, или направьте на путь истинный! Заранее огромное спасибо!
Здравствуйте!!! Столкнулся с задачей: Имеется текстовый файл пачки оплат(файл прилагаю) - его необходимо загрузить в программно ексель. Т.е. в листе ексель размещается кнопка, по нажатию на которую открывается диалоговое окно, где пользователь сам выбирает нужный ему текстовый файл оплат - нажимает выбрать, далее файл загружается на тот лист где находится кнопка вот так(результат прилагаю). Не откажите пожалуйста в помощи, или направьте на путь истинный! Заранее огромное спасибо!TorvaldGot
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]
Здравствуйте! Так? [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
Спасибо! Да так. Только еще один вопрос: а как реализовать чтобы скрпит при выборе файла вставлял сам файл на тот же лист где находится кнопка?
Спасибо! Да так. Только еще один вопрос: а как реализовать чтобы скрпит при выборе файла вставлял сам файл на тот же лист где находится кнопка?TorvaldGot