Bella

Привет

Хорошо, постараюсь максимально описать эту задачу.
Из складской программы, написанной нашими программерами, для меня генерится txt-файл из двух столбцов (название позиции и цена), мне нужно это запихнуть в Excel, в определенный шаблон прайс-листа. Помогите...

@[TUES]ZandR

Это немного не тот пример, но переделай чуть-чуть, сейчас времени нет.
Здесь тоже пишется инфа из текстового файла в лист Exel. Переделай на свой лад, это просто.

Private Sub LoadToExcel()
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Dim objWorksheet As Excel.Worksheet
Dim i, j As Integer
Dim StrFile(0 To 61) As String
'до скольки строк надо сам сделаешь
'или используй гибкий массив

'считываем в массив все свои записи - умеешь
'по другому сделай сам, просто думать неохота

Open 'c:Источник.txt' For Input As #1
Do While Not EOF(1)
Line Input #1, StrFile(i)
i = i + 1
Loop
Close #1

'Запускаем Excel
Set objExcel = GetObject('', 'excel.application')

'Создаём Workbook из готового бланка
Set objWorkbook = objExcel.Workbooks.Open('c:MyFile.xls')

'Выключаем сообщения, шоб не мешали ежли что
objExcel.DisplayAlerts = False

'Активизируем страницу
Set objWorksheet = ActiveSheet

'загрузка инфо в ячейки
'ячейка А1 будет(1,1) А2 (2,1) и т.д.
For j = 0 To i
objWorksheet.Cells(j + 1, 1) = StrFile(j)
Next

'сохраняем и закрываем
objWorkbook.Close True, 'c:MyFile.xls'

'Включаем сообщения
'Если закрывать Excel, то необязательно
'objExcel.DisplayAlerts = True

'Set objWorksheet = Nothing
'Set objWorkbook = Nothing
'Set objExcel = Nothing

objExcel.Quit

MsgBox 'Загрузка данных в Excel завершена'
End Sub

0

@[TUES]ZandR

Да, если время у тебя ждёт, опиши конкретней: имя файла, который генерится, а лучше кинь его мне на мыло, вышлю код.

ZandR

0

Bella

Попробую сама, если не выйдет, то обязательно спрошу. Спасибо огромное.