【MFC/C++操作Excel】C++下TextToColumns函数的参数

我们在使用excel的分列将数字转为文本时&＃xff0c;用宏记录的vb代码如下&＃xff1a;

1. Range("A5:A64").Select
2. Selection.TextToColumns Destination:&＃61;Range("A5"), DataType:&＃61;xlDelimited, _
3. TextQualifier:&＃61;xlDoubleQuote, ConsecutiveDelimiter:&＃61;False, Tab:&＃61;True, _
4. Semicolon:&＃61;False, Comma:&＃61;False, Space:&＃61;False, Other:&＃61;False, FieldInfo _
5. :&＃61;Array(1, 2), TrailingMinusNumbers:&＃61;True

如果我们想将其转为VC代码&＃xff0c;过程如下&＃xff1a;

第一句&＃xff1a;

Range("A5:A64").Select

这一句表示选中A5&＃xff1a;A64&＃xff0c;翻译为C&＃43;&＃43;&＃xff0c;就是

m_ecRange.Select();

其中m_ecRange是Range的对象。

第二句&＃xff1a;

1. Selection.TextToColumns Destination:&＃61;Range("A5"), DataType:&＃61;xlDelimited, _ TextQualifier:&＃61;xlDoubleQuote, ConsecutiveDelimiter:&＃61;False, Tab:&＃61;True, _ Semicolon:&＃61;False, Comma:&＃61;False, Space:&＃61;False, Other:&＃61;False, FieldInfo _ :&＃61;Array(1, 2), TrailingMinusNumbers:&＃61;True

其对应的是Range类的TextToColumns函数&＃xff0c;其C&＃43;&＃43;函数原型是

1. VARIANT TextToColumns(const VARIANT& Destination, long DataType, long TextQualifier, const VARIANT& ConsecutiveDelimiter, const VARIANT& Tab, const VARIANT& Semicolon, const VARIANT& Comma, const VARIANT& Space, const VARIANT& Other,
2. const VARIANT& OtherChar, const VARIANT& FieldInfo, const VARIANT& DecimalSeparator, const VARIANT& ThousandsSeparator, const VARIANT& TrailingMinusNumbers);

各个参数的意思可以参见&＃xff1a;

http://bbs.csdn.net/topics/390285992

这里的参数只有第1个const VARIANT& Destination和第11个const VARIANT& FieldInfo比较难确定&＃xff0c;其他参数都可以通过在宏中用MsgBox得到&＃xff0c;下面说明这两个参数&＃xff1a;

第1个参数(const VARIANT& Destination)&＃xff1a;

MSDN解释&＃xff1a;指定 Microsoft Excel 放置结果的位置的 Range 对象。如果该区域大于一个单元格&＃xff0c;请使用左上角的单元格。

所以这里我们设置为A5单元格&＃xff0c;我们可以使用&＃xff1a;

1. CString beginS &＃61; “A5”;//将beginS设置为这一列左上角的单元格
3. Range m_tempRange &＃61; m_ecSheet.GetRange(COleVariant(beginS), COleVariant(beginS));//得到该单元格的range
5. m_tempRange.GetItem(COleVariant((short)1),COleVariant((short)1));//返回的值就是要传入的值&＃xff0c;也就是左上角单元格&＃xff0c;这里一定是1,1&＃xff0c;因为range只有一个单元格

第11个参数(const VARIANT& FieldInfo)

MSDN解释&＃xff1a;包含单列数据拆分信息的数组。对本参数的解释取决于 DataType 的值。如果此数据由分隔符分隔&＃xff0c;则本参数为由两元素数组组成的数组&＃xff0c;其中每个两元素数组指定一个特定列的转换选项。第一个元素为列标&＃xff08;从 1 开始&＃xff09;&＃xff0c;第二个元素是 xlColumnDataType 常量之一&＃xff0c;用以指定该列的拆分方式。
我们可以看到VB代码是Array(1, 2)&＃xff0c;是一个一维数组&＃xff0c;数组有2个元素&＃xff0c;数组的第一个元素是1&＃xff0c;第二个元素是2&＃xff1b;在MFC中&＃xff0c;我们要使用
COleSafeArray来代表数组&＃xff0c;初始化这样一个数组如下&＃xff1a;

1. COleSafeArray saRet;
2. DWORD numElements &＃61; {2};//数组中有2个元素
3. saRet.Create(VT_I4, 1, &numElements);//第一个参数表示存入int&＃xff0c;第二个参数表示是一维数组&＃xff0c;第三个参数表示数组中有2个元素
4. long index &＃61; 0;//数组下标
5. int val &＃61; 1;//值
6. saRet.PutElement(&index, &val);//将0下标的值设置为1

1. index&＃43;&＃43;;
2. val &＃61; 2;
3. saRet.PutElement(&index, &val);//将1下标的值设置为2

整个函数如下&＃xff1a;

1. BOOL CExcelOperate::SetRowToTextFormat(CString &beginS, CString &endS)
2. {
3. if(GetRangeAndValue(beginS, endS))
4. {
5. m_ecRange.Select();
6. Range m_tempRange &＃61; m_ecSheet.GetRange(COleVariant(beginS), COleVariant(beginS));
7. if(!m_tempRange.m_lpDispatch) return FALSE;
8. COleVariant vTrue((short)TRUE),
9. vFalse((short)FALSE);
10. //int tempArray[2] &＃61; {1, 2};
11. COleSafeArray saRet;
12. DWORD numElements &＃61; {2};
13. saRet.Create(VT_I4, 1, &numElements);
14. long index &＃61; 0;
15. int val &＃61; 1;
16. saRet.PutElement(&index, &val);
17. index&＃43;&＃43;;
18. val &＃61; 2;
19. saRet.PutElement(&index, &val);
20. //m_tempRange.GetItem(COleVariant((short)5),COleVariant("A"));
21. m_ecRange.TextToColumns(m_tempRange.GetItem(COleVariant((short)1),COleVariant((short)1)), 1, 1, vFalse, vTrue, vFalse, vFalse, vFalse, vFalse, vFalse, saRet, vFalse, vFalse, vTrue);
22. m_tempRange.ReleaseDispatch();
23. return TRUE;
24. }
25. return FALSE;
26. }

1. BOOL CExcelOperate::GetRangeAndValue(CString begin, CString end)
2. {
3. if(!m_ecSheet.m_lpDispatch)
4. {
5. AfxMessageBox("Sheet获取失败!", MB_OK|MB_ICONWARNING);
6. return FALSE;
7. }
8. m_ecRange &＃61; m_ecSheet.GetRange(COleVariant(begin), COleVariant(end));
9. if(!m_ecRange.m_lpDispatch)
10. {
11. AfxMessageBox("Range获取失败!", MB_OK|MB_ICONWARNING);
12. return FALSE;
13. }
14. ret &＃61; m_ecRange.GetValue2();//得到表格中的值
15. return TRUE;
16. }