VC如何改变Excel的列宽？

[sy_hys]

我现在要将数据导入Excel文件，但是有些数据的长度超过了默认的列宽，现在想用VC来改变Excel某个列的列宽，应该如何实现呀？

[sy_hys]

楼上的能给我全部源码吗？你的代码不全，我看不明白！

[ddszhan]

在Excel中录制一段调整列宽的宏，看看宏的代码。
Sub Macro1()
'
' Macro1 Macro
' 宏由 XXXXX 录制，时间: 2009-1-21
'

'
Columns("D:D").ColumnWidth = 22.38
End Sub

把宏中的语句改成VC中使用的，就行了，前提是你使用COM的方法来操纵Excel。

[n_yHHy_n]

BOOL CExcelCom::SetRowHeight(CString strStart, CString strEnd, long lHeight)
{
BOOL bRet = FALSE;

if (TRUE == m_bSheetIsOK)
{
Range iRange;
Range iEnRow;

TRY
{
//Get range
iRange = m_iSheet.GetRange(_variant_t(strStart),
_variant_t(strEnd));
iRange.SetRowHeight(_variant_t(lHeight));
bRet = TRUE;
}
CATCH_ALL(e)
{
m_strErrMsg = _GetErrText( e );
}
END_CATCH_ALL

iEnRow.ReleaseDispatch();
iRange.ReleaseDispatch();
}

return bRet;
}

[n_yHHy_n]

其实这个是修改行宽的，这个是个例子，列宽可以仿照这个些，可以在excel中录个宏，看看修改列宽需要什么函数，那个函数在vc可能是前面加get或者set。

[normanlai]

//获取指定列
inline Excel::RangePtr GetRangeByCol(
Excel::_Worksheet* pSheet,
long nCol //指定起始列
)
{
if( nCol<1 || nCol>0xFF )
return NULL;

return pSheet->Columns->Item[nCol];
}
//更新指定列的宽度
inline BOOL SetColumnWidth(Excel::Range* pCol,double dWidth)
{
pCol->ColumnWidth = dWidth;
return TRUE;
}

必须有Excel::_Worksheet* pSheet，然后先调用第一个函数，再调用第二个函数