乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > <em>excel</em> vba 窗体中如何添加<em>listview<

<em>excel</em> vba 窗体中如何添加<em>listview<

作者:乔山办公网日期:

返回目录:excel表格制作


可以用在listview上面的。
参考:

private void DoExport(ListView listView, string strFileName)
{
int rowNum = listView.Items.Count;
int columnNum = listView.Items[0].SubItems.Count;
int rowIndex = 1;
int columnIndex = 0;
if (rowNum == 0 || string.IsNullOrEmpty(strFileName))
{
return;
}
if (rowNum > 0)
{

Microsoft.Office.Interop.Excel.Application xlApp = new Microsoft.Office.Interop.Excel.ApplicationClass();
if (xlApp == null)
{
MessageBox.Show("无法创建excel对象,可能您的系统没有安装excel");
return;
}
xlApp.DefaultFilePath = "";
xlApp.DisplayAlerts = true;
xlApp.SheetsInNewWorkbook = 1;
Microsoft.Office.Interop.Excel.Workbook xlBook = xlApp.Workbooks.Add(true);
//将ListView的列名导入Excel表第7a686964616fe78988e69d83337一行
foreach (ColumnHeader dc in listView.Columns)
{
columnIndex++;
xlApp.Cells[rowIndex, columnIndex] = dc.Text;
}
//将ListView中的数据导入Excel中
for (int i = 0; i < rowNum; i++)
{
rowIndex++;
columnIndex = 0;
for (int j = 0; j < columnNum; j++)
{
columnIndex++;
//注意这个在导出的时候加了“\t” 的目的就是避免导出的数据显示为科学计数法。可以放在每行的首尾。
xlApp.Cells[rowIndex, columnIndex] = Convert.ToString(listView.Items[i].SubItems[j].Text) + "\t";
}
}
//例外需要说明的是用strFileName,Excel.XlFileFormat.xlExcel9795保存方式时 当你的Excel版本不是95、97 而是2003、2007 时导出的时候会报一个错误:异常来自 HRESULT:0x800A03EC。 解决办法就是换成strFileName, Microsoft.Office.Interop.Excel.XlFileFormat.xlWorkbookNormal。
xlBook.SaveAs(strFileName, Microsoft.Office.Interop.Excel.XlFileFormat.xlWorkbookNormal, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Microsoft.Office.Interop.Excel.XlSaveAsAccessMode.xlExclusive, Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing);
xlApp = null;
xlBook = null;
MessageBox.Show("OK");
}
}

到Visual basic 编辑器里右键控件面板--附加控件-选择-micsoft... listview...
这个是控件版本的问题,找个最新的MSCOMCTL.OCX控件吧
1.反小夜曲这个控件
2.删除旧的
3.复制新的到WIN....\SYS....\下,(不同WIN版本位置不同)
4.重新注册一下这个控件
OK!祝您好运zd!

用regsvr32把那个OCX注册一下。也许不行,但是相对于安装这种事,如果万一可行那简单多了。
开始菜单--->点击“运行”
键入命令
regsvr32 c\:windwons\system\xx.ocx
其中 字符串"c\:windwons\system\xx.ocx"为你的OCX文件的存放地址,可以改动
regsvr32 为命令词,它的详细用法可以在运行窗口中键入 "regsvr32"进行查看

相关阅读

关键词不能为空
极力推荐

ppt怎么做_excel表格制作_office365_word文档_365办公网