VPF::Экспорт данных - Форум программистов

daNick

Дата 6.2.2007, 14:42 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.8.2006
Где: Казахстан, Астана

Репутация: нет
Всего: нет

Как отправить в файл Excel данные (например, какой-то лог)? Желательно отправлять в определенные ячейки. Допустим функция экспорта должна иметь параметры: имя файла, координаты ячейки и значение этой самой ячейки.

--------------------

Долго не кончать - преимущество мужчины, а не оратора.Я так много читал о вреде курения, что решил бросить... читать.(с) Сергей Довлатов

Akina

Дата 6.2.2007, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Открыть требуемый файл, используя Excel.Application, выбрать требуемый лист, записАть в требуемую ячейку данные.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

daNick

Дата 8.2.2007, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.8.2006
Где: Казахстан, Астана

Репутация: нет
Всего: нет

Не можешь привести пример? Я около года не юзал ВБ, кроме того ни разу до этого не сталкивался с использовнаием MSOffice. Поэтому в этих делах я не очень smile

--------------------

Akina

Дата 8.2.2007, 18:28 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Шерстим справку aka MSDN - там есть примеры. Я тоже так бы делал, если бы МНЕ было нужно.
PS. Точно знаю - инфы из MSDN достаточно.

--------------------

ruslan_rx

Дата 15.2.2007, 15:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.11.2006
Где: Уфа

Репутация: нет
Всего: нет

daNick, если тебе надо экспортировать какие то ячейки из Екселя в отдельный фаил (тоже ексель) могу предложить следующее...

Код



Option Explicit
Dim i As Integer, j As Integer, t As String, X(10)

Sub Export() 

For j = 1 To 10
    X(j) = Cells(i, j)
Next j

Workbooks.Add
ActiveSheet.Name = "Sent_Data"
    
    For j = 1 To 10
     Cells(i, j) = X(j)
    Next j
    
ActiveWorkbook.SaveAs Filename:="C:\sent\Data.xls", FileFormat:=xlNormal, _
    Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
    CreateBackup:=False
ActiveWindow.Close

End Sub
Sub inport()
Workbooks.Open Filename:="C:\sent\Data.xls"
Workbooks("Data.xls").Worksheets("Sent_Data").Select

    For j = 1 To 10
     X(j) = Cells(i, j)
    Next j

Workbooks("Data.xls").Close
Kill "c:\sent\Data.xls" ' удаляем загруженный фаил

Worksheets("Sheet1").Select  'выделяем страничку куда данные вставляются
For j = 1 To 10
     Cells(i, j) = X(j)
Next j

End Sub

i, j это номер строки и номер столбца

Надеюсь это то что тебе и нужно было!

daNick

Дата 20.2.2007, 11:50 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 114
Регистрация: 12.8.2006
Где: Казахстан, Астана

Репутация: нет
Всего: нет

Всем спасибо, я разобрался со всем, что мне нужно. Тема закрыта)))))))

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »