VBNet - Форум - Как мне данные из VB перекинуть в Excell или Wo...

Вопрос: Как мне данные из VB перекинуть в Excell или Wo... Добавлено: 22.08.03 08:41

Автор вопроса: Kolek | ICQ: 6223500

У меня есть массив данных который создается из текстового файла (*.txt) и мне обработанный массив нужно засунуть в экселевский файл. Или наоборот из экселевского файла информацию закинуть в VB!!!!!!!!

Ответить

Ответы Всего ответов: 11

Номер ответа: 1
Автор ответа:

Neptus

ICQ: 96166052

Вопросов: 12
Ответов: 110

Web-сайт: neptus.fatal.ru
Профиль | | #1

Добавлено: 22.08.03 09:13

Используй хитрый макрос. Если полистать help к VBA то там найдется все что тебе понадобится. Если хочеш могу поискать пример, кдето он есть правда сдоровый зараза.

Ответить

Номер ответа: 2
Автор ответа:

Алексей

black admin

ICQ: 261779681

Вопросов: 87
Ответов: 633

Web-сайт: aleksey.nemiro.ru
Профиль | | #2

Добавлено: 22.08.03 09:23

http://vbnet.ru/chat/ >>>

9:08:29 Kolek: Быстрей самому дойти до решения чем у жлобов спрашивать!

9:08:04 Kolek: ЯСно... тут тухло......
Пошел я !!!

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

http://vbnet.ru/online/rules.asp >>>

1. Запрещается использование в сообщениях нецензурных выражений, оскорблений в адрес других участников форума.

Нехорошо, однако...

Ответить

Номер ответа: 3
Автор ответа:

Алексей

black admin

ICQ: 261779681

Вопросов: 87
Ответов: 633

Web-сайт: aleksey.nemiro.ru
Профиль | | #3

Добавлено: 22.08.03 09:25

Kolek [+]

Ответить

Номер ответа: 4
Автор ответа:

Kolek

ICQ: 6223500

Вопросов: 5
Ответов: 2

Профиль | | #4

Добавлено: 22.08.03 09:50

Какой еще макрос???

Есть прога, написанная на Visual Basic 6.0 и от туда мне нужно создать экселевский файл и пихнуть туда всю информацию.

Ответить

Номер ответа: 5
Автор ответа:

Neptus

ICQ: 96166052

Вопросов: 12
Ответов: 110

Web-сайт: neptus.fatal.ru
Профиль | | #5

Добавлено: 22.08.03 11:09

Про прогу ты не говорил. Тогда используй DDE или OLE.

Ответить

Номер ответа: 6
Автор ответа:

Kolek

ICQ: 6223500

Вопросов: 5
Ответов: 2

Профиль | | #6

Добавлено: 22.08.03 11:49

DDE & OLE - это контролы????

И именно как с помощью них это сделать?

Там свойство или действие???

Хотя бы строчку, хотя бы намек!!!

Ответить

Номер ответа: 7 Автор ответа: Neptus ICQ: 96166052 Вопросов: 12 Ответов: 110	Web-сайт: neptus.fatal.ru Профиль \| \| #7	Добавлено: 22.08.03 11:54
	Самый полный совет тебе даст MSDN, и даже примеры даст побольше и поточнее моих. Если нет на компе посмотри на www.microsoft.com. Есле лениво туда лезть я тебе подборку состряпую, только ты напиши что конкретно тебя интересует, ибо строчкой кода здесь необойдешся. Ответить

Номер ответа: 8 Автор ответа: dedtolya Вопросов: 0 Ответов: 39	Профиль \| \| #8	Добавлено: 22.08.03 21:58
	Sub GetTextFileData(strSQL As String, strFolder As String, rngTargetCell As Range) ' example: GetTextFileData "SELECT * FROM filename.txt", _ "C:\FolderName", Range("A3") ' example: GetTextFileData "SELECT * FROM filename.txt WHERE fieldname = 'criteria'", _ "C:\FolderName", Range("A3") Dim cn As ADODB.Connection, rs As ADODB.Recordset, f As Integer If rngTargetCell Is Nothing Then Exit Sub Set cn = New ADODB.Connection On Error Resume Next cn.Open "Driver={Microsoft Text Driver (.txt; .csv)};" & _ "Dbq=" & strFolder & ";" & _ "Extensions=asc,csv,tab,txt;" On Error GoTo 0 If cn.State <> adStateOpen Then Exit Sub Set rs = New ADODB.Recordset On Error Resume Next rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText On Error GoTo 0 If rs.State <> adStateOpen Then cn.Close Set cn = Nothing Exit Sub End If ' the field headings For f = 0 To rs.Fields.Count - 1 rngTargetCell.Offset(0, f).Formula = rs.Fields(f).Name Next f rngTargetCell.Offset(1, 0).CopyFromRecordset rs rs.Close Set rs = Nothing cn.Close Set cn = Nothing End Sub Ответить

Номер ответа: 9
Автор ответа:

dedtolya

Вопросов: 0
Ответов: 39

Профиль | | #9

Добавлено: 22.08.03 21:59

Из Excel это примерно так.

Sub GetTextFileData(strSQL As String, strFolder As String, rngTargetCell As Range)
' example: GetTextFileData "SELECT * FROM filename.txt", _
              "C:\FolderName", Range("A3")
' example: GetTextFileData "SELECT * FROM filename.txt WHERE fieldname = 'criteria'", _
              "C:\FolderName", Range("A3")
Dim cn As ADODB.Connection, rs As ADODB.Recordset, f As Integer
    If rngTargetCell Is Nothing Then Exit Sub
    Set cn = New ADODB.Connection
    On Error Resume Next
    cn.Open "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
        "Dbq=" & strFolder & ";" & _
        "Extensions=asc,csv,tab,txt;"
    On Error GoTo 0
    If cn.State <> adStateOpen Then Exit Sub
    Set rs = New ADODB.Recordset
    On Error Resume Next
    rs.Open strSQL, cn, adOpenForwardOnly, adLockReadOnly, adCmdText
    On Error GoTo 0
    If rs.State <> adStateOpen Then
        cn.Close
        Set cn = Nothing
        Exit Sub
    End If
    ' the field headings
    For f = 0 To rs.Fields.Count - 1
        rngTargetCell.Offset(0, f).Formula = rs.Fields(f).Name
    Next f
    rngTargetCell.Offset(1, 0).CopyFromRecordset rs
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub