使用ADO,调用Excel 2000的文件内容,可以读写以及删除操作!!!!高分在线等待!!!!

2003-01-15 01:46:26 230 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB6中实现MSFlexGrid单元格可点击链接与删除行功能详解在桌面应用开发中，表格控件是展示和操作数据的核心组件。其原理是通过网格结构管理数据单元，支持用户交互与动态渲染。从技术价值看，深度定制表格控件能显著提升数据操作效率与用户体验，尤其在数据密集型业务场景中。通过事件捕获与样式模拟，开发者可以为单元格注入交互逻辑，实现如超链接点击、行内操作等高级功能。本文以VB6的MSFlexGrid控件为例，详细解析如何通过MouseDown事件、CellFont属性模拟单元格链接效果，并实现点击“删除”文本后删除整行且数据上移的完整流程。文中涉及vb6 runtime sp 阅读详情

我想使用Excel 2000的文件,在VC中,通过ADO来操作,最好有实例!

急急急急急急急急急急急急急急急急急急急急急急急急!!@#!@#!@

...全文

Matlab实战：数据清洗、可视化与自动化报告生成全流程解析在工程与科研领域，数据处理与可视化是核心基础技能，涉及从原始数据中提取价值信息的关键流程。其原理在于通过算法对数据进行清洗、转换与聚合，以消除噪声、纠正错误，并转化为可理解的视觉形式。掌握高效的数据处理技术能显著提升分析效率与结果可靠性，在信号处理、控制系统、金融分析等场景中广泛应用。本文聚焦Matlab环境下的实战应用，深入解析如何利用`readtable`、`fillmissing`、`groupsummary`等函数进行数据清洗与特征提取，并演示通过`tiledlayout`、`exportgraph 阅读详情

Lanber

数据库 4,017 成员 39,805 内容

+ 关注 + 加入社区

切换为时间正序

arvid_gs 2003-01-15

打赏
举报

try
{
_Application app; // app is an _Application object.
_Workbook book; // More object declarations.
_Worksheet sheet;
Workbooks books;
Worksheets sheets;

Range range; // Used for Microsoft Excel 97 components.
LPDISPATCH lpDisp; // Often reused variable.

// Common OLE variants. Easy variants to use for calling arguments.
COleVariant
covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

// Start Microsoft Excel, get _Application object,
// and attach to app object.
if(!app.CreateDispatch("Excel.Application"))
{
AfxMessageBox("Couldn't CreateDispatch() for Excel");
return;
}

// Set visible.
app.SetVisible(TRUE);

// Register the Analysis ToolPak.
CString sAppPath;

sAppPath.Format ("%s\\Analysis\\Analys32.xll", app.GetLibraryPath());

if(!app.RegisterXLL(sAppPath))
AfxMessageBox("Didn't register the Analys32.xll");

// Get the Workbooks collection.
lpDisp = app.GetWorkbooks(); // Get an IDispatch pointer.
ASSERT(lpDisp);
books.AttachDispatch(lpDisp); // Attach the IDispatch pointer
// to the books object.

// Open a new workbook and attach that IDispatch pointer to the
// Workbook object.
lpDisp = books.Add( covOptional );
ASSERT(lpDisp);
book.AttachDispatch( lpDisp );

// To open an existing workbook, you need to provide all
// arguments for the Open member function. In the case of
// Excel 2002 you need to provide 16 arguments.
// The code below opens a workbook and adds it to the Workbook's
// Collection object. It shows 13 arguments, required for Excel
// 2000.
// You need to modify the path and file name for your own
// workbook.

//
// lpDisp = books.Open("C:\\Test", // Test.xls is a workbook.
// covOptional, covOptional, covOptional, covOptional, covOptional,
// covOptional, covOptional, covOptional, covOptional, covOptional,
// covOptional, covOptional ); // Return Workbook's IDispatch
// pointer.

// Get the Sheets collection and attach the IDispatch pointer to your
// sheets object.
lpDisp = book.GetSheets();
ASSERT(lpDisp);
sheets.AttachDispatch(lpDisp);

// Get sheet #1 and attach the IDispatch pointer to your sheet
// object.
lpDisp = sheets.GetItem( COleVariant((short)(1)) );
//GetItem(const VARIANT &index)
ASSERT(lpDisp);
sheet.AttachDispatch(lpDisp);

// Fill range A1 with "1/25/98", the settlement date.
lpDisp = sheet.GetRange(COleVariant("A1"), COleVariant("A1"));
ASSERT(lpDisp);
range.AttachDispatch(lpDisp);
range.SetValue(COleVariant("1/25/98")); // Excel 97 & Excel 2000

range.SetValue2(COleVariant("1/25/98")); // Excel 2002

// Fill range A2 with "11/15/99", the maturity date.
lpDisp = sheet.GetRange(COleVariant("A2"), COleVariant("A2"));
ASSERT(lpDisp);
range.AttachDispatch(lpDisp);
range.SetValue(COleVariant("11/15/99")); // Excel 97 & Excel 2000

range.SetValue2(COleVariant("11/15/99")); // Excel 2002

// Fill range A3 with "2", the frequency for semi-annual interest
// payments.
lpDisp = sheet.GetRange(COleVariant("A3"), COleVariant("A3"));
ASSERT(lpDisp);
range.AttachDispatch(lpDisp);
range.SetValue(COleVariant("2")); // Excel 97 & Excel 2000

range.SetValue2(COleVariant("2")); // Excel 2002

// Fill range A4 with 1, the basis (actual/actual).
lpDisp = sheet.GetRange(COleVariant("A4"), COleVariant("A4"));
ASSERT(lpDisp);
range.AttachDispatch(lpDisp);
range.SetValue(COleVariant("1")); // Excel 97 & Excel 2000

range.SetValue2(COleVariant("1")); // Excel 2002

// Fill range C1 with the formula "=COUPNCD(A1, A2, A3, A4)" and
// format the cell with a Date type of the Number format.
lpDisp = sheet.GetRange(COleVariant("C1"), COleVariant("C1"));
ASSERT(lpDisp);
range.AttachDispatch(lpDisp);
range.SetNumberFormat(COleVariant("mm/dd/yy"));
range.SetFormula(COleVariant("=COUPNCD(A1, A2, A3, A4)"));

/* This is an alternative that works without placing variables on
// the worksheet.
// The values are arguments contained in the SetFormula() call.
// range.SetFormula(COleVariant(
"=COUPNCD(\"09/15/96\",\"11/15/99\",2,1)"));
*/

// *** The example in this block uses a built-in Microsoft Excel
// function.

// You do not have to register any add-in to use the built-in

// Microsoft Excel worksheet functions.
lpDisp = sheet.GetRange(COleVariant("C3"), COleVariant("C3"));
ASSERT(lpDisp);
range.AttachDispatch(lpDisp);
range.SetFormula(COleVariant("=SUM(A3, A4)"));
// or use:
// range.SetFormula(COleVariant("=SUM(2,1)"));

// *** End of example for built-in function usage.

// Release dispatch pointers.
range.ReleaseDispatch();
sheet.ReleaseDispatch();
// This is not really necessary because
// the default second parameter of AttachDispatch releases
// when the current scope is lost.

} // End of processing.

catch(COleException *e)
{
char buf[1024]; // For the Try...Catch error message.
sprintf(buf, "COleException. SCODE: %08lx.", (long)e->m_sc);
::MessageBox(NULL, buf, "COleException", MB_SETFOREGROUND | MB_OK);
}

catch(COleDispatchException *e)
{
char buf[1024]; // For the Try...Catch error message.
sprintf(buf,
"COleDispatchException. SCODE: %08lx, Description: \"%s\".",
(long)e->m_wCode,(LPSTR)e->m_strDescription.GetBuffer(512));
::MessageBox(NULL, buf, "COleDispatchException",
MB_SETFOREGROUND | MB_OK);
}

catch(...)
{
::MessageBox(NULL, "General Exception caught.", "Catch-All",
MB_SETFOREGROUND | MB_OK);
}

okin 2003-01-15

打赏
举报

看MS网站上的例子比较好
http://support.microsoft.com/default.aspx?scid=kb;en-us;q178781

sunyou 2003-01-15

打赏
举报

这个是ODBC方式：
http://www.vckbase.com/document/viewdoc.asp?id=421

用友有个控件也可以读写Excel文件。
名称：Excel读写控件
版本：1.2
大小：2.8M
主页：http://www.cellsoft.cc
下载地址：http://61.135.139.207/china/chanpin/xiazai/download.htm
效果演示：
http://61.135.139.207/china/chanpin/jiazu/excelShow/ConvertExcel.htm

使用ADO,调用Excel 2000的文件内容,可以读写以及删除操作!!!!高分在线等待!!!!

相关推荐