Com порт в excel 2010

Знаток

Здравствуйте,уважаемые форумчане.
Мне необходимо передать в таблицу 255 строк(Начало конец строки, разделители и 5 параметров) из своего устройства.
Пользовался
Advanced Serial Data Logger ( платный) и настроить его непросто,тем кто не в теме. Деньги небольшие и последнее является определяющим.
Последнее меня тревожит более всего, заказчик очень своеобразен.
Куплю ему, а потом и вопли с выносом мозга.
Вопрос кто виноват понятно, что делать?
Задач у меня немеряно и советы по изучению в лучшем случае к сведению.
Работа свалилась внезапно вне расписания.
Цифру вопроса можно как-то озвучить, чтобы принять решение.

Оценка

Новичок

Оценка

Знаток

Помню давно тоже интересовался подобной задачей. Только необходимость отпала, так и не реализовал. И помню что гугль вполне может помочь в Вашем вопросе.

Оценка

Новичок

Самым простым путем, ИМХО, который я уже реализовывал не один раз, будет запись всех принимаемых данных в текстовом формате ( с небольшой ообработкой) в файл VB-скрипта. По окончанию приема всех данных этот файл запускается на выполнение через wscript.exe и вуа-ля, таблица готова. Примеры подобных скриптов можно без труда нарыть в Интернете или могу скинуть образец. Если надо — пишите

Оценка

Знаток

Оценка

Новичок

Оценка

Новичок

Sergey57 если приложение Вам подойдет, может правки какие, найдите пож-та для меня время.

Оценка

Знаток

Оценка

Новичок

Оценка

Хочется на русском. для этого перевожу в режим PDU:

Ничего не отсылается???!!! Может в коде что-то не то???
Пробовал в HyperTerminal все отсылается:
AT+CMGF=0
AT+CMGS=31
> 07919730071111f101000b919705129523f0000812041a04200410042104­10041204270418041A

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245

// TestSerial.cpp : main project file.
 
#include "stdafx.h"
#include "windows.h"
#include <string>
#include <iostream>
#include <exception>
 
using namespace std;
 
using namespace System;
 
#define READ_TIMEOUT_MSEC 100
 
const DWORD READ_BUF_SIZE = 20;
 
 
BOOL WriteComPort(HANDLE hComm, char * lpBuf, DWORD dwToWrite, DWORD &dwWritten)
{
    OVERLAPPED osWrite = { 0 };
    DWORD dwRes;
    BOOL fRes = FALSE;
 
    // Create this write operation's OVERLAPPED structure's hEvent.
    osWrite.hEvent = ::CreateEvent(NULL, TRUE, FALSE, NULL);
 
    if (osWrite.hEvent == NULL) {
    
        // error creating overlapped event handle
        return FALSE;
    }
 
    // Issue write.
    if (!::WriteFile(hComm, lpBuf, dwToWrite, &dwWritten, &osWrite)) {
 
        if (::GetLastError() != ERROR_IO_PENDING) {
            
            // WriteFile failed, but isn't delayed. Report error and abort.
            fRes = FALSE;
        }
        else {
 
            // Write is pending.
            dwRes = ::WaitForSingleObject(osWrite.hEvent, INFINITE);
 
            switch (dwRes)
            {
                // OVERLAPPED structure's event has been signaled. 
                case WAIT_OBJECT_0:
 
                    if (!::GetOverlappedResult(hComm, &osWrite, &dwWritten, TRUE))
                        fRes = FALSE;
                    else
                        // Write operation completed successfully.
                        fRes = TRUE;
                    break;
 
                default:
 
                    // An error has occurred in WaitForSingleObject.
                    // This usually indicates a problem with the
                    // OVERLAPPED structure's event handle.
                    fRes = FALSE;
                    break;
                }
            }
    }
    else {
    
        // WriteFile completed immediately.
        fRes = TRUE;
    }
 
    if (osWrite.hEvent != NULL) ::CloseHandle(osWrite.hEvent);
 
    return fRes;
}
 
 
BOOL ReadComPort(HANDLE hComm, char * lpBuf, DWORD &dwRead) {
 
    BOOL fRes = FALSE;
    OVERLAPPED osReader = { 0 };
 
    // Create the overlapped event. Must be closed before exiting
    // to avoid a handle leak.
    osReader.hEvent = ::CreateEvent(NULL, TRUE, FALSE, NULL);
 
    if (osReader.hEvent == NULL) {
 
        // error creating overlapped event handle
        return FALSE;
    }
 
    // Issue read operation.
    DWORD fSuccess = ::ReadFile(hComm, lpBuf, READ_BUF_SIZE, &dwRead, &osReader);
    
    DWORD dwErr = GetLastError();
 
    if (!fSuccess) {
            
        //if (::GetLastError() != ERROR_IO_PENDING) {
        if (false) {
 
            // WriteFile failed, but isn't delayed. Report error and abort.
            fRes = FALSE;
        }
        else {
 
            DWORD dwRes = ::WaitForSingleObject(osReader.hEvent, READ_TIMEOUT_MSEC);
 
            switch (dwRes) {
 
                // Read completed.
                case WAIT_OBJECT_0:
 
                    if (!::GetOverlappedResult(hComm, &osReader, &dwRead, FALSE)) {
 
                        // Error in communications; report it.
                        throw new exception("Error in communications");
 
                    }
                    else {
 
                        // Read completed successfully.
                        fRes = TRUE;
                    }
 
                    break;
 
                case WAIT_TIMEOUT:
 
                    // Operation isn't complete yet. fWaitingOnRead flag isn't
                    // changed since I'll loop back around, and I don't want
                    // to issue another read until the first one finishes.
                    //
                    // This is a good time to do some background work.
                    fRes = FALSE;
                    break;
 
                default:
                    // Error in the WaitForSingleObject; abort.
                    // This indicates a problem with the OVERLAPPED structure's
                    // event handle.
                    fRes = FALSE;
                    break;
            }
 
        }
 
    }
 
    if (osReader.hEvent != NULL) ::CloseHandle(osReader.hEvent);
}
 
 
int main(array<System::String ^> ^args)
{
    wstring name;
    HANDLE hComm = NULL;
    char * buff = new char[21];
 
    try {
 
        name = L"COM1";
 
        hComm = ::CreateFile( name.c_str(),
            GENERIC_READ | GENERIC_WRITE,
            0,
            NULL,
            OPEN_EXISTING,
            FILE_FLAG_OVERLAPPED,
            NULL);
 
        if ( hComm == INVALID_HANDLE_VALUE ) {
            
            throw new exception("INVALID_HANDLE_VALUE");
        }
 
        DCB dcb;
        
        ::FillMemory(&dcb, sizeof(dcb), 0);
 
        DWORD fSuccess = ::GetCommState(hComm, &dcb);
        
        if (!fSuccess){
            
            throw new exception("GetCommState()");
        }
 
        dcb.DCBlength = sizeof(DCB);
        
        if (!::BuildCommDCB(L"9600,n,8,1", &dcb)) {
 
            // Couldn't build the DCB. Usually a problem
            // with the communications specification string.
            throw new exception("BuildCommDCB()");
        }
 
        fSuccess = ::SetCommState(hComm, &dcb);
        
        if (!fSuccess){
 
            throw new exception("SetCommState()");
        }
 
        // Contains various COM timeouts 
        COMMTIMEOUTS CommTimeouts;       
 
        // Timeouts in msec.
        CommTimeouts.ReadIntervalTimeout = MAXDWORD;
        CommTimeouts.ReadTotalTimeoutMultiplier = 10;
        CommTimeouts.ReadTotalTimeoutConstant = 100;
        CommTimeouts.WriteTotalTimeoutMultiplier = 0;
        CommTimeouts.WriteTotalTimeoutConstant = 0;
 
        // Set COM timeouts.
        fSuccess = ::SetCommTimeouts(hComm, &CommTimeouts);
 
        if (!fSuccess){
        
            throw new exception("SetCommTimeouts()");
        }
 
        // Посылаем команду чтения данных.
        string cmd = "AT02R";
        DWORD dwWritten;
 
        WriteComPort(hComm, (char *)cmd.c_str(), cmd.length(), dwWritten);
 
        // Принимаем ответ.       
        DWORD dwRead;
 
        ReadComPort(hComm, buff, dwRead);
        
    }
    catch ( exception &ex ) {
        
        cout << "[ERROR] " << ex.what() << endl;
    }
 
    if (hComm != NULL)  ::CloseHandle(hComm);
 
    return 0;
}